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Markt&Technik 


3D-Master: Animation in Echtzeit 
Prograf: Perspektiven leicht programmiert 
... und viele mehr 


Grundlagen 


Alles über 


ERHÄLTLICH 


■ Neue Maustreiber 

■ Verbesserte Diashow-Routine 
■2 zusätzliche Zeichensätze 
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EDITORIAL 



Ihr Gottfried Knechtei 
(Stellv. Chefredakteur) 


D reidimensionale Körper drehen sich ästhetisch 
auf der Mattscheibe. Zwei- oder dreimal auf den 
Feuerknopf gedrückt, und in Windeseile be¬ 
rechnet der Computer Linien, Kreise oder Ellipsen. 
Was steckt dahinter? Wie pro¬ 
grammiert man so etwas? 

Wir haben den Profis über die 
Schulter geschaut und das Gan¬ 
ze in einem ausführlichen Grafik¬ 
kurs zusammengefaßt. »Das ver¬ 
stehe ich ja nie!« Keine Angst, in unserem Kurs fan¬ 
gen wir ganz von vorn an - mit einfachen Program¬ 
men in Basic. Später erfahren Sie, wie man schnelle 
Grafikroutinen in Assembler programmiert bis hin zur 
Entwicklung von 3D-Effekten. 

Von Workstations verwöhnte Profis winken ab: 
»Das ist doch kein Metier für den C64 - dafür gibt es 
doch bessere, leistungsfähigere Computer«. Sicher, 
kein »Golf« wird über Nacht zu einem »Turbo-Por- 
sche«. Aber wer kann sich letzteren schon leisten. Au¬ 
ßerdem staunt man, was aus dem kleinen C64 her¬ 
auszuholen ist. Und die theoretischen Grundlagen 
der Grafikprogrammierung bleiben auch bei größe¬ 
ren Computern gleich oder zumindest sehr ähnlich. 
Wer einmal verstanden hat, wie gute Grafiksoftware 
entwickelt wird, profitiert immer wieder davon. 

Also, keine Scheu vor dieser Materie, sondern »ran 
an die Buletten«. Probieren Sie selbst, welche Fähig¬ 
keiten in Ihrem Computer schlummern. 

Lassen Sie sich begeistern von der faszinierenden 
Welt der Computergrafik. Ihre schönsten Grafiken 
oder pfiffige Programme können Sie ja 
an die Redaktion Sonderhefte schicken. 


Faszination 

Grafik 




ALLES 


S »mlllche Grundlagen, die für die Groflkßrogtammlo- 
rung notwendig sind, wollen wir Ihnen hier vorstellen. 
Vor allem diejenigen, die neu ln den Grafikbereich ein¬ 
steigen, sind zum aktiven Milmachen aulgerulen. 

Alle Gratlkmögllchkeilen des C64 basieren auf dem VI- 
deo-lnterlace-Chlp 6567 (auch bekannt als VlC-ll-Chlp). 
Oleser Chip ermöglicht die verschiedensten Grallkartan. 
elnschlleBllch einer Textdarstellung von 40 Zeichen x 23 
Zeilen, eine hochaullösende Grafik von 320 x 200 Punkten 
sowie Sprites, kleine bewegliche Objekte, die das Erstellen 
von Spielen wesenlllch vereinfachen. Darüber hinaus kön¬ 
nen viele dieser Grafikarten auf domselbon Bildschirm ge¬ 
mischt werden. Spriles lassen sich mil allen Displayarten 
kombinieren. Wir werden später nöch auf Sprites genauer 
elngehen. Zupftcjittfisschäftigen wir uns mil den übrigen 
Grafiker -ner mildem VlC-ll-Chlp- 


INHALT 


A In unserem umfassenden Kurs erfahren Sie alle Grundlagen zur 
Grafikprogrammierung. Seite 6 


iKIUuMuvTaX 




A Seite 14 

Werden Sie zum 
»Landschaftsgärtner«: 
In wenigen Schritten 
entwickeln sich immer 
neue Berae und Seen 


A Seite 38 

Surrealistische Grafiken lassen sich mit »Prograf« aus 
mathematischen Funktionen entwickeln 


Grafikkurs 


Alles über Grafik 

Unser neu überarbeiteter Kurs enthält alle wichtigen 
Grundlagen nicht nur für Einsteiger. Wesentliche 
Grafikroutinen in Basic und Assembler sowie die 
Einführung in die 3D-Programmierung lassen Sie in 
kurzer Zeit zum Grafik-Profi werden. 


Listings 

Apfelmännchen aus dem Farbtopf gezogen 

Kaum zu glauben, welche grafischen Möglichkeiten 
im C64 stecken. Überzeugen Sie sich selbst... 

H 8 

Landschaften aus dem Heimcomputer 

Zaubern Sie in wenigen Schritten fantastische Land¬ 
schaften mit Bergen und Seen auf Ihren Bildschirm 

H 14 

Soft-Scrolling mit allen Raffinessen 

Bewegte Grafik in Vollendung: Mit dem Scrollsystem 
werden sogar beschleunigte Bewegungen in allen 
Bildschirmrichtungen möglich. 

H24 
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Ein kleiner 
Umbau 

Ihres Plotters genügt, 
um fantastische 
Hardcopies zu erzeugen. 

◄ Seite 60 


Die Farbenpracht von 
»Apfelmännchen« 
versetzt jeden Betrachter 
immer 

wieder in Erstaunen. 

Seite 8 ► 


JETZT WIRD'S 




3D-Grafik in Echtzeit 

Mit »3D-Grafik-Master« lassen sich dreidimensionale 
Körper mit beachtlicher Geschwindigkeit um 
beliebige Achsen drehen. 


73 


Grafik in der 3. Dimension 
»Prograt« ist eine universelle Befehlserweiterung 
zum einfachen Zeichnen in drei Dimensionen. Mit 
der riesigen Auflösung von 640 x 400 Punkten 
bringen Sie alle Grafiken optimal zu Papier. 


38 


Neues für Amica Paint 


Mit unseren Ergänzungen läßt sich das großartige 
Malprogramm »Amica Paint« noch besser nutzen 

B 54 

Jetzt wird’s bunt 


Mit wenigen Handgriffen wird der Plotter zu einem 
Malkasten: Jetzt müssen Sie nicht mehr auf kleine 

H 60 

farbige Hardcopies verzichten. 

Der Sprite-Grabscher 

Werden Sie zum »Bilder-Dieb« und bauen fremde 

B 63 

Sprites in eigene Programme ein 

Grafik-Convert 64 


Mit dem hier vorgestellten Tool lassen sich unter¬ 
schiedliche Grafikformate problemlos konvertieren 

B 66 


So werden Intros programmiert 

Werfen Sie einen Blick hinter die Kulissen der 
Intro-Programmierung: So entwerfen Sie trickreich 
interessante Vorspänne für eigene Programme. 

B 85 

Auf drr Suche nach der Grafik 

Mit dem »Hardmaker« lassen sich fast alle Grafiken 
aufs Papier bringen. Auf Wunsch können Multi- 
Color-Grafiken ohne großen Aufwand in Graustufen 
umgerechnet werden. 

B 91 

Tips & Tricks 

Zylindrisches Scrollen mit dem Hi-Scroller 

Unentbehrlich zur Programmierung professioneller 
Spiele 

B155 

Tips&Tricks zur Grafik 

Kleine Kniffe für die tägliche Arbeit 

B156 

Eingabehilfen 

Checksummer V3 & MSE 

Wie tippe ich meine Programme ein? Diesen Artikel 
sollten Sie unbedingt lesen, wenn Sie Programme 
aus diesem Sonderheft abtippen wollen. 

B159 

1 Sonstiges 

Editorial 

3 

Mitmachkarte 

153 

Impressum 

162 

Vorschau 

162 


Alle Programme aus Artikeln mit einem IH -Symbol finden Sie auch auf der 
Programmservice-Diskette zu diesem Sonderheft 



























Einer der faszinierend¬ 
sten Aspekte des C64 
sind seine Grafikfähig¬ 
keiten. Mit dem Wissen, 
das Ihnen dieser Kurs 
vermittelt, werden auch 
Sie in der Lage sein, die¬ 
se voll auszuschöpfen. 


S ämtliche Grundlagen, die für die Grafikprogrammie¬ 
rung notwendig sind, wollen wir Ihnen hier vorstellen. 
Vor allem diejenigen, die neu in den Grafikbereich ein¬ 
steigen, sind zum aktiven Mitmachen aufgerufen. 

Alle Grafikmöglichkeiten des C64 basieren auf de 
deo-lnterface-Chip 6567 (auch bekannt als VIC-ll- 
Dieser Chip ermöglicht die verschiedensten Grafil> 
einschließlich einer Textdarstellung von 40 Zeichen x 
Zeilen, eine hochauflösende Grafik von 320 x 200 Punkten 
sowie Sprites, kleine bewegliche Objekte, die das Erstellen 
von Spielen wesentlich vereinfachen. Darüber hinaus kön¬ 
nen viele dieser Grafikarten auf demselben Bildschirm ge¬ 
mischt werden. Sprites lassen sich mit allen Displayarten 
kombinieren. Wir werden später noch auf Sprites genauer 
eingehen. Zunächst beschäftigen wir uns mit den übrigen 
Grafikarten. Eine Aufstellung der mit dem VIC-ll-Chip mög¬ 
lichen Grafikarten zeigt Bild 1 (Seite 97). 

Zunächst einige allgemeine Informationen. Der Bild¬ 
schirm des C64 verfügt über 1000 Positionen. Normaler¬ 
weise beginnt der Bildschirmspeicher bei Adresse 1024 
($0400 in hexadezimaler Darstellung) und reicht bis Adres¬ 
se 2023 ($07E7). Jede dieser Adressen kann 8 Bit spei¬ 
chern, das entspricht einer beliebigen ganzen Zahl zwi¬ 
schen 0 und 255. Dem Bildschirmspeicher entspricht eine 
Gruppe von 1000 Adressen, die Farbspeicher oder Farb- 
RAM genannt wird. Dieser beginnt bei Adresse 55296 


Schiebung im Speicher 


($D800) und reicht bis Adresse 56295 ($DBE7). Die vier nie¬ 
derwertigen Bits dieser Adressen bestimmen die Farbe ei¬ 
ner 8 x 8-Matrix im Bildschirm. Es sind also 214 Bitkombina¬ 
tionen - was den Zahlen zwischen 0 und 15 entspricht - 
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Darüber hinaus können jederzeit 256 verschiedene Zei¬ 
chen angezeigt werden. Bei der normalen Bildschirman¬ 
zeige enthält jede der 1000 Adressen des Bildschirmspei¬ 
chers eine Code-Zahl, die dem VIC-ll-Chip »sagt«, welches 
Zeichen an dieser Bildschirmposition anzuzeigen ist. 

Die verschiedenen Grafikmodi werden über die 47 
Steuerregister im VIC-ll-Chip gewählt. Viele Grafikfunktio¬ 
nen lassen sich steuern, indem der richtige Wert über die 
POKE-Anweisung in eines der Register geschrieben wird. 
Die Register des VIC-ll-Chip befinden sich an den Spei¬ 
chern 53248 ($D000 in Hexadezimaldarstellung) bis 53294 
($D02E). 

Wahl der Video-Bank 

Der VIC-ll-Chip kann gleichzeitig auf einen Speicherbe¬ 
reich von 16 KByte zugreifen. Da der C64 über einen 
64-KByte-Speicher verfügt, soll der VIC-II natürlich auch 
den ganzen Speicher »sehen« können. Dies ist möglich. Es 
gibt vier verschiedene Banks (oder Abschnitte), mit jeweils 
16 KByte. Nun muß lediglich noch geregelt werden, auf wel¬ 
che dieser Abschnitte der VIC-ll-Chip zugreift. Auf diese 
Weise kann der Chip die gesamte Speicherkapazität von 
64 KByte »überblicken«. Die Bankanwahl-Bits, die einen 
Zugriff auf die verschiedenen Speicherabschnitte ermögli¬ 
chen, befinden sich im Complex-Interface Adapter-Chip 
#2 (CIA #2) 6526. Über die Basic-Anweisungen POKE 
und PEEK (oder die entsprechenden Versionen in Maschi- 


möglich. Jede der einzelnen Zahlen entspricht einer Farbe, 
und somit sind mit dem C64 16 verschiedene Farben dar- 


Kursübersicht 

Das Handwerkszeug 

ab Seite 6 

Verschiebung der Speicherstellen 
Programmierbare Zeichen 

Der Multicolor-Modus 

Hilfreiche Geister: Sprites 

Sette 6 
Seite 99 
Seite 101 
Seite 106 

Programmierung in Theorie und Praxis 

ab Seite 120 

Löschen der Bitmap 

Jetzt kommt Farbe in die Grafik 

Rückkehr in den Textmodus 

Optimierter Linienalgorithmus 

Seite 123 
Seite 124 
Seite 124 
Seite 129 

Einstieg in die dritte Dimension 

ab Seite 139 

Das Bildschirmkoordinatensystem 

Was sind Matrizen? 

3D-Grafik 

Projektionen 

Seite 139 
Seite 140 
Seite 149 
Seite 150 


FOrtsatzung aut Seite 97. 
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LISTINGS 


Apfelmännchen- 
Grafiken versetzen 
den Betrachter 
immer wieder in Er¬ 
staunen. Dieses 
Erstaunen verwandelt 
sich in Begeiste¬ 
rung, wenn Sie die 
fantastischen 
Apfelmännchen in 16 
Farben sehen, 
die Michael Aumers 
Programm erzeugt. 



V iele »Apfelmännchen«-Programme bieten dem An¬ 
wender aufgrund mangelnder Farbgebung nicht die 
Qualität, die den Fähigkeiten des C 64 entspricht. Erst 
durch die Vielfalt aller 1'6 darstellbaren Farben können die 
Strukturen der Mandelbrotmenge gut erkannt werden. Un¬ 
ser »Apfelmännchen in 16 Farben« nutzt die Grafikmöglich¬ 
keiten des C64 voll aus. Die Anwahl der einzelnen Pro¬ 
grammabschnitte, wie Erzeugen und Darstellen der Grafi¬ 
ken, ist menügesteuert. Dadurch kommen auch alle, die 
sich noch nicht mit der Theorie der Mandelbrot-Mengen 
auskennen, in den vollen Genuß der herrlichen Bilder. 

Bedienungshinweise 


Das Programm bietet bei fast allen Funktionen Hinweise zu 
den Möglichkeiten, die zur Verfügung stehen. Um Ihnen die 
Bedienung so leicht wie möglich zu machen, erklären wir 
Ihnen jetzt ausführlich alle Menü-Punkte. 

Nach dem Start des Basic-Programms »Apfel16.bas« (Li- 
sting 1) mit RUN erscheint das Hauptmenü mit der Über¬ 


schrift »Apfelmännchen !«. Die einzelnen Menü-Punkte 
werden mit den Tasten 1 bis 7 aufgerufen. Folgende Aus¬ 
wahlmöglichkeiten sind vorhanden: 

<1 > Daten eingeben/anzeigen: Hier werden die aktuel¬ 
len Werte zur Berechnung (Werte für die Ränder und die 
Iterationsgrenze) angezeigt. Beim Laden des Basic-Pro¬ 
gramms sind bereits Werte voreingestellt. Wollen Sie die 
angezeigten Werte übernehmen, ist einfach die Taste 
< RETURN > zu drücken. 

<2> Bild laden: Sie können erstellte Bilder auf Diskette 
speichern und mit diesem Menüpunkt wieder laden. Im In¬ 
haltsverzeichnis der Diskette erkennen Sie Bilder an dem 
Nachsatz ».pic«. Achtung: Dieser Nachsatz darf beim Auf¬ 
rufen der Bilder nicht mit angegeben werden. 

<3> Bild speichern: Mit dieser Auswahl speichern Sie 
ein Bild unter einem von Ihnen festgelegten Namen auf Dis¬ 
kette. Der Name darf maximal zwölf Zeichen lang sein. Ein 
Bild belegt auf Diskette 41 Blocks, diese müssen vor dem 
Speichern also frei sein. 
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LISTINGS 


dem Faririopf gezogen 



Bild 1. 

Ein »Apfel¬ 
männchen« 
mit 16 Farben 



<4> Bild berechnen: Weist das Programm an, ein Bild 
mit den Daten, die Sie unter Menüpunkt < 1 > eingegeben 
haben, neu zu berechnen. Die Berechnungszeit nimmt in 
Abhängigkeit von der Größe der eingegebenen Iterations¬ 
grenze zu. Verwenden Sie die beim Programmstart vorhan¬ 
denen Werte, können Sie eine Stunde am Bildschirm die 
Entstehung der Grafik bewundern oder eine Tasse Kaffee 
trinken - Ihr Computer ist jedenfalls beschäftigt. 

<5> Ausschnitt berechnen: Ein beliebiger Ausschnitt 
der Grafik wird neu berechnet, ein neues Bild entsteht. Sie 
legen den Ausschnitt fest, indem Sie das am linken Bild¬ 
rand erscheinende Rechteck mit den Tasten <CRSR- 
rechts> und <CRSR-links> bewegen. Die Taste < — > 
verändert die Geschwindigkeit der Bewegung. Mit den Ta¬ 
sten < + > und <-> verändern Sie die Größe des darge¬ 
stellten Ausschnitts. < t > legt den Ausschnitt fest. Nach 
Eingabe einer Iterationsgrenze beginnt die Berechnung 
der neuen Grafik. 

<6> Bild anzeigen/Farbeffekte: Mit der Anwahl dieser 
Funktion gelangen Sie ins Untermenü »Farbauswahl«. 

<7> Directory: Zeigt das Inhaltsverzeichnis der eingeleg¬ 
ten Diskette an. Gespeicherte Bilder sind an einem ange¬ 
hängten ».pic« zu erkennen. Diese Namenserweiterung 
darf beim Laden der Bilder unter Punkt <2> keinesfalls 
mit angegeben werden. 

6*sr onur 

Menü 2 - Farbkomposition 


Im Untermenü »Farbauswahl«, das durch Drücken der Ta¬ 
ste <6> aus dem Hauptmenü aufgerufen wird, legt man 
die Farbwerte für das angezeigte Bild fest. Die Grafiken 
können in 4 oder in 16 Farben dargestellt werden. Wählen 
Sie mit <3> die 16farbige Darstellung, können mit der Ta¬ 
ste <R> die Farben zyklisch vertauscht werden. Mit < I > 
kommen Sie zurück in das Untermenü. 

Mit <4> wird die Darstellung in vier Farben ausgewählt. 
Die Farben können in diesem Modus mit den Funktionsta¬ 
sten verändert werden. Mit der Taste < t > wird dieser Mo¬ 
dus wieder verlassen. 

Noch ein Tip für die 16farbige Darstellung: Schalten Sie 
doch einmal die Tastenwiederholung ein, indem Sie das 
Basic-Programm »Apfelm 16.bas« wie folgt ändern: 

1425 poke 650,128 
1430 poke 650,0 

Die Farben wechseln dadurch so lange, wie Sie die Taste 
<R> gedückt halten. 

Die Farbeffekte können Sie weiter durch die Menüpunkte 
»Farben sichern«, »Farben zurückholen« und »Farbgebung 
ändern« beeinflussen. 


Bild 2. Durch 
Farbrotation 
entsteht auf dem 
Monitor der 
Eindruck einer 
sich bewegenden 
Spirale 


Kurzinfo: Apfelmännchen 


Programmart: Tool zum Generieren von »Apfelmännchen« 

Laden: LOAD "APFPEL16.BAS",8 
Start: Nach dem Laden RUN eingeben 

Besonderheiten: Das Basic-Programm lädt das Maschinensprache- 
Programm »MS.APFEL16« nach. Die Menüauswahl erfolgt über die 
Tastatur. Fertige Bilder befinden sich auf der Programmservice- 
Diskette. 

Programmautor: Michael Aumer 
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LISTINGS 


Die Farbwerte, die nach dem Erstellen oder dem Laden 
eines Bildes vorliegen, werden mit Punkt <1 >, »Farben si¬ 
chern«, im Speicher abgelegt. Sollten Ihnen die Farbände¬ 
rungen, die Sie mit anderen Funktionen durchführen, nicht 
gefallen, holen Sie mit der Funktion <2> die gespeicherte 
Farbkombination wieder zurück. Das Aufrufen des Menü- 


Funktionsweise 
des Programms 


Punktes <5> »Farbgebung ändern« gestattet Ihnen, die 
gesamte Farbzusammenstellung für die Grafik zu verän¬ 
dern. Hier wird auch die Hintergrundfarbe neu bestimmt. 
Die eingegebenen Werte müssen zwischen 0 und 15 lie¬ 
gen. Jede dieser Zahlen entspricht einer zugehörigen Far¬ 




be (Tabelle 1). Weitere Veränderungen der Farbumgebung 

entstehen, wenn Sie die gespeicherten Farben zurückho- Bild 5. Durch den 

len und dann dieTaste <R> drücken. Dadurch ändert sich Farbverlauf entsteht der 
die Farbfolge der Rotation im 16-Farben-Modus. Eindruck räumlicher Tiefe 


0 

Schwarz 

8 

Orange 

1 

Weiß 

9 

Braun 

2 

Rot 

10 

Hellrot 

3 

Türkis 

11 

Grau 1 

4 

Violett 

12 

Grau 2 

5 

Grün 

13 

Hellgrün 

6 

Blau 

14 

Hellblau 

7 

Gelb 

15 

Grau 3 


Tabelle 1. Hier finden Sie die Werte für die 16 Farben des C64 


Bild 3. Wie eine Körper¬ 
zelle wirkt dieses 
»Apfelmännchen« 


Bild 4. Die Farb¬ 
änderungen erzeugen 
skurrile Effekte 
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LISTINGS 



Das Programm stellt die Mandelbrotmenge (Apfelmänn¬ 
chen) dar. Dabei werden die Bildschirmkoordinaten in kom¬ 
plexe Zahlen umgewandelt und mit Hilfe einer Iterationsfor¬ 
mel (z:= z hoch 2-c) ausgewertet. Die Berechnung des 
Wertes z erfolgt innerhalb einer Schleife. Die Abbruchbe¬ 
dingung für diese Berechnung ist das Erreichen einer obe¬ 
ren Grenze (8) für den Wert z. Wird dieser Wert überschrit¬ 
ten, verläßt das Programm die Schleife. Einige Startwerte 
erreichen jedoch diesen Grenzwert erst sehr spät oder nie. 
Damit das Programm nicht ewig diese Schleife durchläuft, 
muß eine Iterationsgrenze angegeben werden. Diese be¬ 
stimmt, wieviel Schleifendurchläufe maximal erfolgen. In 
dem vorliegenden Programm darf der Wert für die Itera¬ 
tionsgrenze 255 nicht überschreiten. Erreicht die Zahl der 
Schleifendurchläufe die eingegebene Iterationsgrenze, 

Farbenpracht 
auf dem Bildschirm 


bricht das Programmm ab und geht über zur nächsten Be¬ 
rechnung. 

Damit Sie auch in den Genuß der 16farbigen Apfelmänn- 
chen-Bilder gelangen, geben Sie bitte das Listing 1 mit 
dem Checksummer ein. Dieses Basic-Programm ruft nach 
dem Starten das Maschinenprogramm »MS.Apfel16« (Li¬ 
sting 2) auf. Dieses muß sich unbedingt auf der Diskette im 
Laufwerk befinden und ist mit dem MSE einzugeben. Ferti¬ 
ge Bilderfinden Sie auf der Programmservice-Diskette. Wir 
wollen Ihnen nicht zumuten, 41 Blocks abzutippen, die fast 
nur aus den Folgen »00«, »FF« oder »55« bestehen. 

(Michael Aumer/ef) 


10 PRINT"CCLR,YELLOW)”:POKE 53280,11:POKE 

53281,0:POKE 55,0:POKE 56,64 <086> 

20 IF LA=0 THEN LA=l:GOSUB 130:LOAD"MS.APF 

EL16",8,1 <209> 

30 OPEN 5,0 = POKE 786.192:V=53248:POKE V+39 

,l:POKE V+40,1 <142> 

40 XU=-l:XO=2.4:YU=-l.25:YO=l.25=IT=40:GOS 

UB 60:GOTO 300 <030> 

50 REM-WRITE.- <008> 

60 POKE 785,15:POKE 50683,80:XU=USR(XU):PO 

KE 50683,85:X0=USR(X0) <211> 

70 POKE 50683,90:YU=USR(YU):POKE 50683,95: 

YO=USR(YO> <005> 

80 POKE 24420,IT:RETURN <116> 

90 REM-LESEN. <058> 

100 POKE 785,12 = POKE 50676,80:XU=USR(XU):P 

OKE 50676,85:XO=USR(XO> <067> 

110 POKE 50676,90:YU=USR(YU):POKE 50676,95 

:YO=USR(YO> <120> 

120 IT=PEEK(24420):RETURN <070> 

130 FOR N=28672 TO 28734:READ A:POKE N,A:N 

EXT <236> 

140 FOR N=28736 TO 28798:READ A:POKE N,A=N 

EXT:RETURN <090> 

150 DATA 192,0.0,192,0,0,192,0,0 <055> 

160 DATA 192,0,0,192,0,0,192,0.0 <06S> 

170 DATA 192,0,0,192,0,0.192.0,0 <075> 

180 DATA 192,0,0,192,0,0,192,0,0 <085> 

190 DATA 192,0,0,192,0,0,192,0,0 <095> 

200 DATA 192,0,0,192,0,0,192,0,0 <105> 

210 DATA 192,0,0,192,0,0,255,255,255 <233> 

220 REM- <123> 

230 DATA 255,255,255,0,0,3,0,0,3 <240> 

240 DATA 0,0,3,0,0,3,0,0,3 <200> 

250 DATA 0,0,3,0,0,3,0,0,3 <210> 

260 DATA 0,0,3,0,0,3,0,0,3 <222> 

270 DATA 0,0,3,0,0,3,0,0,3 <232> 

280 DATA 0,0,3,0,0,3,0,0,3 <242> 

290 DATA 0,0,3,0,0,3,0,0,3 <252> 

300 PRINT"CCLR,YELLOW,CTRL-H,CTRL-N)":POKE 

53280,11:POKE 53281,0 <232> 

312 D RINT"C5SPACE)APFELMAENNCHEN!C4SPACE,P 

JRPLEIVON ü. AUMERCYELLOW,2DOWN)" <096> 

320 PRINT” fiATEN EINGEBEN / ANZEIGEN . 

< 1 > CDOWN)" <098> 

330 PRINT” SILD LADEN . 

< 2 >CDOWN)“ <077> 

340 PRINT" SILD SPEICHERN . 

< 3 >CDOWN)” <048> 

350 PRINT” SILD BERECHNEN . 

< 4 >CDOWN)” <230> 

360 PRINT” AUSSCHNITT BERECHNEN . 

< 5 >CDOWN)" <152> 

370 PRINT” AILD ANZEIGEN / AARBEFFEKTE ... 

< 6 >CDOWN)” <089> 

380 PRINT" AIRECTORY . 

< 7 >CDOWN)" <014> 

390 POKE 198,0:WAIT 198,1:GET A$:POKE 198, 

0:Z=VAL(A$ >:IF Z=0 OR Z>7 THEN 390 <062> 

400 ON Z GOSUB 450,610,680,750,770,1210,42 

0 <049> 

410 GOTO 300 <100> 

420 PRINT”CCLR)";:SYS 49161:POKE 198,0:WAI 

T 198,1:POKE 198,0:RETURN <172> 

430 REM AENDERN <182> 

440 REM AENDERN <192> 

450 PRINT"CCLR)" <184> 

460 PRINT” ÄEUE AINGABEN AERAENDERN DIE ÜE 

RTE." <169> 

470 PRINT” AUR .B.E.T.U.B.N, VERAENDERT NICHTS. C2 

DOWN)” <231> 

480 GOSUB 100 <170> 

490 PRINT" LINKERC2SPACE)AAND:”;XU <017> 

500 PRINT"CUP,14RIGHT)”;:INPUT»5,XU:PRINT <038> 
510 PRINT” RECHTER AAND:";XO <115> 

520 PRINT"CUP,14RIGHT)"i:INPUT»5,XO:PRINT <036> 
530 PRINT” UNTERER AAND:";YU <207> 

540 PRINT“CUP,14RIGHT)"i:INPUT85,YU:PRINT <082> 
550 PRINT" OBERERC2SPACE)AAND:”:YO <202> 

560 PRINT”CUP,14RIGHT)"i:INPUTR5,YO:PRINT: 

PRINT <251> 

Listing 1. 

Dieses Basic-Programm steuert die Funktionen 
des »Apfelmännchen«-Programms 
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LISTINGS 


570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 


690 

700 

710 

720 

730 

740 

750 


760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


PRINT" STERATIONSGRENZE <255! :“;IT 
PRINT " CUP , 25RIGHT3 " i : INPUTt*5 , IT: PRINT: 
IF IT>255 OR IT<1 THEN 580 
GOSUB 60:RETURN 
REM LADEN 

PRINT" CCLR, DOWN, RIGHT>£ADENC2DOWN>": PR 
INT" SITTE SAME OHNE .PIC EINGEBEN." 
PRINT" MAXIMAL 12 SEICHEN.CDOWNINA$: 

PRINT" SETURN = SNDE !'C3DOWN>" 

INPUTS5,NAS:PRINT:PRINT:IF LEN< NAS > >12 
THEN RETURN 
IF NA$=""THEN RETURN 
AS=NAS +".PIC":SYS 49155,AS,8,1:RETURN 
REM SPEICHERN 

PRINT"CCLR,DOWN,RIGHT>£PEICHERNC2DOWN> 
:PRINT" SITTE SAME OHNE .PIC EINGEBEN 

PRINT" SAXIMAL 12 SEICHEN. CDOWN>" s NAS = 


<157> 

<180> 

<038> 

<016> 

< 102 > 

<255> 

<106> 

<060> 

<046> 

<174> 

<167> 


<117> 


PRINT" SETURN = SNDE !C3DOWN3“ 

INPUTÖ5,NAS:PRINT:PRINT:IF LEN(NAS)>12 
THEN RETURN 
IF NAS=""THEN RETURN 
A$=NA$+”.PIC":SYS 49158,AS,8.1:RETURN 
REM BERECHNEN 

PRINT"CCLR>"::POKE 53280,0=POKE 53281, 
0:POKE 24421,0tPOKE 24422,0=SYS 49173: 
SYS 49176 

SYS 49170:SYS 49185:SYS 49152:SYS 4919 
1= SYS 49188:RETURN 
PRINT"CCLR>" 

PRINT" STEUERUNG DES SASTENS MITTELS £ 
URSOR-" 

PRINT" TASTEN.CDOWNJ" 

PRINT" + UND - VERGROESSERT / VERKLEIN 
ERT DEN" 

PRINT"C9SPACE0SASTEN.CDOWN3" 

PRINT" <- BESCHLEUNIGT ALLE BEWEGUNGEN 
PRINT"C3SPACE3NOCHMALIGES SRUECKEN HEB 
T DIE 

PRINT"C3SPACE3SESCHLEÜNIGUNG WIEDER AU 
F !CDOWN>” 

PRINT" t BEENDET DEN VORGANG.“ 

GOSUB 100 = DX=<XO-XU)/320 = DY = < YO-YU)/20 
0 

XX=0:YY=0:KY=24:KX=KY*1.6 
POKE 198,0=WAIT 198,l:POKE 198,0 
DD=1:SYS 49185:POKE V+21,3:POKE 25592, 
192:POKE 25593,193 

KX:KY*1.6:XS=XX+24:YS=YY+KY+30:X2=XX+K 
X+l:Y2=YY+50 
S=-2*<X2>255)-(XS>255) 

POKE V+l,YS:POKE V+3,Y2:POKE V.XS AND 
255:POKE V+2.X2 AND 255:POKE V+16.S 
GET AS:IF A$=""THEN 930 
IF AS:"*-"THEN DD=9-DD 
IF A$="t"THEN 1030 


<069> 

<176> 

<130> 
< 116 > 
<085> 
<051> 


<044> 

<048> 

<252> 

<213> 

<065> 


<233> 

<204> 

<131> 


<206> 


< 112 > 

<232> 


< 011 > 

<041> 

< 221 > 


<105> 


<066> 

<060> 

<206> 

<234> 

<255> 

<050> 


960 IF A$="CDOWNI"THEN 1080 <229> 

970 IF A$="CUP>"THEN 1100 <183> 

980 IF A$="CLEFT3"THEN 1120 <231> 

990 IF AS = “CRIGHTI"THEN 1140 <209> 

1000 IF A$=”+"THEN 1160 <002> 

1010 IF A$="-"THEN 1190 <061> 

1020 GOTO 930 <042> 

1030 XU=XU+DX*XX = YU=YU+DY*YY:XO=XU+DX*KX:Y 
0=YU+DY*KY:POKE V+21,0:SYS 49188:GOSU 
B 60 <158> 

1040 PRINT"CCLR,CTRL-NI":PRINT" STERATIONS 

GRENZE:"jIT <170> 

1050 PRINT "CUP , 18RIGHT}“; : INPUT**5 , IT: PRINT <197> 
1060 IF IT>255 OR IT<1 THEN 1050 <222> 

1070 POKE 24420,IT:GOTO 750 <085> 

1080 IF YS+DD>255 THEN 930 <012> 

1090 YY=YY+DD:GOTO 900 <031> 

1100 IF Y2-DD<0 THEN 930 <202> 

1110 YY=YY-DD=GOTO 900 <179> 

1120 IF XS-DD<0 THEN 930 <232> 

1130 XX=XX-DD:GOTO 900 <091> 

1140 IF X2+DD>511 THEN 930 <004> 

1150 XX=XX+DD:GOTO 900 <239> 


1160 IF X2+DD*1.6>511 THEN 930 
1170 IF Y1+DD>255 THEN 930 
1180 KY=KY+DD:GOTO 900 
1190 IF KY-DD<2 THEN 930 
1200 KY=KY-DD:GOTO 900 

1210 PRINT"CCLR,YELLOW,CTRL-N>":POKE 53280 
,14:POKE 53281,0 

1220 PRINT"C8SPACEIANZEIGEMENUE !C2DOWN>" 

1230 PRINT" SARBEN SICHERN . 

.. < 1 >CDOWN>" 

1240 PRINT" SARBEN ZURUECK HOLEN . 

.. < 2 >CDOWN>” 

1250 PRINT" SILD IN 16 SARBEN ZEIGEN . 

.. < 3 >CDOWN>" 

1260 PRINT" SILD IN 4C2SPACE0SARBEN ZEIGEN 
. < 4 >CDOWN>" 

1270 PRINT" SARBGEBUNG AENDERN . 

.. < 5 >CDOWN>" 

1280 PRINT" SENUE2 VERLASSEN . 

.. < 6 >CDOWN>" 

1290 POKE 198.0:WAIT 198,1:GET AS=POKE 198 
,0 

1300 Z=VAL(AS):IF Z=0 OR Z>6 THEN 1290 

1310 IF Z=6 THEN RETURN 

1320 ON Z GOSUB 1340,1350,1360,1470,1620 

1330 GOTO 1210 

1340 SYS 49191:RETURN 

1350 SYS 49194:RETURN 

1360 PRINT"CCLR}" 

1370 PRINT" R ROTIERT EINMALCSPACE,DOWN>" 
1380 PRINT" t ZURUECK IN ÜENUE2" 

1390 POKE 198,0:WAIT 198,l:POKE 198,0 
1400 POKE 53280,0:POKE 53281,RR:SYS 49185 
1410 R:0 
1420 REM 

1430 GET AS: IF A$='"'THEN 1430 
1440 IF A$="R"THEN SYS 49182:GOTO 1430 
1450 IF A$="t"THEN SYS 49188:RETURN 
1460 GOTO 1420 
,1:470 T.UINT" CCLR}" 

1480 raINT" Fl SCHALTET SARBE1 WEITER" 

1490 PRINT" F3 SCHALTET SARBE2 WEITER“ 

1500 PRINT" F5 SCHALTET SARBE3 WEITER" 

1510 PRINT" F7 SCHALTET SINTERGRUND WEITER 

1520 PRINT"CDOWN,SPACEOt : ZURUECK ZUM SEN 
UE2" 

1530 A=106:B=7:C=0:POKE 198,0:WAIT 198,1:P 
OKE 198,0 

1540 SYS 49185:POKE 24421,A:POKE 24422,B:S 
YS 49173:POKE 53280,0:POKE 53281,C 
1550 GET AS : IF AS = '"'THEN 1550 
1560 IF AS="t"THEN SYS 49188:SYS 49194:RET 
URN 

1570 IF A$="CF7>"THEN C=(15 AND(C+1)):POKE 
53281,C:GOTO 1550 

1580 IF A$="CF5>"THEN B=(15 AND(B+1)):POKE 
24422,B:SYS 49173:GOTO 1550 
1590 IF A$="CF10"THEN A=(255 AND(A+16)):PO 
KE 24421,A:SYS 49173:GOTO 1550 
1600 IF A$="CF3>"THEN A=<A AND 240>+(15 AN 
D(1 + (A AND 15>)):POKE 24421,A:SYS 491 
73:GOTO 1550 
1610 GOTO 1550 
1620 PRINT"CCLR>" 

1630 PRINT" SITTE GEBEN SIE DIE NEUEN SARB 
EN EIN !" 

1640 PRINT" SINTERGRUND:";:INPUT«5,RR:PRIN 
T 

1650 FOR N=1 TO 15 

1660 PRINT" BARBE"N;TAB( 17 > “ : " ; : INPUTtf5 , A: 
PRINT 

1670 POKE 50343+N,A:NEXT 
1680 SYS 49179:RETURN 
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Listing 1. 

Hauptprogramm »Apfelmännchen« 
(Schluß) 


<173> 

<068> 

<127> 

<042> 

<019> 

<226> 

<098> 

<109> 

<062> 

<253> 

< 002 > 

<116> 

<153> 

<046> 
<160> 
<073> 
<071> 
<064> 
<087> 
<227> 
<078> 
<233> 
< 011 > 
<223> 
<177> 
<109> 
< 212 > 
< 211 > 
<130> 
< 001 > 
< 002 > 
<188> 
<146> 
• <228> 
<054> 

<049> 

<039> 

<058> 

<172> 

<142> 

<028> 

<174> 

<251> 

<229> 


<177> 

< 010 > 

<084> 

<176> 

<231> 

<061> 

<076> 

<155> 

<048> 
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LISTINGS 


Name 

ms 

.apfell6 



cOOO c601 

c220 

cO 

8c 

67 

cO 

c8 

ad 65 

cO 

29 

c450 : 

85 

f8 

a2 

lf 

a9 

00 

91 

f7 

af 

oOOO : 

4o 



4c 


c4 




c 228 

cd 

66 

cO 

bO 

06 

8d 66 

cO 

56 

c458 : 

c8 

dO 

fb 

e6 

f8 

ca 

dO 

f6 

7b 

5f 

cl 

12 

4c 

30 

cf 

c230 

: 8c 

67 

cO 

ac 

67 

cO cO 

03 

bb 

c460 : 

91 

f7 

c8 

cO 

40 

90 

f9 

60 

68 

c008 : 

o4 

4c 

bl 

o3 

4c 

f3 

c5 

4c 

eb 

c238 

: bO 

Oa 

cO 

01 

dO 

03 4c 

4c 

2d 

c468 : 

a9 

00 

85 

f7 

85 

f9 

85 

14 

d8 

oOlO : 

fa 

o5 

4c 

49 

c4 

4c 

68 

c4 

03 

c240 

: c2 

4c 

66 

c2 

dO 

03 4c 

86 

7e 

c470 : 

a9 

60 

85 

f8 

a9 

64 

85 

fa 

93 

c018 : 

4c 

o7 

c4 

4c 

e4 

c4 

4c 

d3 

50 

c248 

: c 2 

4c 

ac 

c2 

a9 

07 8d 

69 

90 

c478 : 

a9 

d8 

85 

15 

a2 

04 

ad 

65 

5d 

c020 : 

c4 

4c 

b9 

c5 

4c 

d6 

c5 

4c 

5c 

c250 

: cO 

a9 

03 

8d 

68 

cO 20 

CC 

fe 

c480 : 

5f 

91 

f7 

ad 

66 

5f 

91 

f9 

f7 

0028 : 

91 

o5 

4c 

a5 

c5 

00 

40 

80 

c2 

c258 

c2 

ce 

68 

cO 

10 

f8 ce 

69 

8a 

c488 : 

91 

14 

c8 

dO 

fi 

e6 

f8 

e6 

77 

c030 : 

cO 

00 

10 

20 

30 

00 

04 

08 

lc 

c260 

cO 

10 

ee 

4c 

7b 

c 3 a9 

07 

f8 

c490 : 

fa 

e6 

15 

ca 

dO 

e8 

60 

00 

72 

c038 : 

Oo 

00 

01 

02 

03 

00 

00 

00 

f5 

c268 

8d 

69 

cO 

a9 

00 

8d 68 

cO 

9f 

c498 : 

01 

Of 

Oc 

Ob 

07 

02 

Oa 

06 

3a 

c040 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

3f 

c270 

20 

cc 

c2 

ac 

68 

cO c8 

8c 

05 

c4a0 : 

Oe 

03 

09 

08 

05 

Od 

04 

00 

3c 

c048 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

47 

c278 

68 

cO 

cO 

04 

90 

f2 ce 

69 

aO 

c4a8 : 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

c050 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

4f 

c280 

cO 

10 

e8 

4c 

7b 

c3 a9 

00 

88 

c4b0 : 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

c058 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

7f 

56 

c288 

8d 

69 

cO 

a9 

00 

8d 68 

cO 

bf 

c4b8 : 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

o060 : 

00 

00 

00 

00 

00 

00 

00 

00 

61 

c290 

20 

cc 

c2 

ac 

68 

cO c8 

8c 

25 

c4c0 : 

ff 

ff 

ff 

ff 

a2 

Of 

bd 

a2 

9d 

c068 : 

00 

00 

00 

00 

00 

ac 

60 

cO 

dl 

c298 

68 

cO 

cO 

04 

90 

f2 ac 

69 

37 

c4c8 : 

Of 

bd 

97 

c4 

9d 

40 

5f 

ca 

23 

c070 : 

20 

a2 

b3 

a9 

3d 

aO 

cO 

20 

lf 

c2a0 

cO 

c8 

8c 

69 

cO 

cO 08 

90 

68 

c4d0 : 

10 

f7 

60 

a2 

Oe 

bd 

41 

5f 

db 

o078 : 

28 

ba 

a9 

50 

aO 

5f 

20 

67 

c6 

c2a8 

e2 

4c 

7b 

c3 

a9 

00 8d 

69 

ab 

c4d8 : 

9d 

a7 

c4 

ca 

10 

f7 

ad 

4l 

cd 

c080 : 

b8 

20 

b4 

bf 

a2 

47 

aO 

cO 

d6 

c2b0 

cO 

a9 

03 

8d 

68 

cO 20 

cc 

5e 

c4e0 : 

5f 

8d 

b6 

c4 

a9 

00 

85 

f7 

ed 

c088 : 

20 

d4 

bb 

ac 

61 

cO 

20 

a2 

79 

c2b8 

c2 

ce 

68 

cO 

10 

f8 ac 

69 

62 

c4e8 : 

85 

f9 

85 

14 

a8 

aa 

a9 

60 

95 

c090 : 

b3 

a9 

42 

aO 

cO 

20 

28 

ba 

eO 

c2c0 

cO 

c8 

8c 

69 

cO 

cO 08 

90 

88 

c4fO : 

85 

f8 

a9 

64 

85 

fa 

a9 

d8 

71 

o098 : 

a9 

5a 

aO 

5f 

20 

67 

b8 

20 

e3 

c2c8 

e8 

4c 

7b 

c3 

ad 

5e cO 

Od 

18 

c4f8 : 

85 

15 

a2 

Of 

bd 

40 

5f 

a8 

3f 

oOaO : 

b4 

bf 

a2 

4c 

aO 

cO 

20 

d4 

aO 

c2d0 

68 

cO 

8d 

60 

cO 

ad 5f 

cO 

80 

c500 : 

bd 

a7 

c4 

99 

b7 

c4 

ca 

10 

e2 

c0a8 : 

bb 

a2 

Oa 

a9 

00 

9d 

51 

cO 

20 

c2d8 

Od 

69 

cO 

8d 

61 

cO 20 

6d 

f3 

c508 : 

f3 

aO 

00 

78 

ad 

11 

dO 

30 

61 

cObO : 

ca 

10 

fa 

a9 

01 

8d 

5b 

cO 

e2 

c2eO 

cO 

90 

01 

60 

ad 

6b cO 

Od 

88 

c510 : 

fb 

ad 

12 

dO 

c9 

36 

90 

f4 

fb 

c0b8 : 

8d 

5c 

cO 

a9 

ff 

8d 

5d 

cO 

3o 

c2e8 

69 

cO 

85 

f7 

ad 

6c cO 

18 

83 

c518 : 

bl 

f7 

aa 

4a 

4a 

4a 

4a 

a8 

2a 

cOcO : 

a9 

51 

aO 

cO 

20 

a2 

bb 

a9 

ab 

c2f0 

69 

40 

85 

f8 

ad 

68 cO 

Oa 

2f 

c520 : 

b9 

b7 

c4 

85 

fb 

8a 

29 

Of 

6d 

cOo8 : 

51 

aO 

cO 

20 

28 

ba 

20 

ca 

Oc 

c2f8 

Oa 

18 

6d 

5c 

cO 

aa bd 

2d 

aö 

c528 : 

aa 

bd 

b7 

c4 

85 

fc 

aO 

00 

fa 

cOdO : 

bb 

a9 

56 

aO 

cO 

20 

a2 

bb 

18 

c300 

cO 

8d 

6a 

cO 

aO 

00 bl 

f7 

fa 

c530 : 

bl 

f9 

aa 

bd 

b7 

c4 

91 

f9 

lc 

c0d8 : 

a9 

56 

aO 

cO 

20 

28 

ba 

20 

5b 

c308 

Od 

6a 

cO 

91 

f7 

ad 6c 

cO 

cd 

c538 : 

91 

14 

a5 

fb 

Oa 

Oa 

Oa 

Oa 

e9 

cOeO : 

07 

bb 

a9 

57 

aO 

00 

20 

67 

33 

c310 

4a 

85 

fa 

ad 

6b 

cO 6a 

85 

03 

c540 : 

05 

fc 

91 

f7 

e6 

f7 

e6 

14 

18 

cOe8 : 

b8 

a5 

61 

c9 

84 

90 

02 

18 

09 

c318 

f9 

46 

fa 

66 

f9 

46 fa 

66 

4a 

c548 : 

e6 

f9 

dO 

06 

e6 

f8 

e6 

15 

lc 

oOfO : 

60 

a9 

51 

aO 

cO 

20 

a2 

bb 

9c 

c320 

f9 

a5 

fa 

18 

69 

60 85 

fa 

53 

c550 : 

e6 

fa 

a5 

f8 

c9 

63 

bO 

03 

bc 

cOf8 : 

e6 

61 

a9 

56 

aO 

cO 

20 

28 

a5 

c328 

aO 

00 

bl 

f9 

aa 

4a 4a 

4a 

2f 

c558 : 

4c 

18 

c5 

a5 

f7 

c9 

e8 

bO 

a9 

clOO : 

ba 

a9 

4o 

aO 

cO 

20 

67 

b8 

d2 

c330 

4a 85 

fb 8a 29**:* 85 

fc 

a8 

c560 : 

03 

4c 

18 

c5 

58 

a2 

Of 

bd 

9a 

0108 : 

a2 

56 

aO 

cO 

20 

d4 

bb 

a9 

00 

c338 

18 

a5 

fa 

69 

04 

85 fa 

bl 

ca 

c568 : 

a7 

c4 

9d 

40 

5f 

ca 

10 

f7 

5d 

cllO : 

5c 

aO 

00 

20 

a2 

bb 

a9 

57 

le 

c340 

f9 

85 

fd 

ae 

5b 

cO bd 

40 

84 

c570 : 

60 

a2 

04 

aO 

00 

98 

85 

f7 

01 

oll8 : 

aO 

00 

20 

50 

b8 

a9 

47 

aO 

02 

c348 

5f 

ae 

5c 

cO 

eO 

02 90 

05 

98 

c578 : 

85 

f9 

a9 

64 

85 

f8 

a9 

d8 

69 

cl20 : 

oO 

20 

67 

b8 

a2 

51 

aO 

cO 

9a 

c350 

dO 

06 

85 

fc 

2c 

85 fb 

2c 

5b 

c580 : 

85 

fa 

bl 

f7 

91 

f9 

c8 

dO 

9b 

ol28 : 

20 

d4 

bb 

ee 

5d 

cO 

ad 

5d 

cc 

c358 

85 

fd 

a5 

fd 

91 

f9 38 

a5 

la 

c588 : 

f9 

e6 

f8 

e6 

fa 

ca 

dO 

f2 

3e 

ol30 : 

oO 

cd 

64 

5f 

90 

01 

60 

aO 

bO 

c360 

fa 

e9 

04 

85 

fa 

a5 fb 

Oa 

el 

C590 : 

60 

a9 

00 

a8 

85 

f7 

85 

f9 

fc 

ol38 : 

01 

ee 

5c 

cO 

ad 

5c 

cO 

c9 

34 

c368 

Oa 

Oa 

Oa 

05 

fc 

91 f9 

18 

Of 

C598 : 

a9 

60 

85 

f8 

a9 

68 

85 

fa 

de 

cl40 : 

04 

90 

03 

8c 

5c 

cO 

ee 

5b 

ld 

c370 

a5 

fa 

69 

78 

85 

fa a5 

fd 

be 

c5aO : 

a2 

08 

4c 

82 

c5 

a9 

00 

a8 

a5 

cl48 : 

cO 

ad 

5b 

cO 

c9 

10 

90 

03 

33 

c378 

91 

f9 

60 

ad 

6b 

cO 18 

69 

c4 

c5a8 : 

85 

f7 

85 

f9 

-9 

68 

85 

f8 

af 

cl50 : 

80 

5b 

oO 

4c 

cO 

cO 

a5 

66 

b9 

c380 

08 

8d 

6b 

cO 

90 

03 ee 

6c 

f7 

c5bO : 

a9 

60 

85 

fa 

a2 

08 

4c 

82 

eb 

0158 : 

45 

6e 

85 

6f 

a5 

61 

60 

78 

fb 

c388 

cO 

ad 

5e 

cO 

18 

69 04 

8d 

c6 

c5b8 : 

c5 

ad 

11 

dO 

09 

20 

8d 

11 

9c 

0 I 6 O : 

aO 

00 

8c 

6b 

cO 

8c 

6c 

cO 

34 

c390 

5e 

cO 

c9 

aO 

bO 

03 4c 

b4 

92 

c5cO : 

dO 

a9 

81 

8d 

18 

dO 

a9 

02 

2a 

cl68 : 

8c 

5f 

cO 

8c 

5e 

cO 

a9 

50 

99 

c398 

cl 

ad 

5f 

cO 

18 

69 08 

8d 

28 

c5c8 : 

8d 

00 

dd 

ad 

16 

dO 

09 

10 

af 

ol70 : 

aO 

5f 

20 

a2 

bb 

a9 

55 

aO 

bc 

c3aO 

5f 

cO 

c9 

c8 

bO 

08 a9 

00 

dd 

c5dO : 

8d 

16 

dO 

4c 

71 

c5 

ad 

16 

4e 

0178 : 

5f 

20 

50 

b8 

20 

Oc 

bc 

aO 

a9 

c3a8 

8d 

5e 

cO 

4c 

b4 

cl 58 

60 

99 

c5d8 : 

dO 

29 

ef 

8d 

16 

dO 

ad 

11 

ab 

0 I 8 O : 

aO 

20 

a2 

b3 

20 

56 

cl 

20 

4b 

c3b0 

24 

a9 

02 

a2 

08 

aO 00 

20 

44 

c5eO : 

dO 

29 

df 

8d 

11 

dO 

a9 

15 

57 

0 I 88 : 

12 

bb 

a2 

3d 

aO 

cO 

20 

d4 

02 

c3b8 

ba 

ff 

a9 

01 

a2 

bO aO 

c3 

b6 

c5e8 : 

8d 

18 

dO 

a9 

c7 

8d 

00 

dd 

8f 

cl90 : 

bb 

a9 

5a 

aO 

5f 

20 

a 2 

bb 

c3 

c3c0 

20 

bd 

ff 

20 

cO 

ff a2 

02 

5d 

c5fO : 

4c 

44 

e5 

a9 

50 

aO 

5f 

4c 

2d 

0198 : 

a9 

5f 

aO 

5f 

20 

50 

b8 

20 

ad 

c3c8 

20 

c6 

ff 

20 

cf 

ff 20 

cf 

6c 

c5f8 : 

a2 

bb 

a2 

50 

aO 

5f 

4c 

d4 

Oa 

olaO : 

Oo 

bc 

aO 

c8 

20 

a2 

b3 

20 

72 

c3d0 

ff 

20 

cf 

ff 

a5 

90 dO 

32 

5a 

c600 : 

bb 

00 

ff 

ff 

ff 

ff 

00 

00 

bb 

ola8 : 

56 

cl 

20 

12 

bb 

a2 

42 

aO 

44 

c3d8 

20 

cf 

ff 

fO 

2d 

a6 90 

dO 

ea 











olbO : 

cO 

20 

d4 

bb 

18 

ad 

5e 

cO 

17 

c3eO 

29 

20 

cf 

ff 

a6 

90 dO 

22 

84 











clb8 : 

8d 

60 

cO 

ad 

5f 

cO 

8d 

61 

50 

c3e8 

85 

fa 

20 

cf 

ff 

a6 90 

dO 

05 











0 I 0 O : 

oO 

20 

6d 

cO 

ad 

5d 

cO 

8d 

e8 

c3fO 

19 

a6 

fa 

20 

cd 

bd 20 

cf 

Oa 











clc8 : 

62 

oO 

ad 

5e 

cO 

09 

03 

8d 

3d 

c3f8 

ff 

a6 

90 

dO 

Od 

20 d2 

ff 

a6 











cldO : 

60 

cO 

20 

6d 

cO 

ad 

5d 

cO 

b6 

c400 

dO 

f4 

a9 

Od 

20 

d2 ff 

4c 

88 











old8 : 

8d 

63 

cO 

ad 

5f 

cO 

09 

07 

2b 

c408 

dl 

c3 

20 

cc 

ff 

a9 02 

4c 

4a 











oleO : 

8d 

61 

cO 

20 

6d 

cO 

ad 

5d 

aO 

c4lO 

c3 

ff 

20 

fd 

ae 

20 d4 

el 

9e 











cle8 : 

cO 

8d 

64 

cO 

ad 

5e 

cO 

8d 

8c 

c4l8 

a9 

00 

a8 

a2 

40 

20 d5 

ff 

9c 











clfO : 

60 

cO 

20 

6d 

cO 

ad 

5d 

cO 

d6 

c420 

bO 

Ob 

20 

b7 

ff 

29 bf 

fO 

7f 

Listing 










clf8 : 

8d 

65 

cO 

aO 

01 

ad 

62 

cO 

05 

c428 

03 

4c 

9c 

el 

60 

4c f9 

eO 

c7 

2. 









c200 : 

8d 

66 

cO 

8c 

67 

cO 

c8 

ad 

7d 

c430 

20 

fd 

ae 

20 

d4 

el a2 

00 

e5 

Diese Routine dient 

zur 




c208 : 

63 

cO 

cd 

66 

cO 

bO 

06 

8d 

dO 

c438 

8a 

aO 

68 

85 

f7 

a9 40 

85 

b6 

Berechnung der 







c210 : 

66 

oO 

8c 

67- 

cO 

c8 

ad 

64 

b8 

c440 

f8 

a9 

f7 

20 

d8 

ff bO 

e5 

2b 

Grafiken. Bitte mit dem 

MSE 



c218 : 

oO 

cd 

66 

cO 

bO 

06 

8d 

66 

af 

c448 

60 

a9 

00 

a8 

85 

f7 a9 

40 

dl 

(Seite 159) 

eingeben. 
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DEM HEIMCOMPUTER 


Auch Computer kön¬ 
nen kreativ sein. Ein 
gutes Beispiel dafür 
sind die Fractals, die 
richtig dargestellt 
der Natur ähnliche 
Gebirgszüge und 
Landschaften zei¬ 
gen. Entwerfen Sie 
Ihre eigene Compu¬ 
ter-Gegend, wie es 
sonst nur die Profis 
beherrschen. 


ier zeigt sich das Chaos von seiner besten Seite. Die 
grafische Darstellung der sogenannten Fractals auf 
dem C 64 erzeugt Zufalls-Landschaften, die der Natur 
recht ähnlich sind. Nicht umsonst werden diese Grafiken 
auch in Computerspielen (z. B. Rescue on Fractalus oder 
Koronis Rift) und professionellen Simulationen zur Land¬ 
schaftserzeugung benutzt. Dort allerdings nicht mit den 
hier benutzten Zufallselementen, sondern mit geplanten 
und vorberechneten Stützpunkten. 

Eingabehinweise 

Tippen Sie das Basic-Listing »Fractale.bas 1.4« (Listing 1) 
sowie die MSE-Listings »Fractale 9.0« (Listing 2) »Bie¬ 
ne/Maus« (Listing 3) und »Menüzeile« (Listing 4) ab und 
speichern Sie sie auf derselben Seite einer Diskette. (Dies 
ist wichtig, da das Basic-Programm die übrigen Program¬ 
me nachlädt.) 

Bedienungsanleitung 

Haben Sie die Listings wie unter den Eingabehinweisen 
angegeben abgetippt und gespeichert, so können Sie mit 

LOAD "FRACTALE.BAS*", 8:RUN 

das Hauptprogramm laden und starten. Es erscheint dann 
die Meldung »Bitte warten!«, denn nun werden die drei übri¬ 
gen F ogramme nachgeladen. Danach meldet sich das 
Fractal-Programm mit der Ausgangsgrafik für eine Land¬ 
schaft und seiner Menüzeile am oberen Bildschirmrand. 
Außerdem ist noch ein Maus-Cursor in Form eines weißen 
Pfeils sichtbar, den Sie mit dem Joystick in Port 2 bewegen 
können. Mit Hilfe dieses Cursors können Sie die folgenden 
Befehle der Menüzeile anwählen: NEXT, RUN, DLOAD, 
DSAVE, GLOAD, GSAVE. 

Das Anwählen eines Befehls geschieht durch Plazieren 
des Pfeils auf dem jeweiligen Befehl und anschließendes 
zweimaliges Drücken des Feuerknopfes. Nach dem ersten 
Druck auf die Feuertaste wird der dadurch angewählte Be¬ 
fehl in der Menüleiste invertiert. Klickt man ihn nun noch 
einmal an, so wird er ausgeführt. Hat man den Pfeil inzwi¬ 
schen auf einen anderen Befehl bewegt, so wird dieser in¬ 
vertiert und der vorher gewählte Befehl wieder normal 
(schwarz-grau) dargestellt. Das gleiche geschieht auch, 
wenn Sie nach einmaligem Anklicken des Befehls den 
Pfeil-Cursor von der Menüleiste herunterbewegen und er¬ 
neut den Feuerknopf betätigen. 

NEXT 

Dieser Befehl bewirkt, daß das Programm die nächste 
Verfeinerung der Fractal-Grafik berechnet, sofern dies 
möglich, d. h. noch sinnvoll ist. Bereits nach sechsmaligem 
Halbieren der Dreiecksseiten ist nämlich die Grenze des 
Auflösungsvermögens erreicht. Man sieht dies in der Grafik 
daran, daß kaum noch die Linien zu erkennen sind, aus de¬ 
nen sie aufgebaut ist, sondern diese zu unregelmäßigen 
Flächen zusammengerückt sind. 

Wählt man in dieser Situation trotzdem NEXT an, so ge¬ 
schieht nichts; der C 64 führt diesen Befehl nicht aus. Man 
befindet sich danach weiterhin im Auswahlmodus. 

Der Computer zeigt übrigens während des Berech¬ 
nungsvorganges eine kleine Biene anstelle des Pfeils als 
Zeichen dafür, daß er sozusagen »emsig« beschäftigt ist. 
Dies gilt auch für alle anderen Programmpunkte, in denen 














LISTINGS 



der Computer beschäftigt ist, und man nicht sofort erken¬ 
nen kann, daß er wirklich etwas tut und nicht abgestürzt ist. 

Will man nun eine neue Landschaft erstellen, so muß 
man den nächsten Befehl anwählen: 

RUN 

Damit starten Sie das Maschinenprogramm neu, haben 
aber — im Gegensatz zum eigentlichen Programmstart 
vom Basic aus mit RUN — die Möglichkeit, die Lage der 
Ausgangsdreiecke für die nächste Grafik dadurch zu beein¬ 
flussen, daß Sie nun Stützpunkte eingeben können. Sie 
werden vom Programm gefragt: 

Wollen Sie Stützpunkte eingeben (j/n)? 

Wenn Sie diese Frage mit < N > wie »nein« beantworten, 
befindet sich das Programm einige Augenblicke später im 
gleichen Zustand wie nach dem Start, und Sie können er¬ 
neut auf der Menüleiste auswählen. Der C 64 wählt die 
Stützpunkte danach über Zufallszahlen. 

Haben Sie <J> für »ja« getippt, so erscheint nun eine 
Skizze auf dem Bildschirm, die Sie über die Lage der Stütz¬ 
punkte auf dem Bildschirm aufklärt. Sodann werden Sie 
aufgefordert, die Höhen der sechs Stützpunkte einzuge¬ 
ben. Mit diesen Stützpunkten können Sie das Aussehen 
der Landschaft entscheidend mitbestimmen, da die Lage 
dieser Punkte im weiteren Programmverlauf nicht verän¬ 
dert wird. 

Geben Sie z. B. folgende Werte für die Höhen ein: 

10 , - 10 , 10 , - 10 , - 10 , 10 

Sie erhalten dann mehr oder weniger Berge an den 
Ecken des großen Dreiecks und einen See in der Mitte. 



Bild 1 bis 6. Nach der Eingabe der Werte entwickelt sich 



Wählen Sie hingegen 
-5,10, -5, 10, 10, -5 

so ergibt sich eine Insel in der Bildschirmmitte, die vom 
Meer umgeben ist. Experimentieren Sie ruhig mit den Wer¬ 
ten, und lassen Sie sich von den Ergebnissen überra¬ 
schen! Es dürfen allerdings nur Werte eingegeben werden, 
die zwischen -31 und 31 liegen. 

Bei der Eingabe von Stützpunkten können für jeden der 
sechs Punkte 61 verschiedene Werte eingegeben werden. 
Also sind nur mit Hilfe der Stützpunkte 61 6 =5,2* 10 10 un¬ 
terschiedliche Kombinationen und damit Landschaften 
möglich! Und dazu kommen dann noch die Veränderungen 
durch die nachfolgenden Rechenschritte. 

DLOAD 

Dies ai - '^unkt dient dazu, die Höhendaten für eine Land¬ 
schaft zu laden, die irgendwann vorher gespeichert wur¬ 
den. Er dürfte vor allem dann Verwendung finden, wenn Sie 
ausprobieren wollen, was für unterschiedliche Grafiken 
aus derselben Ausgangslage entstehen können. 

Haben Sie also diesen Befehl angewählt, so wird in den 
Textbildern umgeschaltet, und der Computer fragt Sie nach 
dem Namen des zu ladenden Files. Geben Sie hier den Na¬ 
men ein, unter dem Sie es gespeichert hatten. Sollten Sie 
den Namen einmal nicht mehr wissen, so können Sie sich 
durch Eingabe von <$> als Filename das Inhaltsverzeich¬ 
nis der gerade eingelegten Diskette ausgeben lassen. 

Wollen Sie diesen Programmteil verlassen, ohne irgend¬ 
welche Daten zu laden, so gelangen Sie durch Eingabe ei¬ 
nes < RETURN > als Filename zurück zur Grafik und in 
den Auswahlmodus. 
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Die Befehle <$> und < RETURN > können auch in den 
folgenden Programmpunkten angewandt werden. 

Im Filenamen dürfen auch die sogenannten Jokerzei¬ 
chen (»?«, »*«) Vorkommen; die Eingabe eines »*« allein als 
Filename veranlaßt den Computer dazu, das erste Datenfi¬ 
le auf der Diskette zu laden. Gleiches gilt auch für den Pro¬ 
grammpunkt GLOAD, hingegen nicht für die Punkte DSA- 
VE und GSAVE, da Jokerzeichen beim Speichern nicht zu¬ 
lässig sind. 

DSAVE 

Hiermit lassen sich die Höhendaten der gerade darge¬ 
stellten Landschaft speichern. Auch hier wird wieder in den 
Textmodus zurückgeschaltet, und das Programm fragt 
nach dem Namen, unter dem die Daten gespeichert wer¬ 
den sollen. Es empfiehlt sich, einen für die jeweilige Land¬ 
schaft charakteristischen Namen zu verwenden, z. B. 
»Atolle«, »Inselgruppe«, »Fjorde«. 

GLOAD 

Mit diesem Befehl können Sie Grafiken, die einmal ge¬ 
speichert wurden, wieder laden. Auch hier muß wieder der 
Name des zu ladenden Files eingegeben werden. Diese 
Grafik wird dann so lange gezeigt, bis Sie den Feuerknopf 
an Ihrem Joystick betätigen. Dann wird wieder die aktuelle 
Grafik, die sich vordem Laden auf dem Bildschirm befand, 
eingeblendet. War diese im gleichen Modus (Multi/Hires) 
wie die geladene Grafik, so erfolgt ein weiches, zeilenwei¬ 
ses Umblenden, das Sie auch bei der Ausführung des Be¬ 
fehls NEXT beobachten können. Handelte es sich hinge¬ 
gen um unterschiedliche Modi, so wird die Grafik gelöscht, 
der vorher herrschende Modus eingeschaltet und die alte 
Grafik dargestellt. 

GSAVE 

Dieser Befehl wurde implementiert, da der Benutzer si¬ 
cherlich früher oder später eine besonders gelungene 
Landschaft zu irgendwelchen anderen Zwecken weiterver¬ 
wenden oder mit einem Zeichenprogramm bearbeiten will. 

Hier muß wieder der Name eingegeben werden, unter 
dem die Grafik auf Diskette gespeichert werden soll. Die 
Befehle <$> sowie < RETURN > sind auch hier möglich; 
die Verwendung von Jokerzeichen hingegen nicht. 

HIRES/MULTI 

Dieser Befehl ist der letzte in der Menüleiste. Je nach ge¬ 
rade aktivem Grafikmodus wird der entsprechende Befehl 
eingeblendet. Im Hires-Modus wird MULTI angezeigt, bei 
Multicolor HIRES. 

Dieser Befehl dient dazu, die gerade in einem bestimm¬ 
ten Modus gezeigte Landschaft in dem anderen Modus 


Kurzinfo: Computerlandschaften 


Programmart: Tool zum Generieren von “Computerlandschaften« 
Laden: LOAD " FRACTALE.BAS* ",8 
Start: Nach dem Laden RUN eingeben 
Besonderheiten: Das Basic-Programm lädt die 
Maschinensprache-Programme »FRACTALE 9.0«, »BIENE/MAUS« 
und »MENUEZEILE« nach. Die Steuerung erfolgt über einen Joy¬ 
stick in Port 2. Verändert sich der Cursor-Pfeil zu einer »Biene«, be¬ 
findet sich der Computer in einer Berechnungsphase. 
Programmautor: I. Camphausen 


darzustellen. Dies ist allerdings nur möglich, wenn sich 
auch die zugehörigen Daten gerade im Speicher befinden, 
denn bei der Ausführung dieses Befehls muß die Land¬ 
schaft neu gezeichnet werden. Er kann also nicht ange¬ 
wählt werden, wenn gerade eine mit GLOAD geladene Gra¬ 
fik angezeigt wird. 

Im Multicolor-Modus werden die Landschaften mit grü¬ 
nen Bergen und blauen Gewässern vor schwarzem Hinter¬ 
grund gezeichnet; im Hires-Modus nur grün auf schwarz, 
da hier nur zwei Farben möglich sind. Die Wasserflächen 
kann man daran erkennen, daß sie aus besonders regelmä¬ 
ßigen Dreiecken bestehen. Die Dreiecke sind im Multicolor- 
Modus nicht mehr zu erkennen. 

Im folgenden finden Sie eine Auflistung der Speicherstel¬ 
len, deren Inhalte Sie je nach Wunsch verändern können, 
um das Programm nach Ihrem Gutdünken zu gestalten: 
Rahmenfarbe 

32774=$8006, 0 (Schwarz)...15 (Hellgrau) 
Hintergrundfarbe für Text 
34208=$85A0, 0...15 
Farben für Grafik 

a) Hw«.-.-Grafik: 

34078=$851E Low-Nibble=Hintergrund 
High-Nibble=Zeichenfarbe 

b) Multicolor-Grafik 

34075=$851B Low-Nibble=Farbe für Wasserflächen 
High-Nibble=Farbe für Berge 
33133=$816D Low-Nibble=Hintergrundfarbe 

Farbe(n) der Menüzeilen 

a) Hires: 

34099=$8533 Low-Nibble=Zeichenfarbe 
High-Nibble=Hintergrundfarbe 

b) Multicolor: 

34104=88538 Low-Nibble=Hintergrundfarbe 
Farbe für Maus/Biene 
35142=88946 Low-Nibble=Farbe der Maus 
35131 =8893B Low-Nibble=Farbe der Biene 
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LISTINGS 


Geschwindigkeit der Maus 

34989=$88AD, 1 (schnell)...255 (sehr langsam) 
Mindestpause beim Doppelklick 
32846=$804E, 1 (kurz)...255 (lang) 

Verzögerung beim zeilenweisen Umblenden 
35267=$89C3, 1 (gering)...255 (groß) 

Experimentieren Sie mit dem Programm, werden Sie die 
Grafiken ebenso faszinierend finden wie wir. Sollten Sie 
Landschaften für eigene Programme verwenden, informie¬ 
ren Sie uns; interessante Programme sind immer willkom¬ 
men. (I. Camphausen/ef) 


10 REM FRACTALS (BASIC-STEUERPGM) <076> 
20 REM VI.4 <233> 
30 REM FUER C64 UND VC1541 <252> 
40 REM BESCHRIEBEN VON <004> 
50 REM I. CAMPHAUSEN <249> 
60 : <036> 
70 : <046> 
S0 : <056> 
100 IF A=0 THEN PRINT"CCLR,12D0WN>",-TAB<13 

>;"BITTE WARTEN!“ <042> 
110 IF A=0 THEN POKE 55,0.-POKE 56,96:CLR:A 

=1:LOAD“FRACTALE 9.0",8,1 <118> 
120 IF A=1 THEN A=2:LOAD"MENUEZEILE",S,1 <045> 
130 IF A=2 THEN A=3:LOAD"BIENE/MAUS",B,1 <036> 
140 : <116> 
400 REM <20S> 
410 REM ************************** <196> 
420 REM EINSPRUNBSADRESSEN FUER MC <107> 
430 REM ************************** <216> 
440 REM <24B> 
500 RU=32799 <076> 
510 R2=32B23 <171> 
520 BEFEHL=35115 <177> 
530 GIN=32995 <027> 
540 TASTE=35601 <237> 
550 DIR=35617 <21B> 
560 NLAENBE=358B7 <055> 
570 DL0A=35B8B <0BB> 
5B0 DSAV=35901 <006> 
590 BL0A=35924 <066> 
600 BSAV=35937 <093> 
610 : <078> 
620 Al<1)=DL:A1<2>=DS:A1C3)=BL:A1<4)=GS <123> 
630 A2(1)=RU:A2(2)=R2:A2(3> =GIN :A2(4)=R2 <05B> 
640 FOR 1=1 TO 6:READ AD(I):NEXT I <255> 
650 DATA 24576,24608,24640,26656,26688,287 

36 <053> 
660 FOR 1=1 TO 4:READ UE*(I):NEXT I <213> 
670 DATA " DLOAD DSAVE ",“ GLOAD "," G 

SAVE " <08B> 
680 : <14B> 
690 : <15B> 
1000 REM <044> 
1010 REM ************* <010> 
1020 REM HAUPTPROGRAMM <047> 
1030 REM ************* <032> 
1040 REM <086> 
1050 SYS 32768 <231> 
1060 s < 020 > 


C TL 


1070 NR=PEEK(BEFEHL)-2:IF NR>0 THEN GOSUB 
3000:GOTO 1070 
1080 GOSUB 2000:GOTO 1070 
1090 : 

1100 : 

2000 REM 

2010 REM ************************ 

2020 REM UP STUETZPUNKTE EINGEBEN 
2030 REM ************************ 

2040 REM 
2050 PRINT:PRINT 
2060 FOR 1=1 TO 6 
2070 : H=0 

2080 : PRINT"HOEHE"I"{LEFT>. STUETZPUNKT 
INPUT H 

2090 : IF ABS(H)>30 THEN PRINT"CRVSONJBIT 
TE BEACHTEN: -30 <= HOEHE <= +30!<RVO 
FF>":GOTO 2080 
2100 : IF H<0 THEN H=256+H 
2110 : POKE AD(I),H 
2120 NEXT I 
2130 SYS RU 
2140 RETURN 
2150 : 

2160 : 

3000 REM 

3010 REM ****************** 

3020 REM UP LADEN/SPEICHERN 
3030 REM ****************** 

3040 REM 

3050 PRINT "CCLR,BLACK>******************* 
*********************" 

3060 PRINT "<HOME>";TAB C(40—LEN(UE$(NR)) ) / 
2);UE*(NR) 

3070 NS='"': INPUT "FILENAME " ; N* 

3080 IF N*="" THEN SYS R2:RETURN 
3090 IF N*="*"THEN SYS DIR:GOSUB 4000:IF F 
E=0 THEN SYS TASTE:GOTO 3000 
3100 IF NR<3 THEN N*=CHR*(4)+N* 

3110 IF NR>2 THEN N5=CHRi(7)+Nf 
3120 POKE NL,LEN(N*) 

3130 • JR 1=1 TO LEN(N*):POKE 703+1,ASC(MID 
T(N$,1,1)):NEXT I 

3140 SYS Al (NR) : GOSUB 4000: IF FEO0 THEN 3 
000 

3150 SYS A2(NR) 

3160 RETURN 
3170 : 

3180 : 

4000 REM 

4010 REM *********************** 

4020 REM UP FEHLERKANAL ABFRAGEN 
4030 REM *********************** 

4040 REM 

4050 OPEN 1,8,15:1NPUT#1,FE,FEi,A,B:CLOSE 
1 

4060 PRINT:PRINT FE,FE*:IF FE< >0 THEN SYS 
TASTE 

4070 RETURN 


Listing 1. »Fractals.bas. 1.4« geben Sie bitte 
mit dem Checksummer ein 


<0B2> 
< 160> 
<050> 
<060> 
<02B> 
<029> 
<252> 
<049> 
<068> 
<226 > 
<001 > 
< 129> 

<207> 


< 109> 
<073> 
< 222 > 

< 172> 

< 195> 
<166> 

< 094 >■ 

< 104> 
< 012 > 
<003> 
<046> 
<023> 
<052> 

<059> 

<087> 

<237> 

<035> 

<243> 
<233> 
< 211 > 
<159> 

<019> 

< 022 > 
<247> 
<170> 
<098> 
<10B> 
<252 > 
<085> 
<172> 

< 105> 
<036> 

<161 > 

<039> 

<062> 


Name 

fractale 

9.0 


8000 8c7e 

8058 

ad 

cO 

88 

dO 

e3 

20 

c3 

88 

01 

80c0 

aO 

8a 

4c 

le 

ab 

c9 

03 

dO 

33 











8060 

cd 

2b 

89 

fO 

0c 

8d 

2b 

89 

30 

80c8 

06 

20 

04 

8b 

4c 

83 

85 

c9 

db 

8000 

a9 

08 

20 

d2 

ff 

a9 

06 

8d 

90 

8068 

20 

4c 

81 

20 

dl 

88 

4c 

48 

36 

80d0 

04 

dO 

06 

20 

04 

8b 

4c 

83 

97 

8008 

20 

dO 

20 

d5 

89 

20 

ed 

89 

b7 

8070 

80 

c9 

01 

dO 

19 

a9 

05 

cd 

be 

80d8 

85 

c9 

05 

dO 

3e 

20 

04 

8b 

a9 

8010 

20 

90 

81 

20 

3a 

89 

20 

45 

d8 

8078 

ff 

70 

90 

c4 

20 

3a 

89 

20 

a6 

80e0 

4c 

83 

85 

78 

ad 

f9 

84 

48 

ab 

8018 

85 

20 

fb 

84 

20 

ad 

81 

20 

f2 

8080 

ad 

81 

20 

39 

83 

20 

50 

89 

ab 

80e8 

a2 

35 

86 

01 

ad 

50 

ff 

8d 

5f 

8020 

fb 

84 

20 

45 

85 

20 

90 

81 

ad 

8088 

20 

45 

89 

4c 

40 

80 

c9 

02 

6a 

80f0 

f9 

84 

a2 

37 

86 

01 

58 

20 

cd 

8028 

20 

3a 

89 

20 

15 

85 

20 

39 

3c 

8090 

dO 

33 

20 

04 

8b 

20 

83 

85 

55 

80f8 

15 

85 

20 

45 

85 

20 

23 

88 

78 

8030 

83 

20 

b6 

8b 

20 

45 

89 

20 

75 

8098 

a9 

ff 

aO 

89 

20 

le 

ab 

20 

7c 

8100 

68 

cd 

f9 

84 

8d 

f9 

84 

fO 

fa 

8038 

45 

85 

20 

15 

85 

20 

90 

81 

89 

80a0 

11 

8b 

ad 

77 

02 

c9 

4e 

dO 

la 

8108 

03 

20 

fb 

84 

20 

45 

85 

20 

2d 

8040 

20 

4c 

81 

a9 

00 

8d 

2b 

89 

48 

80a8 

03 

4c 

0a 

80 

c9 

4a 

dO 

ef 

76 

8110 

15 

85 

20 

50 

89 

20 

90 

81 

d9 

8048 

a9 

01 

8d 

bf 

88 

a2 

46 

20 

c4 

80b0 

20 

d5 

89 

20 

ed 

89 

a9 

01 

f5 

8118 

4c 

40 

80 

c9 

06 

dO 

06 

20 

ld 

8050 

bO 

88 

20 

30 

89 

20 

23 

88 

8a 

80b8 

8d 

ff 

70 

20 

db 

82 

a9 

54 

86 

8120 

04 

8b 

4c 

83 

85 

c9 

07 

dO 

d2 


20 
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LISTINGS 


8128 

: 17 

20 

3a 

89 

ad 

f9 

84 

49 

5e 

8370 

: ee 

84 

Oa 

18 

69 

32 

8d 

fl 

68 

85b8 


05 

a4 

04 

c9 

01 

90 

06 

dO 

98 

8130 

: 01 

8d 

f9 

84 

20 

39 

83 

20 

21 

8378 

: 84 

ae 

ed 

84 

ac 

ee 

84 

18 

e4 

85cO 


f3 

cO 

40 

bO 

ef 

8a 

4a 

4a 

4a 

8138 

: fb 

84 

20 

7a 

85 

20 

15 

85 

85 

8380 

: 20 

e5 

82 

30 

12 

fO 

10 

85 

2d 

85c8 

: 

4a 

Oa 

a8 

b9 

lc 

86 

85 

f8 

77 

8140 

: 20 

4c 

81 

20 

50 

89 

20 

45 

47 

8388 

: 61 

38 

ad 

fl 

84 

e5 

61 

8d 

c7 

85dO 

: 

b9 

ld 

86 

85 

f9 

8a 

29 

07 

11 

8148 

: 89 

4c 

40 

80 

a9 

ff 

aO 

71 

17 

8390 

: fl 

84 

a9 

01 

8d 

fa 

84 

ad 

6c 

85d8 

: 

18 

65 

f8 

85 

f8 

a5 

04 

48 

ef 

8150 

: 85 

5f 

84 

60 

a9 

40 

aO 

el 

95 

8398 

: f8 

84 

Oa 

Oa 

18 

6d 

ef 

84 

4c 

85e0 

: 

29 

f8 

18 

69 

00 

48 

a5 

05 

9b 

8158 

: 85 

58 

84 

59 

18 

a5 

5f 

69 

55 

83 aO 

: 8d 

f2 

84 

a9 

00 

69 

00 

8d 

63 

85e8 

; 

69 

aO 

a8 

18 

68 

65 

f8 

85 

6f 

8160 

: 41 

85 

5a 

a5 

60 

69 

01 

85 

Of 

83 a8 

: f3 

84 

ad 

ee 

84 

Oa 

18 

69 

f2 

85f0 

: 

61 

98 

65 

f9 

85 

62 

68 

29 

95 

8168 

: 5b 

20 

cO 

a3 

a9 

00 

8d 

21 

8b 

83b0 

: 32 

8d 

f4 

84 

18 

ad 

ed 

84 

26 

85 f 8 

: 

07 

49 

07 

aa 

bd 

4e 

86 

aO 

65 

8170 

r dO 

ad 

f9 

84 

dO 

19 

a9 

40 

23 

83b8 

: 6d 

f8 

84 

aa 

ac 

ee 

84 

18 

9c 

8600 

: 

00 

a2 

35 

78 

86 

01 

2c 

22 

13 

8178 

: aO 

73 

85 

8b 

84 

8c 

a9 

08 

08 

83 cO 

: 20 

e5 

82 

30 

12 

fO 

10 

85 

6d 

8608 

: 

88 

10 

07 

49 

ff 

31 

61 

4c 

2b 

8180 

: aO 

el 

85 

8d 

84 

8e 

aO 

27 

bl 

83c8 

: 61 

38 

ad 

f4 

84 

e5 

61 

8d 

67 

8610 

: 

14 

86 

11 

61 

a2 

37 

86 

01 

d8 

8188 

: bl 

8b 

91 

8d 

88 

10 

f9 

60 

c7 

83 dO 

: f4 

84 

a9 

01 

8d 

fa 

84 

ad 

af 

8618 

J 

58 

91 

61 

60 

00 

00 

40 

01 

aO 

8190 

: a9 

b4 

8d 

00 

dO 

a9 

3o 

8d 

5d 

83 d8 

: f8 

84 

Oa 

18 

6d 

ef 

84 

8d 

lb 

8620 

J 

80 

02 

cO 

03 

00 

05 

40 

06 

67 

8198 

: 01 

dO 

a9 

01 

8d 

15 

dO 

8d 

6c 

83e0 

: f5 

84 

a9 

00 

69 

00 

8d 

f6 

3c 

8628 

: 

80 

07 

cO 

08 

00 

Oa 

40 

Ob 

c4 

81 a 0 

: 27 

dO 

a9 

00 

8d 

10 

dO 

a9 

8a 

83e8 

: 84 

18 

ad 

ee 

84 

6d 

f8 

84 

62 

8630 

: 

80 

Oc 

cO 

Od 

00 

Of 

40 

10 

22 

81a8 

: 2f 

8d 

f8 

cf 

60 

ee 

ff 

70 

34 

83 fO 

: Oa 

18 

69 

32 

8d 

f7 

84 

18 

82 

8638 

: 

80 

11 

cO 

12 

00 

14 

40 

15 

7f 

81b0 

: a9 

00 

8d 

37 

83 

a9 

80 

8d 

46 

83 f 8 

: ad 

ee 

84 

6d 

f8 

84 

a8 

ae 

9f 

8640 

I 

80 

16 

cO 

17 

00 

19 

40 

la 

de 

81b8 

: 36 

83 

ad 

36 

83 

49 

ff 

8d 

80 

8400 

: ed 

84 

18 

20 

e5 

82 

30 

12 

91 

8648 

; 

80 

lb 

cO 

lc 

00 

le 

01 

02 

02 

81c0 

: 36 

83 

30 

5b 

ad 

fe 

70 

8d 

df 

8408 

: fO 

10 

85 

61 

38 

ad 

f7 

84 

68 

8650 

: 

04 

08 

10 

20 

40 

80 

aO 

01 

ed 

81o8 

: 38 

83 

38 

ad 

38 

83 

ed 

fd 

d9 

8410 

: e5 

61 

8d 

f7 

84 

a9 

01 

8d 

bd 

8658 

: 

8c 

16 

88 

8c 

17 

88 

8c 

20 

cb 

81d0 

: 70 

aa 

ac 

37 

83 

18 

20 

e5 

ed 

8418 

: fa 

84 

ad 

ef 

84 

18 

69 

le 

a9 

8660 

: 

88 

88 

8c 

18 

88 

8c 

19 

88 

b5 

81d8 

: 82 

85 

61 

18 

ad 

38 

83 

6d 

fe 

8420 

: 8d 

ef 

84 

ad 

fO 

84 

69 

00 

54 

8668 

: 

8c 

21 

88 

88 

ad 

14 

88 

cd 

fl 

81 e 0 

: fd 

70 

aa 

ac 

37 

83 

18 

20 

86 

8428 

: 8d 

fO 

84 

18 

ad 

f2 

84 

69 

a9 

8670 

: 

11 

88 

90 

Oa 

dO 

21 

ad 

13 

le 

81e8 

: e5 

82 

18 

65 

61 

18 

10 

01 

da 

8430 

: le 

8d 

f 2 

84 

ad 

f3 

84 

69 

cl 

8678 

: 

88 

cd 

10 

88 

bO 

19 

38 

ad 

Oc 

81f0 

: 38 

6a 

85 

61 

ad 

ff 

70 

20 

c8 

8438 

: 00 

8d 

f3 

84 

18 

ad 

f5 

84 

5c 

8680 

: 

10 

88 

ed 

13 

88 

8d 

la 

88 

21 

81f8 

: Oa 

83 

18 

65 

61 

ae 

38 

83 

ea 

8440 

: 69 

le 

8d 

f5 

84 

ad 

f6 

84 

75 

8688 

: 

ad 

11 

88 

ed 

14 

88 

8d 

lb 

90 

8200 

: ac 

37 

83 

38 

20 

e5 

82 

18 

9b 

8448 

: 69 

00 

8d 

f6 

84 

ad 

ef 

84 

72 

8690 

J 

88 

8c 

16 

88 

4c 

aa 

86 

38 

9a 

8208 

: ad 

38 

83 

6d 

fc 

70 

8d 

38 

5a 

8450 

: ae 

fO 

84 

ac 

fl 

84 

HU 

10 

c7 

8698 

: 

ad 

13 

88 

ed 

10 

88 

8d 

la 

5e 

8210 

: 83 

18 

ad 

38 

83 

6d 

37 

83 

99 

8458 

: 88 

8e 

11 

88 

8c 

12 

88 

ad 

54 

86a0 

I 

88 

ad 

14 

88 

ed 

11 

88 

8d 

ba 

8218 

: c9 

40 

90 

ae 

4c 

ca 

82 

a9 

74 

8460 

: f2 

84 

ae 

f3 

84 

ac 

f4 

84 

49 

86a8 

: 

lb 

88 

ad 

15 

88 

cd 

12 

88 

66 

8220 

: 00 

8d 

38 

83 

38 

ad 

37 

83 

3a 

8468 

: 8d 

13 

88 

8e 

14 

88 

8c 

15 

55 

86b 0 

: 

bO 

Od 

38 

ad 

12 

88 

ed 

15 

f2 

8228 

: ed 

fd 

70 

a8 

ae 

38 

83 

18 

30 

8470 

: 88 

20 

56 

86 

ad 

f2 

84 

ae 

51 

86b8 

l 

88 

8c 

17 

88 

4c 

c3 

86 

38 

cb 

8230 

: 20 

e5 

82 

85 

61 

ae 

38 

83 

08 

8478 

: f3 

84 

ac 

f4 

84 

8d 

10 

88 

7d 

86c0 

: 

ed 

12 

88 

8d 

lc 

88 

ad 

lb 

7d 

8238 

: 18 

ad 

37 

83 

6d 

fd 

70 

a8 

3f 

8480 

: 8e 

11 

88 

8c 

12 

88 

ad 

f5 

52 

86c8 


88 

dO 

27 

ad 

la 

88 

cd 

lc 

8d 

8240 

: 18 

20 

e5 

82 

18 

65 

61 

18 

94 

8488 

: 84 ae 

f6 84 

ae fiS.,84 

8d 

69 

86d0 

: 

88 

bO 

lf 

ae 

la 

88 

ad 

lc 

23 

8248 

: 10 

01 

38 

6a 

85 

61 

ad 

ff 

4e 

8490 

: 13 

88 

8e 14 

88 

8c 15 

88 

60 

86d8 


88 

8e 

lc 

88 

8d 

la 

88 

ad 

e7 

8250 

: 70 

20 

Oa 

83 

18 

65 

61 

ae 

53 

8498 

: 20 

56 

86 

ad 

f5 

84 

ae 

f6 

67 

86e0 

: 

16 

88 

8d 

19 

88 

ad 

17 

88 

24 

8258 

: 38 

83 

ac 

37 

83 

38 

20 

e5 

aa 

84a0 

: 84 

ac 

f7 

84 

8d 

10 

88 

8e 

al 

86e8 

: 

8d 

18 

88 

c8 

8c 

16 

88 

8c 

71 

8260 

: 82 

18 

ad 

38 

83 

6d 

fd 

70 

dd 

84a8 

: 11 

88 

8c 

12 

88 

ad 

ef 

84 

21 

86f0 

: 

17 

88 

ad 

lb 

88 

4a 

8d 

lf 

69 

8268 

: 8d 

38 

83 

38 

ad 

38 

83 

ed 

80 

84b 0 

: ae 

fO 

84 

ac 

fl 

84 

8d 

13 

2d 

86f8 

: 

88 

ad 

la 

88 

6a 

8d 

le 

88 

8b 

8270 

: fd 

70 

aa 

18 

ad 

37 

83 

6d 

dO 

84b8 

: 88 

8e 

14 

88 

8 c 

15 

88 

20 

71 

8700 

: 

4c 

b9 

87 

ad 

16 

88 

30 

12 

4b 

8278 

: fd 

70 

a8 

18 

20 

e5 

82 

85 

21 

84cO 

: 56 

86 

18 

ad 

ed 

84 

6d 

f8 

cO 

8708 

J 

18 

6d 

10 

88 

8d 

10 

88 

ad 

c3 

8280 

: 61 

18 

ad 

38 

83 

6d 

fd 

70 

de 

84c8 

: 84 

8d 

ed 

84 

a9 

3f 

38 

ed 

70 

8710 

J 

11 

88 

69 

00 

8d 

11 

88 

4c 

de 

8288 

: aa 

38 

ad 

37 

83 

ed 

fd 

70 

21 

84d0 

: ee 

84 

cd 

ed 

84 

90 

03 

4c 

a3 

8718 

I 

2b 

87 

38 

ad 

10 

88 

e9 

01 

ba 

8290 

: a8 

18 

20 

e5 

82 

18 

65 

61 

4a 

84d8 

: 52 

83 

ad 

ee 

84 

6d 

f8 

84 

d6 

8720 

I 

8d 

10 

88 

ad 

11 

88 

e9 

00 

8a 

8298 

: 18 

10 

01 

38 

6a 

85 

61 

ad 

b3 

84e0 

: 8d 

ee 

84 

c9 

3f 

fO 

02 

bO 

23 

8728 


8d 

11 

88 

ad 

18 

88 

30 

07 

aa 

82a0 

: ff 

70 

20 

Oa 

83 

18 

65 

61 

72 

84e8 

: 03 

4c 

4d 

83 

60 

00 

00 

00 

db 

8730 


18 

6d 

12 

88 

4c 

3d 

87 

38 

d2 

82a8 

: ae 

38 

83 

ac 

37 

83 

38 

20 

99 

84 fO 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

8738 


ad 

12 

88 

e9 

01 

8d 

12 

88 

23 

82b0 

: e5 

82 

18 

ad 

38 

83 

6d 

fd 

e3 

84f8 

: 00 

01 

02 

a9 

eO 

dO 

02 

a9 

le 

8740 


ee 

20 

88 

dO 

03 

ee 

21 

88 

b8 

82b8 

: 70 

8d 

38 

83 

38 

a9 

40 

ed 

lb 

8500 

: aO 

85 

fb 

a9 

00 

85 

fa 

a8 

00 

8748 


18 

ad 

le 

88 

6d 

lc 

88 

8d 

c4 

82o0 

: 37 

83 

cd 

38 

83 

90 

03 

4c 

95 

8508 

: a2 

20 

91 

fa 

88 

dO 

fb 

e6 

4b 

8750 

J 

le 

88 

ad 

lf 

88 

69 

00 

8d 

fl 

82c8 

: 24 

82 

18 

ad 

37 

83 

6d 

fd 

2a 

8510 

: fb 

ca 

dO 

f6 

60 

ad 

f9 

84 

e8 

8758 


lf 

88 

ad 

lf 

88 

cd 

lb 

88 

7f 

82d0 

: 70 

8d 

37 

83 

c9 

40 

bO 

03 

ac 

8518 

: fO 

03 

a9 

56 

2c 

a9 

50 

aO 

52 

8760 

: 

90 

57 

dO 

08 

ad 

la 

88 

cd 

3a 

82d8 

: 4c 

ba 

81 

4e 

fc 

70 

4e 

fd 

34 

8520 

: 00 

99 

00 

cc 

99 

00 

cd 

99 

8a 

8768 

: 

le 

88 

bO 

4d 

38 

ad 

le 

88 

lb 

82e0 

: 70 

4e 

fe 

70 

60 

08 

48 

a9 

00 

8528 

: 00 

ce 

99 

f8 

ce 

88 

dO 

fl 

6d 

8770 

: 

ed 

la 

88 

8d 

le 

88 

ad 

lf 

59 

82e8 

: bf 

85 

8b 

a9 

5f 

85 

8c 

18 

06 

8530 

: aO 

27 

a9 

fO 

99 

00 

cc 

a9 

Oc 

8778 

: 

88 

ed 

lb 

88 

8d 

lf 

88 

ad 

le 

82 fO 

: a5 

8b 

69 

41 

85 

8b 

a5 

8c 

42 

8538 

: Of 

99 

00 

d8 

88 

10 

f3 

a9 

5b 

8780 

: 

19 

88 

30 

Of 

18 

6d 

10 

88 

Oa 

82 f 8 

: 69 

00 

85 

8c 

88 

10 

fO 

8a 

36 
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7288 : 

ff 

Of 

fc 

3c 

cc 

cc 

3c 

ff 

fa 

7290 : 

ff 

3c 

cc 

cc 

Oc 

cf 

cf 

ff 

f8 

7298 : 

ff 

cc 

cc 

cc 

cc 

3c 

3c 

ff 

6a 

72a0 : 

ff 

Of 

ff 

3f 

ff 

ff 

Of 

ff 

4b 

72a8 : 

ff 

ff 

fc 

fc 

fc 

fc 

ff 

ff 

3d 

72b0 : 

ff 

3c 

cc 

fc 

Oc 

cc 

3c 

ff 

b8 

72b8 : 

ff 

fc 

f3 

f3 

f3 

f3 

3c 

ff 

80 

72c 0 : 

ff 

fc 

33 

33 

30 

33 

f3 

ff 

dd 

72c 8 : 

ff 

fO 

33 

33 

33 

33 

30 

ff 

00 

72d0 : 

ff 

ff 

3f 

3f 

3f 

3f 

ff 

ff 

75 

72d8 : 

ff 

fc 

f3 

f3 

fO 

f3 

fc 

ff 

73 

72e0 : 

ff 

fc 

33 

fc 

3f 

3f 

fO 

ff 

7b 

72e8 : 

ff 

3c 

f3 

f3 

30 

33 

f3 

ff 

ed 

72f0 : 

ff 

f3 

33 

33 

33 

3c 

3c 

ff 

22 

72f8 : 

ff 

30 

33 

30 

33 

f3 

fO 

ff 

79 

7300 : 

ff 

3f 

ff 

ff 

ff 

ff 

3f 

ff 

9c 

7308 : 

ff 

cc 

cc 

cc 

cO 

cc 

cc 

ff 

eO 

7310 : 

ff 

cc 

cc 

cc 

cc 

cc 

cc 

ff 

a8 

7318 : 

ff 

3c 

cc 

cc 

3c 

cc 

cc 

ff 

5f 

7320 : 

ff 

Of 

fc 

3f 

ff 

ff 

Oc 

ff 

fe 

7328 : 

ff 

Of 

ff 

3f 

cf 

cf 

3f 

ff 

Of 

7330 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

2f 

7338 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

37 

7340 : 

ff 

cf 

cf 

c3 

cc 

cc 

cf 

ff 

05 

7348 : 

ff 

cc 

cc 

Oc 

cc 

cc 

cf 

ff 

d4 

7350 : 

ff 

cc 

cc 

cc 

cc 

cc 

3c 

ff 

a6 

7358 : 

ff 

fO 

fc 

fc 

fc 

fc 

3c 

ff 

57 

7360 : 

ff 

33 

f3 

f3 

f3 

f3 

f3 

ff 

23 


Listing 4. Die Menüzeile für das 
Fractal-Programm 
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Das 
Scrollen 
des Bildschirms 
läßt sich auf dem C64 
sehr effektvoll gestalten. Wir 
stellen Ihnen eine Version dieser Technik 
vor, die sogar beschleunigendes Scrolling 
in alle Richtungen erlaubt. Ein hervor¬ 
ragender Effekt, den Sie für eigene Pro¬ 
gramme übernehmen können. 

A uch wenn die neuen 16-Bit-Computer, wie der Amiga 
oder der Atari ST, den C64 in bezug auf die Grafik¬ 
fähigkeiten übertreffen, kann er mit ihnen in einem 
Bereich konkurrieren: die bewegte Grafik. Sie läßt sich auf 
dem C64 leicht und unkompliziert erzeugen, was auf zwei 
primäre Ursachen zurückzuführen ist: Zum einen verfügter 
über einen Textmodus, in dem er nur wenige Daten zur Bild¬ 
darstellung verarbeiten muß. Dies geschieht folglich mit ei¬ 
ner hohen Arbeitsgeschwindigkeit. Trotzdem sind hier Gra¬ 
fiken durch umdefinierte Zeichensätze möglich. Zum ande¬ 
ren hat der Videochip des C64 einige Besonderheiten wie 
die Scroll-Register und den leicht zu programmierenden 
Raster-Interrupt aufzuweisen. 

Bestes Beispiel für eine effektvolle Kombination dieser 
Eigenschaften ist das Verschieben des Bildschirminhaltes, 
das sogenannte »Scrolling«: Verschiedene Spiele präsen¬ 
tieren es mittlerweile in Perfektion und erzeugen damit rea¬ 
listische Bewegungssequenzen. Doch auch in der physika¬ 
lischen Simulation kann es unterstützend eingesetzt wer¬ 
den. In diesem Kurs wollen wir Sie mit der Krönung des 
Scrollens vertraut machen: Wir stellen ihnen ein zweidi¬ 
mensionales Scrollsystem vor, welches eine beschleunigte 

Physikalische Grundlagen 

Bewegung in alle Bildschirmrichtungen ermöglicht. Das 
Programm dazu wurde so gestaltet, daß eine Erweiterung 
leicht möglich ist. Der Quellcode im Listing 2 dient dabei als 
Basis für die Erläuterungen und ermöglicht Ihnen die An¬ 
passung des Programms an individuelle Erfordernisse. 
Bild 1 zeigt Ihnen das Scroll-Programm in Aktion (daher 
auch der verschwommene Hintergrund). Einen weiteren - 
etwas kuriosen - Effekt sehen Sie in Bild 2: Sogar über den 
I/O-Bereich bei $D000 läßt sich scrollen. 

Um der programmtechnischen Realisierung dieses Vor¬ 
habens besser folgen zu können, wollen wir zuerst die Be¬ 
wegung und ihre physikalischen Grundlagen betrachten. 
Jede Bewegung eines Körpers läßt sich ganz allgemein als 


dessen Positionsänderung in einem bestimmten Zeitinter¬ 
vall auffassen. Dies geschieht mit einer Momentange¬ 
schwindigkeit »V«, welche ihrerseits konstant oder verän¬ 
derlich ist. Bei konstanter Geschwindigkeit liegt eine 
gleichmäßige Bewegung vor. Stellen wir uns hier beispiels¬ 
weise einen Radfahrer vor, dessen Tacho ständig densel¬ 
ben Wert anzeigt. Pro Sekunde legt er immer die gleiche 
Wegstrecke zurück, wenn die Geschwindigkeit konstant 
bleibt. Ist die Bewegung dagegen beschleunigt, verändert 
sich die Geschwindigkeit mit der Zeit. Bei einer als konstant 
angenommenen Beschleunigung wird das bewegte Objekt 
kontinuierlich schneller. Ein fallender Tennisball soll uns 
dies verdeutlichen: Sobald er unsere Hand verlassen hat, 



Bild 1. Das Scrollprogramm in Aktion (aus diesem Grund ist 
der Hintergrund verschwommen) 

erhöht er seine Geschwindigkeit ständig. Er legt also die 
gleiche Wegstrecke in immer kürzerer Zeit zurück. Diese 
zwei Formen der Bewegung lassen sich auch in Diagram¬ 
men darstellen, welche den grundsätzlichen Unterschied 
nochmals verdeutlichen. Betrachten sie hierzu bitte Bild 3. 

Eine weitere Tatsache ist für uns ebenfalls interessant: 
Jede Wegstrecke hat eine für sie charakteristische Rich¬ 
tung. Da Geschwindigkeit und Beschleunigung die Weg¬ 
strecke bestimmen, handelt es sich auch bei ihnen um ge¬ 
richtete Größen. 

Der Vektor zeigt die Richtung 

Wir können sie folglich als Vektoren auffassen, und da un¬ 
ser Scrollsystem ebene Bewegungen simulieren soll, wer¬ 
den wir uns auf zwei Dimensionen beschränken. Bild 4 
zeigt verschiedene Lagen von Vektoren und deren Unter¬ 
scheidungsmerkmale: Den Neigungswinkel gegenüber 
der Horizontalen und die Länge. Doch diese Form der Dar¬ 
stellung ist für unsere Pläne nicht geeignet. Deshalb zerle- 
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Bild 2. Sogar über den I/O-Bereich läßt sich mit dem 
»Scrollsystem« scrollen. Ein netter Effekt (diesmal sehr 
langsam). 


gen wir unsere Vektoren wie in Bild 5 in eine horizontale und 
eine vertikale Komponente, die wir getrennt verarbeiten. 
Durch deren Kombination ergibt sich dann wieder der ur¬ 
sprüngliche Vektor. Diese Form der Darstellung hat noch ei¬ 
nen weiteren Vorteil: Die eindimensionalen Komponenten 
von Weg, Geschwindigkeit und Beschleunigung dürfen ne¬ 
gative Werte annehmen. In diesem Fall ändert sich ledig¬ 
lich die Richtung des Vektors. 

Wie verwenden wir diese Erkentnisse nun auf dem Com¬ 
puter? Wie kann man sie auf den C64 übertragen, und wel¬ 
che Ergebnisse lassen sich erzielen? 

Die Beantwortung dieser Fragen soll unser Scrollsystem 
liefern. Es liegt als Listing 1 im MSE-Format und als Quell¬ 
code in Listing 2 vor und zeigt nach dem Programmstart ei¬ 
nen grob stilisierten Bergwerksstollen im oberen Teil des 
Bildschirms. Das Programm liegt im kompaktierten Format 
mit Basic-Start vor und kann daher mit: LOAD"SCROLL. 
KOMP",8 geladen werden. Nach dem Start mit RUN wird 
das eigentliche Scrollprogramm nach $C000, der Hinter¬ 
grund nach $A000 bis $BFFF verschoben. 

In der Mitte des Bildschirms befindet sich ein Raum¬ 
schiff, das sich mit dem Joystick in Port 2 in alle Richtungen 
des Bildschirms steuern läßt. Um diesen Effekt zu erzielen, 
wird der Stollen unter dem Schiff durchgezogen, also ge- 
scrollt (Bild 1). Dies geschieht mit einer Geschwindigkeit, 
die sich bis zu einem Maximalwert steigert. Läßt man den 
Joystick los, bremst das Raumschiff langsam ab und 
kommt schließlich zum Stillstand. Auch eine Richtungsum¬ 
kehr erfolgt nicht abrupt: zuerst wird die Geschwindigkeit 
bis auf Null reduziert. An diesem Punkt wird die Bewe¬ 
gungsrichtung umgekehrt und erhöht sich wieder. Hier liegt 
also eine beschleunigte Bewegung vor, sie ist auf dem C 64 
durchaus effektvoll darzustellen. Doch auf welche Weise 


wurde dies realisiert? Wie sieht das dazugehörige Pro¬ 
gramm aus? 

Nun, grundsätzlich besteht das Scrollsystem aus Routi¬ 
nen, die im Rasterrinterrupt ablaufen. Dadurch erreichen 
wir eine flackerfreie Bewegung, deren Berechnung als 
Hintergrund-Task (im Interrupt) abläuft. Um ein Scrollen 
des Bildschirms zu erreichen, sind prinzipiell zwei Dinge 
nötig: Erstens muß das Softscroll-Register im Videochip 
(bei VIC+17 bzw. VIC+22) laufend verändert werden. Da¬ 
durch verschiebt sich der Bildschirm pixelweise, was man 
als »Softscrollen« bezeichnet. Dies funktioniert allerdings 
nur bis zu einer Zeichenbreite (also 8 Pixel), dann läuft das 
VIC-Register über bzw. unter. Deshalb müssen wir zwei¬ 
tens feststellen, wann dies der Fall ist und dann den Bild¬ 
schirmspeicher um ein Zeichen in die jeweilige Richtung 
verschieben. Diesen Vorgang bezeichnet man auch als 
»Hardscrollen«. Unser Scrollen erfolgt also durch das Zu¬ 
sammenspiel von Pixel- und Zeichenbewegung. Außerdem 
läuft es im Textmodus ab, denn hier benötigt ein Bildschirm 
nur 1 l'Byte Speicher und ist damit schnell genug zu ver¬ 
schieben. 

Unterscheidung von Geschwindigkeit 
und Beschleunigung 


Bei den folgenden Ausführungen sollten Sie den Quellcode 
des Scrollsystems, Listing 2, stets im Auge behalten. Der 
Quellcode ist im Startool-Format geschrieben, ist jedoch 
leicht an den Hypra-Ass oder unseren neuen Assembler 
Giga-Ass aus diesem Sonderheft anzupassen. Da der Co¬ 
de relativ lang ist, liefert Bild 6 eine Grobgliederung davon. 
Zudem erklärt Tabelle 1 die für unser Programm wichtigen 
Register im Videochip. 

Das Listing beginnt mit der Definition oft verwendeter Re¬ 
gister und Routinen als Label. Der erste Teil des Pro¬ 
gramms initialisiert dann einen zweigeteilten Rasterinter¬ 
rupt und schafft so die Voraussetzungen für die anderen 
Routinen, welche entweder im oberen oder unteren Bild¬ 
schirmfenster ablaufen. 

Wir wollen uns zuerst mit der pixelweisen Bewegung im 
oberen Teil beschäftigen, da hier die anfangs gewonnenen, 
physikalischen Erkenntnisse von entscheidender Bedeu¬ 
tung sind. Der entsprechende Programmabschnitt beginnt 


Kurzinfo: Soft-Scrolling 


Programmart: Tool zur Scroll-Programmierung 
Laden: LOAD "SCROLL.KOMP",8 
Start: Nach dem Laden RUN eingeben 

Besonderheiten: Das Demo-Programm wird mit dem Joystick in 
Port 2 gesteuert. Anhand des dokumentierten Quellcodes 
(StarTool-Format) läßt sich das Programm einfach verändern 
(Hinweise im Text). 

Programmautor: Axel Pretzsch 
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a) Die Bewegung mit konstanter Geschwindigkeit 


Weg s 



Geschwindigkeit 

V 


Zeit t 
s = V • t 


Zeit t 

V = konst. 


b) Die gleichmäßig beschleunigte Bewegung 


Weg s 


Geschwindigkeit 

V 


Zeit t 

S = V 2 at 2 


Beschleunigung 



Beschleunigung 

a 


Zeitt 
a = 0 


Zeit t 

a = konst. 



Bild 3. Zwei Formen der Bewegung: a) mit konstanter Geschwindigkeit und b) die gleichmäßig beschleunigte Bewegung 


im Quellcode bei Zeile 174 und endet mit Zeile 513. In die¬ 
sen Routinen werden die beiden Softscroll-Register im Vi-: 
deochip verändert. Dadurch verschiebt sich der Bildschirm 
pixelweise, was in eine bestimmte Richtung und somit vek¬ 
toriell geschieht. Also können wir diese Bewegung compu¬ 
tergerecht in eine vertikale und eine horizontale Kompo¬ 
nente zerlegen, das heißt jedes Softscrollregister wird in ei¬ 
nem separaten Programmteil bearbeitet. 

Hier kommen nun die von der Zeit abhängigen Funktio¬ 
nen des Weges, der Geschwindigkeit und der Beschleuni¬ 
gung ins Spiel. Da der Rasterinterrupt regelmäßig stattfin¬ 
det und somit vom einen bis zum nächsten Aufruf unserer 
Routine immer die gleiche Zeit vergeht, bleibt diese kon¬ 
stant. Wir brauchen also nur die Komponenten des Weges 
zu verändern, um eine Bewegung zu erzeugen. Dazu ad¬ 
dieren wir zum aktuellen Weg die Geschwindigkeit und le¬ 
gen die Summe als neuen Weg fest. Die Geschwindigkeit 


Speicherstelle 

Bedeutung 

VIC=$D000 

Basisadresse Videochip 

VIC+26: 

Legt beim Beschreiben den VIC-IRQ fest 

Bit 7: VIC-IRQ ein 

Bit 3: Lightpen-IRQ 

Bit 2: Sprite/Sprite-Kollisions-IRQ 

Bit 1: Sprite/Hintergrund-Kollisions-IRQ 

Bit 0: rasterinterrupt 

VIC+25: 

Durch Lesen dieses Registers kann ein aufge¬ 
tretener VIC-IRQ bestimmt werden, Belegung 
wie VIC+26 

VIC+18 und 
VIC+17 Bit 7: 

Zeile für den Rasterinterrupt im MSB/LSB 
Format 

VIC+17: 

Bit 0-2 Pixelweises Scrollen, 

Vertikale Komponente 

VIC+22: 

Bit 0-2 Horizontale Komponente 


Tabelle 1. Fürs Scrollen wichtige Register im VIC 


wird wiederum durch die Beschleunigung verändert, wel¬ 
che b°' '- iner Joystickbewegung einsetzt. Außerdem bringt 
die ständig mit einberechnete (theoretische) Reibung die 
Scrollbewegung nach dem Loslassen des Joysticks mit der 
Zeit zum Stehen. 

Durch Addieren schneller werden 


Die Erledigung dieser Aufgaben übernehmen im Pro¬ 
gramm einfache Additions- bzw. Subtraktionsroutinen. Da 
wir in alle Richtungen des Bildschirms scrollen, kann jede 
Komponente positive und negative Werte annehmen. Die 
mit der Bewegung in Beziehung stehenden Variablen und 
Parameter wie Weg, Geschwindigkeit und Beschleunigung 
sind deshalb als vorzeichenbehaftete 8-Bit-Zahlen ange¬ 
legt und befinden sich am Ende des Programms (Zeile 715 
ff.). Für die vertikale Bewegung wird das Softscrollregister 
bei VIC+17 verändert, die Funktionsweise der dazu not¬ 
wendigen Routinen erläutert Ihnen Bild 7 in Verbindung mit 
dem Quellcode. Die horizontale Bewegung verläuft analog, 
nur bezieht sie sich auf das Register VIC+22. 

Um ein vollständiges Scrollen des Bildschirms zu erzie¬ 
len, reichen die bis jetzt erörterten Routinen allerdings 
noch nicht aus, wir benötigen weiterhin Programmteile zum 
zeichenweisen Verschieben des Bildschirmspeichers. Wir 
verlassen deshalb den ersten Teil des Interrupts und wen¬ 
den uns dem zweiten Abschnitt des Scroll-Programms zu, 

Ein überdimensionaler Bildschirm 


in dem bekanntlich das »Hardscrollen« abläuft. Wie ist dies 
konzeptiert? Welche Idee steckt dahinter und wie wurde sie 
realisiert? 

Nun, prinzipiell ahmen wir die Bilddarstellung des Com¬ 
puters nach. Dazu organisieren wir den Speicher ähnlich 
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I. Gleich gerichtet, aber unterschiedlich lang 



II. Gleich lang, aber unterschiedlich gerichtet 



I, l 2 


a, 4= a 2 


III. Weder gleich lang, noch gleich gerichtet 


mit 


■ .. Länge des 
11 2 Vektors 


<*2 


Neigungs¬ 

winkel 


Zeilennummern im Quellcode 

0-103 

114-156 
157-173 

514-618 
525-555 


556-618 


Bild 6. Das Flußdiagramm des Quellcodes veranschaulicht 
die Funktion des Scrollsystems 


174-513 

190-231 

243-317 

318-393 

394-468 

468-513 


Label-Definilion 

Raster-IRQ Initialisieren 

'-IRQ - 

Oben Unten 

VIC-Parameter 

setzen 

VIC-Parameter 

setzen 

Softscrollen 
— vertikal 

Hardscrollen 

ausführen 

Softscrollen 
— horizontal 

Joystick abfragen 


Hardscrollen 

vorbereiten 

Platz für 
Erweiterung 

Sprites + Multiplikationstabelle 
initialisieren 

Tabellen 


Ausschnitt abgebildet wird, hangt von zwei weiteren Varia- 
Bild 4. Die unterschiedlichen Vektoren in der Ebene bleiv co, in denen die aktuellen X- und Y-Koordinaten ge- 



X 

Ebenes Koordinatensystem 

X v : Horizontale Komponente 
Y v : Vertikale Komponente 

Bild 5. Vektoren, die computergerecht aufbereitetet sind 

wie den Bildschirmspeicher in Zeilen und Spalten, wobei 
diese Größen wieder in Variablen festgehalten werden. Die¬ 
ser neu erstellte Bildschirm wird auch als »Scrollscreen« 
oder »Pseudobildschirm« bezeichnet und ist seinem Vor¬ 
bild sehr ähnlich, allerdings kann seine Ausdehnung dieje¬ 
nige des »echten« Bildschirms bei weitem überschreiten. 
Wir sorgen nämlich durch eine Routine dafür, daß auf dem 
echten Bildschirm immer nur ein Ausschnitt des Scroll- 
screens zu sehen ist. Diese Aufgabe übernimmt in unserem 
Scrollsystem die Schleife in den Zeilen 561 bis 618. Welcher 


speichert sind. Sie heißen »XPOINTER« und »YPOINTER«. 
Werden diese verändert, verschiebt sich logischerweise 
der Teil im Scrollscreen, welcher abgebildet wird. Und ge¬ 
nau dies wird im oberen Teil des Interrupts erledigt, und 
zwar immer dann, wenn ein Softscrollregister »überläuft«. 
Somit erreichen wir durch die Kombination von pixel- und 
zeichenweisem Scrollen ein kontinuierliches Verschieben 
des Bildschirms. Bild 8 zeigt Ihnen nochmals das Prinzip 
des Hardscrollens anhand des Scrollscreens. 

Veränderung ist angesagt 


Ein weiterer Hauptbestandteil des Scrollsystems ist die Mo¬ 
difikation der Schleife, die den Abschnitt aus dem Pseudo¬ 
bildschirm holt und darstellt. Dies erfolgt wieder im oberen 
Teil des Interrupts (bei »HARDPREP«, Zeile 483) und erle¬ 
digt eine entscheidende Aufgabe: Sie berechnet aus den 
Zeigern und der Anfangsadresse des Scrollscreens die 
Speicherstellen und schreibt sie an die entsprechenden 
Positionen in der im unteren Teil des IRQs ablaufenden 
Hardscroll-Routine. Somit ist es letztendlich diese Modifi¬ 
kationsroutine, die ein Scrollen ermöglicht. Ohne sie würde 
die Hardscrollroutine ihre Werte immer aus denselben 
Speicherplätzen holen und so eben nicht den Eindruck der 
Bewegung vermitteln. Vielmehr würde der Bildschirm stän¬ 
dig auf sich selbst abgebildet. 

Im Rest des Scrollsystems werden die einzelnen Routi¬ 
nen initialisiert, das Ufo-Sprite erzeugt und die Multiplika¬ 
tionstabelle für die Zeile im Scrollscreen berechnet. Das 
Programm ermöglicht also, zusammenfassend gesagt, ei¬ 
ne »saubere« Scrollbewegung, die genau den Gesetzen 
der Physik gehorcht. Wie übernehmen wir diese nun? Wel¬ 
che Ergebnisse sind damit zu erzielen und auf was muß 
man bei der Handhabung achten? 
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YSPEED 

aO - nach unten~~—-- 0 — nach oben 


YSPEED - YFRICT 

YSPEED + YFRICT 

Ja 

Ja Nein 

YSOFT + 

YSPEED 



YSOFT + YSPEED 
mit YSPEED < 0 

'Nübertrag/ 

Ja/Nein 

\Untertrag/ 

Nein'N/'Ja 

Hardscroll 

vorbotoilen 





Hardscroll 

vorboiciter 


Ablauf in Zeile 248 - 277 


a) Scrollen mit Momentangeschwindigkeit YSPEED 


nach oben 

_ Joystickbewegung 

nach unten 

YSPEED + YACCEL 

YSPEED 

YACCEL 

Überlauf 

Unterlauf 

Nein 

Ja 

Ja 

Nein 

Wert 



Wert 

schreiben 



schreiben 




GO* 


Ablauf in Zeile 399 - 444 


b) Beschleunigen per Joystick 


Bedeutung der Parameter 

YSOFT = Position 
YSPEED = Momentangeschwindigkeit 
YACCEL = Beschleunigung 
YFRICT = Reibung 


Der Wert in YSOFT wird dann bei Zeile 202-211 durch 32 
geteilt und ins vertikale Softscrollregister bei VIC+17 
geschrieben, was die eigentliche Bewegung verursacht. 


Zusammenfassung: 

YACCEL - YSPEED - YSOFT - VIC + 17 
YSOFT 


XACCEL - XSPEED - XSOFT - VIC + 22 



Scrolling für den Eigenbedarf 


Diese Fragen sollen als Abschluß beantwortet werden. Be¬ 
kanntlich endet der Quellcode mit einer Parametertabelle. 
Hier befinden sich die Werte für Beschleunigung und Rei¬ 
bung. Sie sind durch einfaches Überschreiben zu Veran¬ 
den, wobei man Werte zwischen 0 und 127 verwenden darf. 
Außerdem stehen hier noch zwei vorzeichenbehaftete 
8-Bit-Parameter namens »XCONST« und »YCONST«. Sie 
bestimmen eine konstante Bewegung, die von der Reibung 
unbeeinflußt bleibt. So werden Wind und ähnliche Einflüs¬ 
se simuliert. 

Auch die Position im Scrollscreen ist variabel und legt 
fest, wo im Stollen Ihr Raumschiff losfliegt. 

Doch es muß nicht bei einem simplen Stollen bleiben: Mit 
umdefiniertem Multicolor-Zeichensatz und einem selbster¬ 
stellten Scrollscreen lassen sich bei entsprechenden ge¬ 
stalterischen Fähigkeiten sehr schöne Grafiken ä la »Uridi- 
um« erstellen. Da hierzu der Scrollscreen höchstwahr¬ 
scheinlich in seinen Ausmaßen verändert werden muß, 
sind diese Parameter ebenfalls variabel und heißen »BREI¬ 
TE« und »HOEHE« (Zeile 754 und 755). Weil es sich auch 
hier um 8-Bit-Werte handelt, können die Abmessungen ma¬ 
ximal 255 x 255 Zeichen betragen. Reicht dies nicht aus, 
muß das Scrollsystem zur Verwendung von 16-Bit-Zahlen 
umgeschrieben werden. Die Startadresse des Pseudobild¬ 
schirms wurde als Label in Zeile 112 definiert. 

Das Scrollsystem an sich ist natürlich auch erweiterbar. 
Dies geschieht grundsätzlich durch Einbinden zusätzlicher 
Programmteile in den Interrupt. Diese dürfen allerdings 
nicht zu viel Zeit verbrauchen, sie sollten höchstens Vioo 
Sekunde lang sein. Betrachten Sie hierzu bitte auch die be¬ 
kannte '-' Obgliederung aus Bild 6 und die Speicherbele¬ 
gung in Bild 9. 

Unser Scrollkonzept hat gezeigt, daß der C64 grafisch 
noch lange nicht zum alten Eisen gehört. Denn bis jetzt be¬ 
herrscht keine der neuen 16-Bit-Maschinen das Scrolling 
so perfekt wie der Commodore 64. (Axel Pretzsch/ef) 


1 Spalte = 8 Pixel = 1 Zeichenbreite 



» — « : »Mat Einfluß auf«, »verändert« 

Die einzelnen Komponenten 
ergeben die Gesamtbewegung 

Bild 7. Programmierung der Bewegung in vertikaler 
Richtung 


Höhe: Anzahl der Zeilen des Scrollscreens 

X/Y-Pointer: Aktuelle Koordinaten der linken 
oberen Ecke des Ausschnitts auf dem Bildschirm 

Bild 8. Das Prinzip des Hardscrollens anhand des 
Scrollscreens im Pseudobildschirm 
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LISTINGS 


Bildschirm Multiplikationstabelle 

S 0400 - $ 07F0 $ CE00 - $ CFFF 



Sprites Scrollscreen Scrollsystem 

$ 0340 - $ 03B0 $ A000 - $ BFFF $ COOO - $ C400 

(unter Basic-ROM) 


Bild 9. Speicherbelegung des Scrollsystems. Das Hauptprogramm liegt bei SC000. 


Name : scroll.komp 0801 1034 
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Listing 1. 

»SCROLL.KOMP«, 
Multidirektionales Scrolling, 
per Joysick gesteuert. 

Start mit RUN. 

Bitte mit dem MSE 
(siehe Seite 159) eingeben. 
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ARDWAR 


SH 0015' FLOPPY / DATA- 
SETTE 

Reoaraluranleilnng- Eisle Hille lür 
die Disketlenstalion / Hypialape 
das Super- Turbgtapc 


SH 0025: FLOPPY- LAUF- SH 0028: GEOS / DATEI- 

WERKE VERWALTUNG 

Werlvolle Tps und Inlormalionen VleleKuisezuGEOS/ToilaGEOS- 

für Einsleiger und Fortgeschrittene Programme arm Ablippen 


Magazin 

Diese 64 er- Ausgaben bekom- im Überblick 


men Sie noch bei Markt & Tech¬ 
nik für jeweils 6,50 DM. 

Tragen Sie die Nummer der ge¬ 
wünschten Ausgabe (z.B. 3/88) 
in den Bestellabschnitt der Zahl¬ 
karte nach Seite 34 ein. 


12 / 86 : Übersicht Hardware- Erweiterungen 
Bauanlelluno: Centronics- Inlcrlace 
lisllng des Monats Fluppy-Speeder 'Exos V3' 

1 / 87 : Spiele: Die Renner 86, Billigspiele im Tos« 
Farbmonitors im Vergleich / Gnilier Einsleigeitoi! So 
lanol man an 

3 / 87 : /um Ablippen Kopierprogramm der 
Spitzenklasse/ Diskellen Markenqualiiai gegen No- 
Name- Produkte C128: SpelchererweUerungen im Tost 

4 / 87 : Programmiersprachen So aibeileii Prol® 

Usllng des Monats Icrminalprogramm 'Piolctm V6' 
Test. FaibtemsehgerHe als Monitorersat? 

5 / 87 : Fractals Die Well der Aptelmännchen 
Kaufbille: Die beslen Floppy- Speedei 
37,-Zoll- Floppy lür den C64 

2 / 88 : Desktop Publishing live. Zeilung machen mll dem 
C64 / Tolles Malptogramm rum Ablippen 

3 / 88 : Brennpunkt Spiele: 

Spiele pei Telefon u a Kopiapiogramme 
im Vergleich 


9 / 88 : Neuer Kuis. Drucker piolessinnell nutzen 
Messen Steuern. Regeln ProligeiSle im Tesl / Public 
Domain- Spiele 

10 / 88 : lest: Modems und Akustikkoppler 
Lisllng des Monals Super- Strategie- Spiel 
Musikhardwarc im Vergleich 

11 / 88 : Publish C64: Professionelles Druckptogtamm 
rum Ablippen / Tesl- Malprogiamnt Giga- Palm 
Ratgeber Druckoikaul 

12 / 88 : Weihnachls- Special Die beslen 
Geschenkldeen / Geheimtip: Monitor lilr 
40.-DM/8auanlcilung: Drucker- Intolace 

1 / 89 : Die besten Diuckprogiammc/ 20 Zeiler rum 
Ablippen / Mal Programme lür den C128 im Vergleich 
Jahiesinhallsverreicbnls 


im Überblick 

Oie 64er Sonderhefte bieten Ihnen umfassen¬ 
de Informationen in komprimierter Form zu 
speziellen Themen rund um die Commodore C 
64, C 128, C 16/116, VC 20 und denPlus/4. 
Diese Ausgaben hat Ihr Händler vorrätig - oder 
er bestellt sie gerne für Sie. 


Sonderhefte 


2 / 89 : Test: Schnellster 8asic- Compiler 
lisling ‘Maslei Copy Plus' / Spiele '88 
Compuleischmiblisch rum Spailarll 


3 / 88 : Kaum« Hopples. Drucker. Munltoie 
Bauanleitung: 256 KByte 2usatzspeii:h« / Sollmre- 
Test Geos 2.0 ist da / Viten im C64 


4/89 i, 64-Longplay: Uridium komplett durchge- 
spiell / Lisling des Monals Thmk Twice. ein Knobel 
spiel/C 64 Extra 


V RÜCKER 


5 / 89 : Lohnt sich ein Inlette ’ / Tesl Die besten 
Mailboxen / Druckerslander lür 10 Mark 


6/89 Groller Diskellenvagleichslesl/ 

Lislings des Monals Textverarbeitungspragramme 
Text II / Spielekurs Teil 1 


7 / 89 : Spiele-Exlra Spielesteckbriete rum Sammeln; 
Zeichcnsatre selbst gemacht/ Tesl 


SH 9904: GRAFIK & DRUC¬ 
KER 

BO- Zeichen- Karle rum Abtippen / 
Haidcopy- Routinen lür viele Dcuc- 


SH 0018: DRUCKER 

Lisling. professionelle Textverar- 
beilung lür den MPS 801 / Matnx- 
diucker im Test 


LOPPY, DATASEnE 


sortiert und griffbereit. 


Eine Sammelbox faßt 
einen vollständigen 
Jahrgang mit 12 Ausgaben 
und kostet 14,- DM. 


SH 0009: FLOPPY / DA¬ 
TEIVERWALTUNG 

Floppy- Beschleuniger Im .Voi- 
glcithslesl / Arbeiten mit dBaso II / 
C 128- Dlskmoollor 


SH 9905: FLOPPY/DAT A- 
SETTE 

Disketten kopieren mll Hypra- 
Copy/ lOmal schneller laden mit 
Turbo Tape de Luxe 


SH 0013: HARDWARE 

Ein- Chip- Mlciocompulcr / Bau- 
anlellungen: MIDI-Intertaco. Spol- 
chcrosrilloskop, IC- Tester 






4 / 88 : Gibt es einen neuen C64 7 / Alles Uber BIx und 
Datenfernübertragung / Grade Checklisle rum Kaut von 
Sollware 

5 / 88 : C 64 contra Arniga, Atari & Co. 

Vergleichs« Drucker / Im Härtetest: neuer Super- 
Joystick /Grofler Elnsleiger-Sondcrteil 

6/88 Keyboardsam C64 / Markendiskelten Im 
Härteles/Test Floppy-Speedo 
Neuer Kurs. Assembler 

8/88 Tips und Tricks zu Druckern / Baslc-Kurs lür 
Einsloigw / Alles Ober RAM. ROM, EPROM S Co 


SH 0032: FLOPPYLAUF- 
WERKE UND DRUCKER 

Tips&Tools / RAM- Erweiterung 
des C64 / Druckerroutinen 


MH diesen Sammelboxen sind Ihre Ausgaben immer 



























RAFIK, SOUND 


64 - EINSTIEG 


— 

SH 0011; GRAFIK, MUSIK, 
ANWENDUNGEN 

50 Seilen Miolkprogrammiorung / 
Vielseitige Buslnessoiallk 


SH 0020; GRAFIK 

Grallk- Programmierung / Bnw- 
gungen 


SH 0023; GRAFIK, AN¬ 
WENDUNGEN 

Auflergcwdhnllche Anwendungen 
aul dem C 64 mm Ablippen 


SH 0027; GRAFIK 

AMICA Pamir Malpragramm 


SH 0034: GRAFIK, SIMU¬ 
LATION, LERNEN 

Koralmlaren mll dam CM / Knr- 
vondiskussion / Einslieg in die 
Digitallochnlk 


SH 0005; C 64- GRUND¬ 
WISSEN 

Vom ersinn Einschallen pls mm 
eigenen Programm / Grundlagen. 
Ilps und Tricks 


SH 0016; EINSTEIGER 2 

Sprllcanimation Zoichontricklilm 
mll dem Computer / GEOS, die 
neue Bcnuberohcrl lache 


SH 0019: EINSTEIGER 3 SHO 

Basic- Kurs / Programm- Über- C 64 
slchl 


SH 0001: C 128 

Das können C 128 und C 128 D / 
Vergleich. C 128- CM/dlepas 
sende Peripherie 


SH 0010: C 128II SH 0022: C 128 III 

Die Geheimnisse von CP/M / FarhigesScrolllnglm80-Zeichen- 
Komplnlicr C 128- Schallplan/ Modus/8-Sekunden-Koplerpro- 
Grallk lur Ernstelger gramm 


SH 0029: C 128 

Starke Sollwarelür Ci 28/Ci 28 D/ 
Alles über den neuen C 128 0 rm 
Blechgehause 


SH 0036: C 128 

Power 128 Directory komloriabei 
organisieren / Haushallsbuch Fi¬ 
nalen rm Grill/ 3D- Landschallen 


Der C 64 versiandlich lür Alle mil 
auslohrlichen Kursen 


ans dem Cr 


SH 0003. C16/116. VC 20, SH 0008: PLUS/4 UND CI r 
PLUS« 


SH 9902: ABENTEUER¬ 
SPIELE 

45 Sellen Advenlure- Programmier¬ 
kurs / lislmgs und Schrltl-Iilr- 
Schrilt-Ldsungen 


SH 9903: SPIELE 

Top-Spiele-Lrslings lür CM und 
VC 20 / Grolle Spiele- Marktüber- 
sicW 


SH 0004: ABENTEUER- SH 0017 SPIELE FÜR C64 SH 0030: SPIELE FÜR C64 
SPIELE UND C 128 UND C 128 

Kurs: Programmienrng von Grafik So programmier! man Scrolling / Tolle Sprele/um Ablippen lür CM/ 

Parser und künstlicher Intelligenz/ StraiegiesprelB: Grips ist getragt C !28/Spieleprogrammiemng 


Übefsicbt: 2tjropage und wichtige 
Lrstlngs frlr Spiele Grafik Tips Sys!emadres3en/ Grundlagen und 
STncks /Anwendungen: Datelwr- ™ 19 


Viele Advenlures 


IPS&TRICKS, ANWENDUNGEN 


SH 9901. TIPS&TRICKS 


SH 9906: AUSGEWÄHLTE 
SUPERLISTINGS 

Die besten Programme aus den 
64er- Magazinen 1984/85 


SH 9907 ANWENDUN¬ 
GEN/ DFÜ 

Terminal lind Mailhonprogramm 
mm Ablippen/Der C Mals Win/cr 


SH 0002: TIPS&TRICKS 


SH 0024: TIPS, TRICKS & 
TOOLS 

Die braten Peeks und Pokes sowie 
UtlllllesnrllPfi« 


SH 0031 DFÜ. MUSIK, 
MESSEN - STEUERN - 
REGELN 

Alles über DFÜ / BIX ven A-7 / 


SH 0033; TIPS,TRICKS & 
TOOLS 

Basic Control- System/Tltelge- 
rveiaior / Digitale Super Sounds / 


Zolcheo; 


Interrupt- Joystlc 
nOttlltfe Einzeller 


che Programr 


Betriebssysteme Im VcrgloiiJi 


Grundlagen/ Bauantalunnen 


ROGRAMMIER- UND MASCHINENSPRACHE 


SH 0007 PEEKS&POKES 

•Maschinen- Power mil Basic / 
Mutlilasking 2 Basic- Programme 
lauten nebeneinander / Peeks und 
Pokes mm C128 


SH 0012: PROGRAM¬ 
MIERSPRACHEN 

Pascal, Comal, Prolog, C undForth/ 
Vergleich Basic- Compiler 


SH 0021: ASSEMBLER 
UND BASIC 

Giga- Ass: Hypra- Ass hoch 2 / 
Paradoxon- Basic:'50000 Basic 
Bytes Ins 


SH 0035: ASSEMBLER 

Abgeschlossene Kurse lür Autln- 
ger und Fortgcschiinene 
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Listing 2. Der Quellcode zum Scrollsystem im 
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Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 


64’er-Sonderheft 45: 
Faszinierende 
GRAFIK- 
Dimensionen 

Prograf: Dreidimensionales Zeichnen 
von HiRes-Grafiken wird mit dieser Be¬ 
fehlserweiterung zum Kinderspiel. Die 
Ergebnisse können sich auf jedem 
Epson-kompatiblen Drucker bewundern 
lassen: denn Prograf nutzt die hohe Auf¬ 
lösung von 640 x 400 Punkten voll aus. 
Genaue Programmbeschreibung auf 
S.38ff in diesem Heft. 

Computerlandschaften: Werden Sie 
mit Ihrem Computer zum Landschaftsge¬ 
stalter, Mit zufallsgesteuerten Fractals ent¬ 
stehen in wenigen Schritten eindrucks¬ 
volle Landschaften mit Hügeln, Tälern 
und Seen. 



3-D-Grafik-Master: 



Dreidimensionale, plastische Körper aus 
jedem beliebigen Blickwinkel betrachten 
und sogar um jede mögliche Achse dre¬ 
hen - das ermöglicht Ihnen dieses Grafik- 
Animationsprogramm. Wenn Sie wollen, 
auch in Echtzeit. 


Amica-Paint-Erweiterungen: Das tolle 
Malprogramm »Amica-Paint« läßt sich 
noch weiter ausbauen. Neue Maustrei¬ 
ber für die 1351- und die NCE-Maus, ein 
verbesserter Schnellader, neue Dia- 
Show, zwei zusätzliche Erweiterungen 
lassen das Herz eines jeden Amica-Paint- 
Anwenders höher schlagen. 



Weiterhin befinden sich auf der Diskette 
alle Programme, die im Inhaltsverzeichnis 
des 64'er-Sonderheftes 45 mit einem 
Diskettensymbol gekennzeichnet sind. 


Bestell-Nr. 15945 

DM 29,90* sFr 24,907öS 299,-* 



10 Leerdisketten 5 '/«• 
zum Sonderpreis von DM 1930 

Bestell-Nr 39000, 2seilig. 
doppelle Dichte DSÜD. 40 Spuren, 
48 tpi mit Verstaikungsnng 
und Schrelbschutzkerbe 
inld. Labelsel. unformatiert. 



Markt&Technik 

Zeitschriften • Bücher 
Software • Schulung 


Weitere Angebote 
auf der Rücl 


geböte 

;kseite! 





















PROGRAMMSERVICE 










. ___ :__-i __v 

Sie suchen packende 
Spiele, hilfreiche Utilities 
und professionelle An¬ 
wendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? 

Hier finden Sie beides! 
Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Computertyp. 

Wenn Sie fragen zu den 
Programmen in Unserem 
Angebot haben, rufen 
Sie uns an: 

Telefon (089) 4613-640 

Bestellungen bitte nur gegen 
Vorauskasso an: MarktÄlechnik 
Verlag AG, Unternohmons- 
bereich Buchverlag, Hans-Pinsel- 
Straße 2, D-8013 Haar, 

Telefon (089) 4613-0. 

Schweiz: 

Markt ÄTechnik Vertriebs AG, 
Kollerst nasse 37, CH-6300 Zug, 
Telefon (042) 440550. 
Österreich: 

Markt ÄTechnik Verlag Gesell¬ 
schaft m.b.H., Große Neugasse 
28, A-1040 Wien, Telefon 
(0222)5871393-0; 

Microcomput-ique, E. Schiller, 
Göglstraße 17, A-3500 Krems, 
Telofon (02732) 74193; 
MES-Versand, rostfoch 15, 
A-3485 Haitzendorf* 
Bucherzentrum Meidling, 
Schönbrunnor Straße 261, 
A-1120 Wien, 

Telefon (0222) 833196. 
Bestellungen aus anderen 
Ländorn bitte nur schriftlich an: 
Markt ÄTochnik Vorlag AG, 

Abt. Buchvertrieb, Hons-Pinsel- 
Straße 2, D-8013 Haar, und 
gogon Bezahlung der Rechnung 
im voraus. 

Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die abge¬ 
druckte Postairo- 
Zahlkarte, oder senden 
Sie uns einen 
Verrechnunqs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 



64'ei^Sonderheft 44: 
Top-Anwendungen für alle 
C128-Besitzer 

Gredi: Nutzen Sie mit diesem Zeichenptogramm den 80-Zeichen- 
Bildschirm Ihres 028 voll aus. Für Textfunktionen ist ein Ze 
satzeditor integriert. Bilder im Printfox-Format lassen sich f 
in das Gredi-Formaf konvertieren. Drucker-Voraussetzung:' 
Kompatible. Dispo 128: Die komfortable Verwaltung einer mritang- 
reichen Diskeltensammlung ist für jeden Computerbesitzer unent¬ 
behrlich. Der besondere Vorteil von »Dispo 188«: Das Programm 
erkennt automatisch das verwendete Djskettenformat, und Sie 
behalten die Übersicht über alle Disketten im 1540/1571/1581- 
Format. Flowchart: Das Werkzeug für strukturiertes Programmieren: 
Entwerfen Sie am Bildschirm das Flußdiagramm, »FlaAchart« gene¬ 
riert daraus automatisch das entsprechende Basic-Programm. 
Floppy Support: Dieses leistungsfähige Disketten-Utilityjür die 
Floppy 1570/1571 erlaubt umfangreiche Manipulatio 
f erhalten Sie durch den ein 
Vielzahl der mächtigen Fun 
i sich auf der Diskette alle pi 
s 64'er-Sonderhefts 44 mit einem Diskettensym- 
sind. i 


hloppy 
Zugriff auf die Disl 
tenmonitor, der die 
Weiterhin befio 
Inhaltsverzeich 
bol gekennzeichn 
Diskette für 028 

Bestell-Nr. 15944 


I 29,90* sFr 24,90*/c 


64'er-Sonderht 
Einsteiger-Paket: 

Text II: Die besondere Textverarbeitung nait 80 Zeichen pro Zeile. 
Wordwrapping, Formatieren im Blocksatz, -deutsche Tastatur und 
flexible Druckersteuerung gehören zu diesem sehr schnellen Textpro¬ 
gramm (geeignet nur für Monitor-Besitzer). SMON: Dringen Sie mit 
diesem leistungsfähigen Speichermonitor in die Tiefönjhres Comp 
teis vor. Der integrierte Diskettenmonitor gibt volle Kannelle über Oe 
Floppystation. Master-Copy Plus: Bei Unmengen von Software für 
den C 64 tut ein Kopierprogramm not. Genau hier setzt unser Pro¬ 
gramm Master-Copy Plus an. Checksummer V3 und MSE:.WcH?" 
Sie listings abtippen? Zwei Eingabehilferi; die das fehlerfreie Aorrp-' 
pen von Programmen wesentlich erleichtern. Die Anleitungen zu den 
einzelnen Programmen befinden sich auf der Diskette und können mit 
dem Programm Text II eingelesen werden. 

Bestell-Nr. 15942 DM 19,90* (sFr 17>fäS 199,-*) 


64'er-Sonderheft 41: \ 

Floppy optimal genutzt 

Dieses außergewöhnliche Dfeke(ten-Utility ist für (i 
:er ein unentbehrliches Hilfsmittel: Es enthält untei 



Floppy 


ortablen Diskeltenmoriifbr und 
Der Disc-Wlzdid-möcht 
etten. Disc-Basic: Mit 33 neuen 
umständliche Programme zur Bedienung der 
heit an. Das Anlegen einer relativen Datei erled 
lerung zum Beispiel mit einem einzigen Befe 
machen Schluß mit dem bisherigen Floppy-Ka 
Viele pfiffige Details lassen die Ai 
zu einem wahren \fergnügen werden 


byout. Acht Seiten mit zehn verschiedenen Zeichensätzen können 
Se gleichzeitig bearbeiten. Mastertext: Dieses Textverarbeitungs¬ 
programm der Spitzenklasse bietet durch seine einfache Menüsteue¬ 
rung einen hohen Bedienungskomfort. Es ist die ideale Ergänzung für 
Giga-Publish. Master-Address: Adrefverwaltung, Serienbriefe, 
Adreßaufkleber und Etiketten sind die Domäne von Master-Address. 
Es ist optimal auf Mastertext abgestimmt und bildet mit diesem ein 
leistungsfähiges Software-Paket. Master-Spell: Nie wieder Tipp- 
und Flüchtigkeitsfehler: Eine automatische Rechtschreibprüfung ist für 
lUe unentbehrlich, die mit Mastertext arbeiten. Hi-Eddi: Dieses kom- 
foiteible und leistungsfähige Zeichen- und Konstruktionsprogramm 
macwes einfach, Grafiken mit Joystick oder Maus zu erstellen. Mit 
Mastertairt und Hi-Eddi verfügen Sie über das ideale Gespann, 
Giga-Publhb als DTP-Programm optimal zu nutzen. Weiterhin befin¬ 
den sich auf dpr Diskette alle Programme, die im Inhaltsverzeichnis 
des 64'er-Sondafhefts 39 mit einem Diskettensymbol gekennzeich¬ 
net sind. 

Eine Diskette 

Bestell-Nr. 15939 V DM 19,90* sFr 17,-VöS 199,- 


\ 


inde- 
ion für 
rmeister 
gehören 
Vergangen- 
Sprachetwei- 
neuen Befehle 
Isch. Diskprint: 
iskettenverwaltung 
Disketten werden 
von demProgramm verwaltet. Die integrierten Editierfunktionen sor¬ 
gen für Übersichtlichkeit am Bildschirm und beim Ausdruck. 64'er- 
DOS V4 und Autostart: Auch Bewährtes läßt sich noch verbessern: 
Der Floppys-Speeder mit integriertem Monitor SMON läßt sich jetzt 
in jeden C64 und in jede Floppy einbauen. Mit dem Autostart- 
System werden Programme sofort nach dem Einschalten automa¬ 
tisch geladen und gestartet. (Die Programme müssen auf EPROM 
gebrannt werden.) Disk-Tape-Backup: Aufatmen für jeden 
Datasetten-Besitzer: Mit diesem Programm wird das Kopieren von 
Floppy auf Datasette zum Kinderspiel. Ein eingebauter Schneilade 
sorgt dabei für Komfort. Weiterhin befinden sich auf der Diskette'alle 
Programme, die im Inhaltsverzeichnis des 64'er-Sonderheft$-4V mit 
einem Diskettensymbol gekennzeichnet sind. 

Eine Diskette 

Bestell-Nr. 15941 DM 19,90* (sFr 17,-*/öS 199,- 


64'er-Sonderheft 38: 

Komplettes Einsteiger^Paket 

Diskette 1, Grafik total: 

Eine Auswahl faszinierender Bilder, die zeigen, welche grafischen 
Fähigkeiten im C64 stecken. Point Magic: Ein tolles Grofikpro- 
nm, mit dem Sie in kürzester Zeit wunderschöne farbige Grafiken 
Und Bilder auf den Monitor zaubern. Alpha Drummer: Dieses 
Schlagzeug-Programm liefert 24 perfekte Sounds. Wer möchte, 
kann beliebige Rhythmen erzeugen oder eigene Sounds digitalisie¬ 
ren. Sounds zum Genießen: Entlocken Sie dem Sound-Chip Ihres 
C64 Musik, die Sie vom Hocker reißt. Von Klassik bis Pop - für jeden 
ist etwas dabei. 

Bestell-Nr. 15938 DM 19,90* sFr 17,-’/öS 199,-* 

Diskette 2 

Leichter lernen mit dem Computer: 

Jetzt ist der Frust beim öden Pauken vorbei. Vier Programme helfen 
dabei: Der »Vokabeltrainer« bringt mehr Spaß beim Englischlemen. 
Ein Übungsprogramm zum »Bruchrechnen« erleichtert Schülern, 
diese gefürchtete Hürde zu überwinden. »Lateinische Deklinatio¬ 
nen« greift auch bei dieser Fremdsprache unter die Arme. »CAT« 
bringt den »Kleineren« die Grundrechenarten mit grafischer Unter¬ 
stützung näher. Springvogel: Helfen Sie dem Springvogel beim Eier¬ 
sammeln: ein Spiel für geschickte Hände. Mit dem eingebauten Edi¬ 
tor können Sie eigene Spielstufen erstellen und die Schwierigkeit 
Ihren Bedürfnissen anpassen. Pro-Disk: Mit dieser professionellen 
Diskettenverwaltung behalten Sie stets den Überblick über Ihre 
Programmsammlung. 

Bestell-Nr. 16938 DM 19,90* sFr 17,-*/öS 199,-* 


Aktionsprell: Als Programme cts im InhalKvorzeichnb des 64'er-Sondochefe 38 
mit einem Dbtetteraymbol gekennzeichnet sind (Inkl. der Programme aus Diskette 
1 und 2) erhalten Sie auf zwei Disketten 
Zwei Disketten 

Bestell-Nr. 17938 DM 29,90* sFr 24,90 */öS 299,-* 


•Urwtbindlicho Probempfehlung 



64'er-Sonderheft 39: 

Das Komplett-Paket für professio¬ 
nelles Desktop Publishing 

Giga-Publish: Ideal für Vereine oder Schülerzeitungen: Giga- 
Publish ist ein professionelles Desktop-Publishing-Programm der Spit¬ 
zenklasse. Gestalten Sie Ihre Texte und Grafiken zu einem perfekten 


Mit den Gutscheinen aus dem »Super- 
Software-Scheckheft« zu DM 149,- kön- 
lie Software-Disketten Ihrer Wahl aus dem Programm- 
ice Angebot im Wert von DM 180,- bestellen - egal, ob diese 
1990, DM 29,90 oder DM 89,- kosten. Sie sparen DM 30,-1 
iper-Software-Angebot finden Sie in den Zeitschriften 

Computer Persönlich, PC Magazin Plus, 

Amiga-Magazin, Amiga-Sonderheft, 64'er-Magazin, 64'er- 
Sonderheft, ST Magazin, PC Magazin, Happy-Computer. 

- 'Übrigens: Die Gutscheine können Sie auch übertragen oder ver¬ 
schenken! 

Das Scheckheft können Sie per Verrechnungsscheck oder mit 
der eingehefteten Zahlkarte direkt beim Verlag bestellen. 
Kennwort: »Super-Software-Scheckheft«, Bestell-Nr. W156 


Mur-onlfn«.«*» 







LISTINGS 


0129 


LDA 

OBEN j 

RASTERZEILE AUS OBEN 

0130 


STA 

RASTER ; 

UORWAEHLEN 

0131 


LDA 

CONTROL1 ; 

KEIN UEBERTRAG 

0132 


AND 

»S7F 


0133 

0134 


STA 

C0NTR0L1 


0135 


LDA 

10000001 

RASTER-INTERRUPT 

0136 

0137 


STA 

IROMASK 

WAEHLEN 

0138 


LDA 

#<IROPLUS ; 

ZEIGER SETZEN 

0139 


STA 

IRQUECTORL 


0140 


LDA 

*>IROPLUS 


0141 

0142 


STA 

IRQUECTORH 


0143 


JSR 

NULT1NIT i 

NULT I PL IKBTIONSTflBELLE 

0144 




; BERECHNEN 

0145 


JSR 

COUERSPRITES ; SPRITES ZUH UEROECKEN 

0145 

0147 




; ERZEUGEN 

014B 


LDA 

MSOO 

LETZTES BYTE DER 

0149 

0150 


STA 

S3FFF 

UIDEOBBNK LOESCHEN 

0151 

WAIT 

LDA 

RASTER ; 

OUF UNTERE RBSTERZEILE 

0152 


cnp 

UNTEN 

WARTEN 

0153 

0154 


BNE 

WAIT 


0155 


CLI 


IRO WIEDER ZULASSEN 

0156 

0157 

01 SB 


RTS 

1 

... UND ZURUECK 

0159 

0150 

• NEUE 

INTERRUPTROUTINE 

• 

IROPLUS 

LDA 

IROFLAG 

IRO-REEISTER OUSLESEN 

0161 

0162 

0163 

0164 


STA 

IRDFLAG ; 

UND SOMIT LOESCHEN 

0165 


LDA 

RASTER j 

RASTERZEILE BESTIMMEN 

0155 


cnp 

UNTEN 

UND UERZWEI GEN 

0167 


BCS 

JMPUNTEN 


0168 

0169 


BCC 

ISTOBEN 


0170 

0171 

0172 

0173 

0174 

JHPUNTEN 

JMP 

ISTUNTEN 


0175 





0176 

• OBERER TEIL 

DES I ROS 

■ 

0177 

017B 

0179 

ISTOBEN 

JSR 

PARAMOBEN ; 

UIC-WERTE SETZEN 

0180 


JSR 

USCROLL ; 

UERTIKAL SCROLLEN 

0181 


JSR 

UCONST ; 


01 B 2 

0183 


JSR 

JSR 

HSCROLL ; 

HCONST ; 

HORIZONTAL SCROLLEN 

0184 


JSR 

JOYSTICK ; 

ABFRAGEN 

01 BS 

01 B 6 


JSR 

HARDPREP j 

HARDSCROLL UORBEREITEN 

0187 


LDA 

UNTEN ; 

RASTERZEILE SETZEN 

01 BB 


STA 

RASTER 


0189 

0190 

0191 


jnp 

IRQNORMAL ; 

... UND ZURUECK 

0192 

• PARAMETER SETZEN 

■ 

0193 

0194 

0195 

PARAMOBEN 

LDA 

RFARBE1 

FARBEN FESTLEGEN 

0196 


STA 

RAHMEN 


0197 


LDA 

HFARBE1 


019B 


STA 

HINTERGRUND! 

0199 

0200 


LDA 

»SOO 

BILDSCHIRM 

0201 

0202 


STA 

C0NTR0L1 ; 

ABSCHALTEN 

0203 


LDA 

YSOFT j 

VERTIKALEN SCROLL-WERT 

0204 


LSR 

• 

HOLEN 

0205 


LSR 

j 

DURCH 32 TEILEN 

0206 


LSR 



0207 


LSR 



0208 


LSR 



0209 


AND 

«S07 

BITS 3-7 ISOLIEREN 

0210 


BEO 

NULL [ 

AUF NULLGRENZE PRUEFEN 

0211 


STA 

CONTROL1 | 

UND INS SCROLLREGISTER 

0212 

0213 




; SCHREIBEN 

0214 

NULL 

LDA 

XSOFT j 

HORIZONTALER SCROLL-WERT 

0215 


LSR 


DURCH 32 TEILEN 

0216 


LSR 



0217 


LSP 



0218 


LSR 



0219 


LSR 



0220 


AND 

HS07 j 

BITS 3-7 ISOLIEREN 

0221 


□ RA 

rmoioooo 


0222 


STA 

C0NTR0L2 ; 

UND SCROLL-WERT SETZEN 

0223 

0224 

0225 


LDA 

C0NTR0L1 i 

BILDSCHIRM WIEDER 

0225 


OPA 

MS10 j 

EINSCHALTEN 

0227 

0228 


STA 

C0NTR0L1 


0229 


RTS 

j 

... UND ZURUECK 


S:' :_ 


0230 

0231 

0232 

0233 

0234 

0235 

0235 

0237 

023B 

0239 

0240 

0241 


SOFTSCRDLLEN 


AB HIER WIRD DURCH UERAENOERN 
DER ENTSPRECHENDEN ZWISCHENSPEICHER 
DAS SCROLLEN DURCHGEFUEHRT. DER 
INHALT DER ZWISCHENSPEICHER WIRD 
DURCH OBIGE ROUTINE IN DIE ZWEI 


0242 

0243 

0244 

0245 

0245 

0247 


SCRDLLREGISTER DES UIC GESCHRIEBEN. 


UERTIKAL - UARIABEL 


0248 

USCRGLL 

LDA 

YSPEED 

RICHTUNG BESTIMMEN 

0249 


BMI 

OBENSOFT 

UND UERZWEIGEN 

0250 


JMP 

UNTENSOFT 


0251 





0252 





0253 

UNTENSOFT 

LDA 

YSPEED 

MOMENTANE GESCHWINDIGKEIT 

0254 


SEC 


HOLEN 

0255 


SBC 

YFRICT 

REIBUNG ABZIEHEN 

0256 


BCS 

BRANCH1 

BEI STILLSTAND 

0257 


RTS 


ZURUECK 

0258 

BRANCH1 

STA 

YSPEED 

GESCHWINDIGKEIT SCHREIBEN 

0259 


LDA 

YSDFT 

SCROLL-WERT HOLEN 

0260 


CLC 


GESCHWINDIGKEIT DAZU 

0261 


ADC 

YSPEED 

ADDIEREN 

0262 


STA 

YSDFT 

UND SETZEN 

0263 


BCS 

UNTENHARD 

BEI UEBERLAUF HARDSCROLL 

0264 


RTS 


SONST ZURUECK 

0265 





0266 

□BENSOFT 

LDA 

YSPEED 

ANALOG ZU OBIGEM ABLAUF, 

0267 


CLC 


DURCH UORZEICHENUMKEHR 

0268 


ADC 

YFRICT 

RICHTUNGSWECHSEL 

0269 


BCC 

BRANCHE 


0270 


RTS 



0271 

BRANCH2 

STA 

YSPEED 


0272 


LDA 

YSOFT 


0273 


CLC 



0274 


ADC 

YSPEED 


0275 


STA 

YSOFT 


0276 


BCC 

OBENHARD 


0277 


RTS 




0278 

0279 

0280 

02B1 

0282 

0283 

02B4 

0285 

02BB 

02B7 

0288 

02B9 

0290 

0291 

0292 

0293 

0294 


UERTIKAL - KONSTANT 


UNTENCONST 


OBENCONST 


0297 

029B 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0305 

0307 

030B 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

031B 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 


LDA 

YCONST 

KONSTANTE RICHTUNG 

BMI 

OBENCONST 

BESTIMMEN 

JMP 

UNTENCONST 

; UND UERZWEIGEN 

LDA 

YSOFT 

KONSTANTE BEWEGUNG 

CLC 


ZUM SCROLL-WERT 

ADC 

YCONST 

ADDIEREN 

STA 

YSOFT 


BCS 

UNTENHARD 


RTS 



LDA 

YSOFT 

BZW. ALS NEGATIUE 

CLC 


ZAHL DAUON SUBTRA¬ 

ADC 

YCONST 

HIEREN 

STA 

YSOFT 


BCC 

OBENHARD 


RTS 




HARDSCROLL DURCH AENDERN 
DES ZEILENZEIGERS 


HIER KANN EINE ABFRAGE AUF ERREICHTE 
GRENZEN IM SCROLLSCREEN STEHEN ' 


UNTENHARD 


INC YPOINTER 5 EINE ZEILE HOEHER 
RTS 


DEC YPOINTER ; EINE ZEILE TIEFER 
RTS 


HORIZONTAL - UARIABEL 


DIESER PROGRAnnTEIL FUEHRT ANALOG 
i ZUR OBIGEN ROUTINE DIE SCROLL- 
BEWEGUNG AUS. DIESE ERFOLGT HIER 
ALLERDINGS IN HORIZONTALER RICHTUNG. 


032B 

HSCROLL 

LDA 

XSPEED 

RICHTUNG BESTIMMEN 

0329 


BMI 

LINKSSOFT 

UND UERZWEIGEN 

0330 


JMP 

RECHTSSOFT 


0331 

; 




0332 

RECHTSSOFT 

LDA 

XSPEED 

REIBUNG UON 

0333 


SEC 

. 

GESCHWINDIGKEIT 

0334 


SBC 

YFRICT 5 

ABZIEHEN 

0335 


BCS 

BRANCH3 


0336 


RTS 



0337 

BRANCH3 

STA 

XSPEED ; 

GESCHWINDIGKEIT 

0338 


LDA 

XSOFT 

ZUM SCROLL-WERT 

0339 


CLC 

; 

ADDIEREN 

0340 


ADC 

XSPEED 


0341 


STA 

XSOFT 


0342 


BCS 

RECHTSHARD 


0343 


RTS 



0344 





0345 

LINKSSOFT 

LDA 

XSPEED 

WIE OBEN, 

0346 


CLC 


ABER IN ANDERE 

0347 


ADC 

XFRICT 

RICHTUNG DURCH 

0348 


BCC 

BRANCH4 

UORZEICHENUMKEHR 

0349 


RTS 



0350 

BRANCH4 

STA 

XSPEED 


0351 


LDA 

XSOFT 


0352 


CLC 



0353 


ADC 

XSPEED 


0354 


STA 

XSOFT 

Listing 2. (Fortse 
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LISTINGS 


0355 


BCC 

LINKSHARD 


0469 




0355 


RTS 



0470 




0357 





0471 

- HARDSCROLLEN UORBEREITEN • 

0350 





0472 




0359 

* HORIZONTAL 

- KONSTANT 

• 

0473 




0350 





0474 

DIESER PROGRAMMTEIL SETZT MIT HILFE 

0361 





0475 

DES ZEILEN- 

UND 

SPALTENZEIGERS DAS 

0362 

HCONST 

LDA 

XCONST 


0476 

BILOSCHIRUFENSTER AN DIE RICHTIGE 

0363 


BMI 

LINKSCONST 


0477 

STELLE IM SCROLLSCREEN UND SORGT 

0364 


JHP 

RECHTSCONST 


0470 

SO FUER DIE 

ZEICHENWEISE SCROLL- 

0365 





0479 

BEWEGUNG. 



0366 

RECHTSCDNST 

LDA 

XSOFT ; 

KONSTANTE BEWEGUNG 

04 BO 

DIES GESCHIEHT DURCH MODIFIKATION DER 

0367 


CLC 


ADDIEREN 

0401 

ADRESSEN DER HARDSCROLLROUTI NE. 

0360 


ADC 

XCONST 


04B2 




0369 


STA 

XSDFT 


0403 

HARDPREP 

LDY 

YPOINTER ; ZEILENZIEGER HDLEN 

0370 


BCS 

RECHTSHARD 


0404 


LDX 

WSOO 

0371 


RTS 



0405 




0372 





0406 


LDA 

LINES ; SCHLEIFE ENTSPRECHEND 

0373 

LINKSCONST 

LDA 

XSOFT 

BZW. ALS NEGATIUE 

0407 


STA 

COUNTER j DER ANZAHL DER BILD- 

0374 


CLC 

1 

ZAHL SUBTRAHIEREN 

O4B0 



; SCHIRMZEILEN DURCH 

0375 


ADC 

XCONST 


0409 




0376 


STA 

XSOFT 


0490 

PREPLOOP 

CLC 


0377 


BCC 

LINKSHARD 


0491 


LDA 

LDU.Y i ZEIGER ZUR ADRESSE AUS 

0370 


RTS 



0492 


ADC 

XPDINTER ; NULT IPLKATIONSTABELLE 

0379 





0493 


STA 

HARDLD0P*1,X , PLUS DER ANFANGSADRESSE 

0300 





0494 



i DES SCRDLLSCREENS 

0301 

- HARDSCROLL 

DURCH AENDERN 

0495 


LDA 

HIGH.Y ; UND ZUR HARDSCROLLROUTINE 

0302 

- DES 

SPALTENZEIGERS 

• 

0496 


ADC 

«»TABELLE ; SCHREIBEN 

0303 





0497 


STA 

HARDL00P+2,X 

0304 





0490 


I NX 

j 6 BYTE ABSTAND 

03B5 

AUCH HIER 

KANN EINE ABFRAGE AUF 

0499 


INX 

; UON EINER 

0306 

GRENZEN ir 

SCROLLSCREEN STEHEN i 

0500 


INX 

; ADRESSE ZUR NAECHSTEN 

0307 





0501 


INX 


0300 

LINKSHARD 

INC 

XPDINTER ; 

EINE SPALTE 

0502 


INX 


03B9 ' 


RTS 

• 

NACH LINKS 

0503 


INX 


0390 





0504 


INY 


0391 

RECHTSHARD 

DEC 

XPDINTER j 

BZW. NACH RECHTS 

0505 


DEC 

COUNTER ; SCHON ALLE ZEILEN *» 

0392 


RTS 



0506 


LDA 

COUNTER 

0393 





0507 


BNE 

PREPLOOP 

0394 





0500 




0395 





0509 


RTS 

; ... DANN ZURUECK 

0396 

• JOYSTICK ABFRAGEN 

• 

0510 




0397 





OSll 




0390 





0512 




0399 

JOYSTICK 

LDA 

J0YPDRT2 t 

BITS DURCH 

0513 




0400 


ROR 


ROTIEREN 

0514 




0401 


BCC 

JOYOBEN ; 

UEBERPRUEFEN 

0515 




0402 


ROR 


UND UERZWI.IGEN 

0516 

• UNTERER TEIL DES 1RDS • 

0403 


BCC 

JOYUNTEN 


0517 




0404 





0510 




0405 

HORIZONTAL 

LDA 

J0YP0RT2 


0519 

IS1UNTEN 

JSR 

PARAMUNTEN ; UIC-WERTE SETZEN 

0406 


ROR 



0520 


JSR 

HARDSCROLL , AUSFUEHREN 

0407 


ROR 



0521 




040B 


ROR 



0522 


LDA 

OBEN ; OBERE RASTER2EILE 

0409 

0410 


BCC 

ROR 

JOYRECHTS 

G^6R q 

n Süä 

STA 

JMP 

RASTER 

IRDABSCHLUSS ; ... UND ZURUECK 

0411 


BCC 

JOYLINKS 


0525 




0412 





0526 




0413 


RTS 



0527 

i • PARAMETER 

SETZEN 

0414 





0520 




0415 





0529 




0416 





0530 

PARAMUNTEN 

LDA 

RFARBE2 ; FARBEN MIT 

0417 

• OER 

JOYSTICK-BEWEGUNG ENT- • 

0531 


NOP 

; UERZOEGERN SETZEN, 

041B 

• SPRECHEND 

3E5CHUIINDIGKEIT • 

0532 


NOP 

; UM FLACKERN ZU 

0419 

• UERAENDERN 


■ 

0533 


NOP 

; UERHINDERN 

0420 





0534 


NOP 


0421 





0535 


NOP 


0422 





0536 


5TA 

RAHMEN 

0423 





0537 


LDA 

HFARBE2 

0424 

- JOYSTICK NACH OBEN 

• 

0530 


STA 

HINTERGRUND1 

0425 





0539 

j 



0426 





0540 


LDX 

«SOD ; SPRITE-REIHE 

0427 

JOYOBEN 

LDA 

YSPEED ; 

GESCHWINDIGKEIT 

0541 


LDA 

MSDO ; ZUM UERDECKEN 

0420 


CLC 

; 

DURCH ADDIEREN DER 

0542 

UKOOR 

STA 

UIC.X ; HOLEN 

0429 


ADC 

YACCEL ; 

BESCHLEUNIGUNG 

0543 


DEX 


0430 


BUS 

END1 

ERHOEHEN. BE! UEBEP- 

0544 


DEX 


0431 


STA 

YSPEED i 

LAUF STOP 

0545 


BPL 

UKODR 

0432 

END1 

JP1P 

HORIZONTAL 


0546 




0433 





0547 


LDA 

«*01100000 ; UEBERTRAG SETZEN 

0434 





0540 


STA 

SX255 

0435 

• JOYSTICK NACH UNTEN 

• 

0549 




0436 





0550 


LDA 

«S02 ; SONSTIGE 

0437 





0551 


STA 

CONTROL1 ; UIC-PARAMETER 

043B 

JOYUNTEN 

LDA 

YSPEED ; 

GESCHWINDIGKEIT 

0552 


LDA 

«SDO 

0439 


SEC 


IN ANDERE RICHTUNG 

0553 


STA 

C0NTR0L2 

0440 


SBC 

YACCEL 

ERHOEHEN BZW. 

0554 




0441 


RUS 

F.ND2 ; 

ERNIEDRIGEN UND 

05SS 


RTS 


0442 


STA 

YSPEED 

UMKEHREN 

0556 




0443 

ENDB 

JHP 

HORIZONTAL 


0557 




0444 





0550 

:• HARDSCROLLEN AUSFUEHREN 

0445 





0559 




0446 





0560 




0447 

• JOYSTICK NACH RECHTS 

• 

0561 

HARDSCROLL 

LDY 

«527 i SCHLEIFENDURCHLAUEFE 

0440 





0562 

< 



0449 





0563 


LDA 

«536 ; SPEICHER UNTER 

0450 

JOYRECHTS 

LDA 

XSPEED j 

ANALOGER UORGANG 

0564 


STA 

SOI ; BAS IC-ROM EIN 

0451 


CLC 


ZU OBEN. ABER IN 

0565 




04S2 


ADC 

XACCEL ; 

HORIZONTALER 

0566 

HARDLOOP 

LDA 

TABELLE,Y ; HARD5CR0LL-SCHLEIFE 

0453 


BUS 

END3 j 

RICHTUNG 

0567 


STA 

SCREEN.Y 

0454 


STA 

XSPEED 


0560 


LDA 

TABELLE*100,Y ; HOLT AUS DEM SPEICHER 

0455 

END3 

RTS 



0569 


STA 

SCREEN*40,Y ; DEN DURCH DIE ZEIGER 

0456 





0570 


LDA 

TABELLE*200,Y ; FESTGELEGTEN BEREICH 

0457 





0571 


STA 

SCREEN*B0,Y ; UND SCHREIBT IHN AUF 

0450 

• JOYSTICK NACH LINKS 


0575 


LDA 

TABELLE*300,Y ; DEN BILDSCHIRM 

0459 





0573 


STA 

SCREEN*120,Y 

0460 





0574 


LDA 

TABELLE*400,Y 

0461 

JOYLINKS 

LDA 

XSPEED 


0575 


STA 

5CREEN*160,Y ; DIE OUELLADRESSEN WERDEN 

0462 


SEC 



0575 


LDA 

TABELLE+500,Y ; IM OBEREN TEIL DES IRQS 

0463 


SBC 

XACCEL 


0577 


STA 

SCREEN»BOO,Y ; ONHOND OER ZEIGER 

0464 


BUS 

END4 


057B 


LDA 

TABELLE*600,Y ; MODIFIZIERT 

0465 


STA 

XSPEED 


0579 


STA 

SCREEN*240,Y 

0466 

0467 

0460 

END4 

RTS 
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05B0 



LDA 

TABELLE*700,Y 

0693 


LDX 

#506 

FARBEN DER SPRITES 

0501 



STA 

SCREEN+200,Y 

0694 


LDA 

HFARBE2 

SCHREIBEN 

0502 



LDA 

TAB£LLE*0QO,Y 

0695 

COLOR 

STA 

SPRITEOCOL 

X 

0503 



STA 

SCREEN*320,Y 

0696 


DEX 



05B4 



LDA 

TABELLE*900,Y 

0697 


BPL 

COLOR 


0585 



STA 

SCREEN-360.Y 

0690 





0505 



LDA 

TABELLE*1000,Y 

0699 


LDA 

#$01 


05B7 



STA 

5CREEN*400,Y 

0700 


STA 

SPRITE0C0L*7 

0500 



LDA 

TABELLE*1100,Y 

0701 





0509 



STA 

SCREEN*440,Y 

0702 


LDX 

#$06 

BLOCKZEIGER 

0590 



LDA 

TABELLE*1200,Y 

0703 


LDA 

M$OD 

SETZEN 

0591 



STA 

SCREEN*480,Y 

0704 

MUSTER 

STA 

SPOINTER,X 


0592 



LDA 

TABELLE*1300,Y 

0705 


DEX 



0593 



STA 

SCREEN*520,Y 

0706 


BPL 

MUSTER 


0594 



LDA 

TABELLE*1400,Y 

0707 





0595 



STA 

SCREEN*560,Y 

070B 


LDA 

#$0E 


0595 



LDA 

TABELLE*1500,Y 

0709 


STA 

SPD INTER*7 


0597 



STA 

SCREEN*600,Y 

0710 





0590 



LDA 

TABELLE*1600,Y 

0711 


LDA 

#$FF 

RESTLICHE 

0599 



STA 

SCREEN*640,Y 

0713 


STA 

SPRITESAN 

PARANERTER 

0600 



LDA 

TABELLE*1700,Y 

0713 


STA 

SXEXPAND 


0601 



STA 

SCREEN*680,Y 

0714 


LDA 

#$80 


0602 



LDA 

TABELLE*1B00, Y 

0715 


STA 

SYEXPAND 


0603 



STA 

SCREEN*720, Y 

0716 





0604 



LDA 

TABELLE*1900, Y 

0717 


RTS 



0605 



STA 

SCREEN*760,Y 

0710 




; ... UND ZURUECK 

0606 



LDA 

TABELLE*2000,Y 

0719 





0607 



STA 

SCREEN*0OO,Y 

0720 





0600 



DEY 


0721 

• SPRITE-KDORDINATEN 

• 

0609 



BMI 

LOOPEXIT 

0722 





0610 



JMP 

HARDLOOP 

0723 





0611 ; 





0704 

SKOOR 

.BYTE 

$10,$91,$48.$91 

0612 

LOOPEXIT 

LDA 

#$37 ; SPEICHER UNTER 






0613 



STA 

SOI j BA5IC-ROM AUS 

0725 


.BYTE 

$70.$91,SAB.$91 

0614 ; 










0615 ; 





0726 


• BYTE 

SDB,$91.$00.$91 

0616 



RTS 







0617 } 





0727 


.BYTE 

S3B,$91,SA0,$6B 

0610 ; 
0619 ; 





0720 


.BYTE 

SEO 


0620 ; 





0729 





0621 i 

• 

EINMALIG AUFGERUFENE • 

0730 





0622 

• 

INIT 

-ROUTINEN 

0731 





0623 





0732 

• SPRITE-MUSTER CUFO) 

• 

0624 





0733 





0625 





0734 





0626 

• 

MULTIPLIKATIONSTABELLE 

0735 

UFO 

■ BYTE 

$00.$00.$00.$00,SOO.$00.$00.$00 

0627 

• 

BERECHNEN 







0620 










0629 





0736 


.BYTE 

SOO,SOO,SOO.$00,$00,$00.SOO.SOI 

0630 










0631 

MULT!NIT 

LDA 

BREITE ; AUSDDEHUNG DES 






0632 



STA 

XPOINTER ; SCROLLSCREENS ALS 

0737 


-BYTE 

SFF,$00,$02.$00,$40.$04,SOO.$20 

0633 



LDA 

HOEHE ; FAKTOREN 






0634 

0635 



STA 

YPOINTER - ... - 

oni 

.» OTT' 


• BYTE 

S04,SOO,S20,$04,SOO,$20,$06,$00 

0636 



LDY 

«SOO ; 1.FAKTOR FUER 






0637 



STY 

S2B ; MULTIPLIKATION 






0630 



LDY 

"SOO 

0739 


.BYTE 

S60, S3F.S81,SFC,SFF,SFF,SFF.SFD 

0639 

0640 



STY 

S29 






0641 

MULTLDOP 

LDX 

XPOINTER ; 2.FAKTOR FUER 

0740 


.BYTE 

SFF,SBF,S3F,SBD,SFC,SOF,SFF,SFO 

0642 



STX 

S71 ; MULTIPLIKATION 






0643 



LDX 

«SOO 






0644 



STX 

S72 

0741 


.BYTE 

SOO,SFF,SOO,$00,SOO.SOO,SOO,$00 

0645 

0646 



JSR 

UMULT ; MULTIPLIZIEREN 






0647 



TXA 

5 ERGEBNIS 

0742 


.BYTE 

$00.$00.SOO,SOO.SOO.$00.SOO.SOO 

0640 



PHA 

; RETTEN 






0649 



TYA 







0650 



PHA 


0743 





0651 





0744 





0652 



LDX 

S20 ; ERGEBNIS IN TABELLE 

0745 

• TABELLE MIT 

PARAMETERN 

• 

0653 



PLA 

5 SCHREIBEN 

0746 





0654 



STA 

HI GH,X ' 

0747 





0655 



PLA 


0740 

RFARBE1 

.BYTE 

$01 

RAHMENFARBE OBEN 

0656 



STA 

LOU.X 

0749 

HFARBE1 

.BYTE 

$00 

HINTERGRUNDFARBE OBEN 

0657 





0750 

RFARBEB 

.BYTE 

$06 

RAHMENFRABE UNTEN 

0650 



INC 

S20 j ZAEHLER ERHOEHEN 

0751 

HFARBE2 

.BYTE 

$06 

HINTERGRUNDFARBE UNTEN 

0659 



LDX 

S2B 

0752 

OBEN 

.BYTE 

S2D 

GRENZEN FUER RASTER- 

0660 



CPX 

XPOINTER 

0753 

UNTEN 

.BYTE 

SDO 

INTERRUPT 

0661 



BNE 

MULTLDOP j NEIN. DANN NOCHMAL 

0754 

BREITE 

.BYTE 

$00 

AUSDEHNUNG DES 

0662 





0755 

HOEHE 

.BYTE 

»FF 

SCROLLSCREENS 

0663 



LDA 

#$15 

0756 

LINES 

.BYTE 

$15 

ZEILEN IM BILD 

0664 



STA 

XPOINTER 

0757 

XACCEL 

.BYTE 

$04 

BESCHLEUNIGUNG 

0665 



LDA 

#$05 

0750 

YACCEL 

.BYTE 

$04 


0666 



STA 

YPOINTER 

0759 

XFRICT 

.BYTE 

$01 

REIBUNG 

0667 



RTS 

; ... UND ZURUECK 

0760 

YFRICT 

.BYTE 

$01 


0660 





0761 

XCONST 

.BYTE 

$00 

KONSTANTE BEWEGUNG 

0669 





0762 

YCONST 

.BYTE 

$00 


0670 





0763 





0671 

• 

SPRITEREIHE 

ZUM UERDECKEN • 

0764 





0672 

• 

UND 

UFO ERZEUGEN 

0765 

• TABELLE MIT 

UARIABLEN 

• 

0673 





0766 





0674 





0767 





0675 

COUERSPRITES LDX 

#$40 ; BLOCKMUSTER 

0760 

XPOINTER 

.BYTE 

$40 

POSITION IM 

0676 



LDA 

#$FF ; ERZEUGEN 

0769 

YPOINTER 

.BYTE 

$10 

SCROLLSCREEN 

0677 

FILL 


STA 

BLOCK,X 

0770 

COUNTER 

.BYTE 

$00 

ZAEHLER 

0670 



DEX 


0771 

XSPEED 

.BYTE 

$00 

MOMENTANE 

0679 



BPL 

FILL 

0772 

YSPEED 

.BYTE 

$00 

GESCHWINDIGKEIT 

0600 





0773 

XSOFT 

.BYTE 

$00 

SCROLL-WERT 

0601 



LDX 

#540 s UFO-MUSTER 

0774 

YSOFT 

.BYTE 

$00 


06B2 

PATTERN 

LDA 

UFO.X 5 HOLEN 

0775 





0603 



STA 

BLOCK*SMO,X 

0776 





0604 



DEX 


0777 

• MULTIPLIKATIONSTABELLE 

■ 

06B5 



BPL 

PATTERN 

0770 





0606 





0779 





0607 



LDX 

#$0F ; KOORDINATEN 

07B0 



SCEOO 


O 6 B 0 

KOOR 


LDA 

SKOOR.X ; HOLEN UND 

0701 

LOW 

• — 

•♦256 


0609 



STA 

UIC.X ; SETZEN 

0702 

HIGH 

• m 

•*256 


0690 



DEX 


0703 





0691 

0692 



BPL 

KOOR 

Listing 2. (Schluß) 
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Das gab es noch nie auf dem C 64: Eine Befehlser¬ 
weiterung, mit der Sie auf dem Bildschirm in drei 
Dimensionen zeichnen können. Lassen Sie sich 
verzaubern von den vielen Möglichkeiten, die die¬ 
ses Programm Ihnen bietet! 

D as Programm »Prograf« ist eine Basic-Erweiterung, 
die neue Befehle zum Erzeugen von Hires-Grafiken 
zur Verfügung stellt. Der Schwerpunkt liegt dabei auf 
mathematischen Funktionen, aber auch der Nicht-Mathe¬ 
matiker wird sich mit dem Programm schnell anfreunden. 
Das Programm übernimmt automatisch die Umrechnung 
in die Bildschirmkoordinaten, umständliche Operationen 
mit Funktionen wie Sinus oder Cosinus entfallen. 

Neben den üblichen Standardroutinen wie Punkt setzen, 
Punkt löschen, Linie zeichnen usw. weist das Programm ei¬ 
nige ganz herausragende Fähigkeiten auf. Zum Beispiel 
dreidimensionale Grafik in Zentralperspektive: Die Funk¬ 
tionen zum Zeichnen von Punkten und Linien verarbeiten 
drei Koordinaten ebenso korrekt wie zwei, genauso die 
Routinen für Translation und Rotation. 

Die Grafik umfaßt 640 x 400 Punkte. Dies ist viermal so¬ 
viel wie gewöhnlich und bringt auch auf dem Drucker eine 
wesentliche Qualitätssteigerung. Auf dem Bildschirm ist 
die gesamte Grafik als Übersicht in einer Auflösung von 
320 x 200 Punkten zu sehen. 

Die Bearbeitung der Grafik mit dem Joystick oder über 
die Tastatur ist kein Problem: Mit dem Joystick kann ge¬ 
zeichnet, schattiert, gelöscht werden, mit der Tastatur läßt 
sich jedes Zeichen beider Systemzeichensätze direkt in die 
Grafik einbauen. Die Druckroutinen wurden durch Interpo¬ 
lation optimiert: Die hohe Auflösung der Grafik wird noch¬ 
mals gesteigert, so daß der Matrixdrucker mit maximaler 
Dichte zeichnet. Achtung: Das Programm arbeitet jedoch 
nur mit Epson-kompatiblen Druckern zusammen, mit 7-Na- 
del-Druckern wie dem MPS 801/803 ist ein Ausdruck nicht 
möglich, da diese nur 480 Punkte in eine Zeile packen kön¬ 
nen (hier wird jedoch mit bis zu 640 Punkten pro Zeile gear¬ 
beitet). 

Trotz des sehr großen Speicherbedarfs für Grafik und 
Maschinenprogramm bleiben noch etwa 15 KByte für 


Code 

Farbe 

0 

Schwarz 

1 

Weiß 

2 

Dunkelrot 

3 

Türkis 

4 

Violett 

5 

Grün 

6 

Dunkelblau 

7 

Gelb 

8 

Orange 

9 

Braun 

10 

Hellrot 

11 

Dunkelgrau 

12 

Mittelgrau 

13 

Hellgrün 

14 

Hellbau 

15 

Hellgrau 


Basic-Programme frei. Das sollte in aller Regel für eigene 
Programme ausreichen. Zusammen mit dem weiter unten 
beschriebenen Basic-Programm »Funprint« ergibt sich ein 
sehr leistungsfähiges System zum Konstruieren und zum 
Zeichnen beliebiger Funktionen. 

Vor das Vergnügen haben die Götter nun mal leider den 
Schweiß des Abtippens gesetzt. Geben Sie bitte das Pro¬ 
gramm »Prograf« (Listing 1) mit dem MSE ein. Hinweise da¬ 
zu finden Sie auf Seite 159. Scheuen Sie sich nicht, dieses 
etwas längere Listing abzutippen, Sie werden dafür mit ei¬ 
nem Grafikprogramm der Oberklasse belohnt. Nach dem 
Laden mit dem Befehl 
LOAD "PROGRAF", 8,8 

belegt das Programm den Bereich von $4360 bis $5C00 
(dezimal 17248 bis 23552), die sichtbare Grafik mit Farb- 
speicher geht von $5C00 bis $7FFF, die eigentliche hoch¬ 
auflösende Grafik findet sich teilweise unter den ROMs im 
Speicherbereich von $8000 bis $FFFF. Sie sollten nach 
dem Laden im Direktmodus sicherheitshalber den Befehl 
NEW 

eingeben, damit alle Zeiger wieder richtig gestellt werden. 
Der gesamte Speicherbereich ab $4360 muß außerdem vor 
dem Überschreiben durch Basic-Variablen und Program¬ 
me geschützt werden. Dies geschieht in der ersten Zeile ei¬ 
nes Bacir-Programms durch 
2 P0KE 5b,67:CLR 

Die Anzahl der freien Bytes beträgt jetzt noch 15103 (14,7 
KByte). Die Erweiterung kann übrigens auch von einem 



Bild 1. Die Bedeutung des Projektionszentrums bei der 
Zentralprojektion wird durch die Skizze verdeutlicht 


Basic-Programm aus nachgeladen werden, der entspre¬ 
chende Befehl sieht so aus: 

1 A=A+1:IF A=1 THEN LOAD "PROGRAF",8,8 
Die Variable A wird zum Schutz eingesetzt, damit das Fi¬ 
le nicht mehrmals nachgeladen wird. Nach jedem LOAD 
startet nämlich das Basic-Programm wieder. Eine andere 
Möglichkeit finden Sie in den Listings 2 und 3. Nun können 
die neuen Befehle eingeschaltet werden. Dazu dient der 
Befehl 
P0KE 777,67 


Tabelle 1. Die gültigen Farbcodes 
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Sollten Probleme auftreten (sehr unwahrscheinlich), 
können Sie die Erweiterung natürlich ohne weiteres auch 
wieder abschalten. Ein einfacher 
POKE 777,167 
genügt da schon. 

»Prograf« ist in der vorliegenden Version für Epson-kom- 
patible Drucker geschrieben. Die Anpassung an andere 
Druckertypen kann mit dem Programm »PG.PRINTER« (Li- 
sting 2, bitte mit dem Checksummer eingeben, siehe Seite 
159) erfolgen. Dieses Programm wird wie folgt angewen¬ 
det: Nach dem Abtippen speichern Sie es sicherheitshal¬ 
ber auf einer Leerdiskette. Jetzt geben Sie 
LIST 

ein. Das Programm enthält einige DATA-Zeilen, in denen 
die benötigten Druckercodes zu finden sind. Fügen Sie 
nun, gegebenenfalls unter Zuhilfenahme des Drucker- 



Bild 2. Der Bildschirm von »Funprint« 


handbuchs, die Codes Ihres Druckers ein. In der letzten 
DATA-Zeile wird der neue Filename eingetragen, den das 
geänderte Druckprogramm erhalten soll. Jetzt wird Listing 
2 mit 

RUN 

gestartet. Nach Beantworten der Sicherheitsabfrage mit 
<J> und <RETURN> wird Listing 1 automatisch nach¬ 
geladen, modifiziert und kann gespeichert werden. Dazu 
legen Sie eine Diskette ein und bestätigen die Abfrage. 
Jetzt wird das Druckprogramm unter dem neuen Namen 
gespeichert und kann normal geladen und benutzt werden. 
Da die Codes leider auf 7-Nadel-Druckern wie dem MPS 
801 nicht entsprechend verfügbar sind, ist ein Ausdruck auf 
diesen Druckern nicht möglich. 

Dazu gehört der MPS 803 ebenso wie die alten Commo- 
dore-Drucker des Typs VC 1515 und VC 1525 sowie der Sei- 
kosha GP-100 VC und natürlich alle Drucker, die mit einem 
speziellen Interface einen MPS 801 simulieren. Allerdings 
können Sie speziell bei diesen Druckern wenigstens die 
sichtbare 320 x 200-Punkte-Grafik mit einem Hardcopypro¬ 
gramm wie »Uniprint« (in 64’er, 4/88 und Sonderheft 32) 
oder dem »Hardmaker« zu Papier bringen. 

Als möglicher Programmkopf für eigene Basic-Program- 
me, die »Prograf« verwenden, kann der »PG.LOADER« (Li¬ 
sting 3, bitte mit dem Checksummer eingeben) dienen. Hier 
sehen Sie eine Möglichkeit, »Prograf« nachladen zu las¬ 
sen, falls es sich noch nicht im Speicher befindet. 


Jeder Befehl beginnt mit einem Ausrufezeichen und wird 
wie ein normaler Basic-Befehl eingesetzt. Die Parameter 
werden grundsätzlich durch ein Komma vom Befehlswort 
und untereinander getrennt. Parameter, die in der Beschrei¬ 
bung in Klammern stehen, können weggelassen werden 
(sind optional). Eine Übersicht finden Sie in Tabelle 2. 

Wenn Sie übrigens einige der mathematischen Fachaus¬ 
drücke nicht auf Anhieb verstehen, ist das in keinster Weise 
ehrenrührig. Wir haben für Sie ein kleines Mathelexikon 
(Textkasten) vorgesehen, in dem alle Begriffe kurz erklärt 
sind. 

Noch etwas sollten Sie beachten, wenn Sie die Befehle 
in eigenen Programmen einsetzen wollen. Da die neuen 
Kommandos nicht in Tokens gewandelt werden (also nicht 
verkürzt in Basic-Programmen gespeichert werden, son¬ 
dern im vollen Wortlaut), müssen Sie hinter dem Befehl 
THEN einen Doppelpunkt setzen, wenn danach ein neuer 
Befehl folgt. Also nicht 
IF A = 1 THEN !CLR 
sondern 

IF A = 1 THEN : !CLR 
aber nach wie vor 
IF A = 1 THEN GOTO 25 


Befehl, Parameter 

Funktion 

ICLR 

Grafik löschen 

!SCN, X 

Grafik ausschalten (X=0) 
oder einschalten (X=1) 

ILOC, X, Y (,XU,XO,YU,YO) 

Koordinatensystem 

festlegen 

IPLOT X,Y (.Typ) 

Punkt in Grafik zeichnen 

ILINE XI,Y1,X2,Y2 (.Typ) 

Linie zeichnen 

!PROZ,A,B,C 

Projektionszentrum 

!ROT,W1,W2,W3 

Rotation festlegen 

!TRANS,X0,Y0,Z0 

Translation 

!ZPLOT,X,Y,Z (Typ) 

3D-Punkt zeichnen 

!ZLINE,X1,Y1,Z1,X2,Y2,Z2 (.Typ) 

3D-Linie zeichnen 

IDEFFN'Name’ 

Funktion definieren 

IDRAW (.Zoomfarbe,Pfeilfarbe) 

Grafik mit Joystick und 

Tastatur verändern 

!SAVE"NAME" 

Grafik speichern 

ILOAD-NAME" 

Grafik laden 

ICOPYJyp (.Sekundäradresse) 

Hardcopy 


Tabelle 2. Kurze Übersicht über alle neuen Befehle 
der Basic-Erweiterung »Prograf« 


Kurzinfo: Prograf 


Programmart: Basic-Erweiterung für dreidimensionale 
Zeichnungen 

Laden: LOAD "PROGRAF',8,8 

Start: Nach dem Laden NEW eingeben. Um das Programm vor 
Überschreiben zu schützen, geben Sie im Direktmodus »POKE 
56,67:CLR« ein. Aktiviert wird es mit POKE 777,67. Ausschalten 
können Sie es mit POKE 777,167. 

Besonderheiten: Das Programm »PG.PRINTER« dient zur Drucker¬ 
anpassung. Unterstützt werden nur Epson-kompatible Drucker. 
»PG.LOADER« ist ein Beispiel, wie »Prograf« in einem Basic- 
Programm nachgeladen wird. 

»FUNPRINT« dient zum Experimentieren mit den neuen Befehlen 
der Erweiterung. Mit dem »DEMOPROGRAMM« lassen sich ver¬ 
schiedene Bilder, die mit »Prograf« gezeichnet werden, auf dem 
Bildschirm darstellen. 

Programmautor: Bertram Hafner 
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(denn GOTO ist kein neuer Befehl). Nun zur Beschreibung 
der Prograf-Befehle: 

Grafik löschen: ICLR (.Hintergrundfarbe,Zeichenfarbe) 
Mit dieser Anweisung wird die Grafik gelöscht. Auf 
Wunsch können die Farben für den Hintergrund und die 
Zeichenfarbe angegeben werden. Der Farbspeicher wird 
dann entsprechend beschrieben. Tabelle 1 enthält die gülti¬ 
gen Farbcodes. 

Grafik ein/aus: ISCN.1 oder ISCN.O 
Mit dem Wert 1 wird die Grafik eingeschaltet, mit 0 wieder 
abgeschaltet. Tritt während der Hires-Darstellung ein Feh¬ 
ler im Basic-Programm auf, oder ist das Program beendet, 



Bild 3. So entwickelt sich schnell aus einer Ellipse ein 
Vieleck oder eine Rosette 


wird automatisch auf die Textdarstellung zurückgeschaltet. 
Dieser Befehl ist daher im Direktmodus nicht sinnvoll. 

Ursprung: !LOC,X,Y (,XU,XO,YU,YO) 

Die Locate-Anweisung verschiebt den Koordinatenur¬ 
sprung der Grafik von der linken oberen Ecke des Bild¬ 
schirms an eine beliebige Stelle (X,Y), die auch außerhalb 
des Bildschirms liegen darf. Die nächsten vier Werte 
schränken, wenn sie angegeben sind, den Zeichenbereich 
auf ein Rechteck innerhalb des Bildschirms ein. 

Punkt setzen: IPIot, X,Y (Typ) 

Diese Anweisung setzt einen Punkt (X,Y) in dem durch 
ILOC definierten Koordinatensystem, sofern der Punkt im 
festgelegten Zeichenbereich liegt. 

TYP=0: Punkt löschen 

TYP=1: Punkt Invertieren 

TYP=255: Punkt setzen 

Der Defaultwert ist 255, d. h., wenn Sie keinen Typ ange¬ 
ben, wird der Punkt automatisch gesetzt. 

Punkte verbinden: !LINE,X1,Y1,X2,Y2 (,Typ) 

Die LINE-Anweisung verbindet die Punkte mit den Koor¬ 
dinaten (X1.Y1) und (X2.Y2) durch eine gerade Linie. Ge- 


Taste Funktion 


zeichnet wird nur der Teil, der im definierten Zeichenbe¬ 
reich liegt. Für den Zeichentyp gelten dieselben Vereinba¬ 
rungen wie bei IPLOT. 

Projektionszentrum: !PROZ,A,B,C 
Diese Anweisung legt das Projektionszentrum (= Be¬ 
trachterstandort) für die 3D-Darstellung in Zentralperspek¬ 
tive fest (siehe Bild 1). A,B,C sind die drei Koordinaten des 
Projektionszentrums im Koordinatensystem, das durch 
ILOC definiert wurde. Die drei Koordinaten liegen immer 
wie folgt: 

X-Richtung nach rechts 
Y-Richtung in die Tiefe 
Z-Richtung nach oben 

Der Befehl IPROZ wirkt auf die weiter unten beschriebe¬ 
nen Anweisungen IZPLOT und IZLINE. 

Rotation: !ROT,W1,W2,W3 

Die Anweisung IROT bewirkt beim dreidimensionalen 
Zeichnen mit IZPLOT oder IZLINE zusätzlich eine Drehung 
um die drei Koordinatenachsen. W1, W2 und W3 sind die 
drei Eulerschen Winkel im Bogenmaß (siehe Mathelexi¬ 
kon). Der Wert Pi entspricht also dem Winkel 180 Grad, 



Bild 4. Varianten der Sinus- und Logarithmusfunktion. 
In Tabelle 4 finden Sie die Koordinaten. 


1 Grad = Pi/180. W1 gibt den Winkel der Drehung von der 
X- in die Y-Richtung (also um die Z-Achse) an. W2 bestimmt 
die Drehung um die X-Achse, W3 dreht um die Y-Achse. 
Soll um eine Achse keine Drehung erfolgen, setzen Sie ein¬ 
fach Null für den entsprechenden Winkel ein. Beispiel: 
IROT 1.48,0,2.32 
dreht nur um die X- und Z-Achsen. 

Translation: !TRANS,X0,Y0,Z0 
Dieser Befehl verschiebt einen Punkt (X,Y,Z) beim Zeich¬ 
nen mit IZPLOT oder IZLINE um die Werte X0,Y0,Z0 im 
Koordinatensystem, und zwar erst nach der Drehung durch 
IROT. 

3D-Plot: IZPLOT,X,Y,Z (.Typ) 

Diese Anweisung setzt einen Punkt in Zentralperspekti¬ 
ve unter Berücksichtigung von IROT und ITRANS. Sonst ar¬ 
beitet der Befehl wie IPLOT. Der Computer leistet hier 
Schwerstarbeit: Zunächst wird, falls mit IROT eine Drehung 
erwünscht ist, diese ausgeführt. Dabei müssen unter Um¬ 
ständen alle drei Koordinaten verändert werden. Jetzt ad¬ 
diert der Computer zu den drei Koordinaten die bei ITRANS 
definierten Verschiebungen dazu. Die noch dreidimensio¬ 
nalen Koordinaten rechnet er unter Berücksichtigung der 
bei IPROZ gemachten Angaben in zweidimensionale Bild¬ 
schirmkoordinaten um (mit Hilfe von trigonometrischen 
Funktionen) und zeichnet den Punkt in die Grafik ein. 

330 ® 


< — > 

Auswahl des Zeichentyps 

<RETURN> 

Beenden 

<CTRL 1 > 

Zeichensatz 1 

<CTRL 2> 

Zeichensatz 2 

<CTRL3> 

doppelte Zeichenhöhe 

<CTRL 4> 

einfache Zeichenhöhe 

<CTRLRVSON> 

Reverszeichen 

< CTRL RVSOFF > 

Normalzeichen 


Tabelle 3. Die Steuertasten des DRAW-Modus 
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3D-Line: !ZLINE,X1,Y1,Z1,X2,Y2,Z2 (.Typ) 

Mit dieser Anweisung werden die beiden Punkte 
(X1Y1.Z1) und (X2,Y2,Z2) perspektivisch verbunden. !ROT 
und URANS werden berücksichtigt. Sonst wie SLINE. 

Funktionsdefinition: IDEFFN’Name’ 

Der alte Basic-Befehl DEF FN... ermöglicht bekanntlich 
eine Funktionsdefinition nur dann, wenn der Funktions¬ 
term bereits im Listing direkt hinter dem Befehl steht. Mit 
der Routine IDEFFN kann man eine Funktion während des 
Programmlaufs z. B. mit INPUT definieren. Der neue Befehl 



Bild 5. Beachten Sie bei dieser Hardcopy vor allem den 
Schatten am Rand der Figur 



Bild 6. Zweimal der Graph der gleichen Funktion (links: 
Zylinderkoordinaten, rechts: kartesische Koordinaten) 


Schaltfunktion: 

<*->: 

<RETURN>: 


<CTRL 1 >: 
<CTRL 2>: 
<CTRL 3>: 


Auswahl des Zeichentyps (siehe 
unten). 

Beenden der DRAW-Anweisung. 
Der Textmodus wird wieder einge¬ 
schaltet, das Programm fährt im 
Basic-Programm oder im Direkt¬ 
modus fort. 

Umschalten auf Zeichensatz 1 
Umschalten auf Zeichensatz 2 
Umschalten auf doppelte Zei- 



IDEFFN codiert den per INPUT eingegebenen Funktions¬ 
term und baut ihn direkt in das Basic-Listing ein. Gehen Sie 
dazu wie folgt vor: 

1.1m Basic-Programm muß eine Funktion vordefiniert sein. 

2. Lesen Sie, z. B. mit INPUT, den neuen Funktionsterm 
ein. Er steht dann im Basic-Eingabepuffer ab Adresse 
512. 

3. Aufruf der Routine IDEFFN 

Dazu ein Beispiel: 

10 DEFFNA(X)=::::::::::::::::::::REM so viele 
Doppelpunkte wie möglich als Platzhalter 
20 INPUT B$ 

30 !DEFFNA 

Nach RUN und LIST sehen Sie die Wirkung: Das Pro¬ 
gramm hat sich selbst verändert. Anstelle der Doppelpunk¬ 
te steht jetzt die eingegebene Funktion im Programm. 

Joystick/Tastatur: IDRAW (,Zoomfarbe,Pfeilfarbe) 

Die!DRAW-Anweisung aktiviert einen Spezialmodus zur 
Nachbearbeitung der Grafik mittels Joystick (Port 2) und Ta¬ 
statur. Bei Aufruf wird die Hires-Grafik eingeschaltet. Auf 
dem Bildschirm erscheint ein beweglicher Pfeil (in der frei 
wählbaren Pfeilfarbe), der die Funktion des Pinsels bzw. 
der Schreibmarke übernimmt. Sobald man den Joystick 
betätigt, wird die Zoom-Funktion eingeschaltet: Der 32 x 
32-Punktebereich um den Pfeil wird stark vergrößert darge¬ 
stellt (in der ebenfalls variablen Zoomfarbe). 

Die Bewegung des Pfeils erfolgt mit dem Joystick, den 
Cursortasten (punktweise) und den Funktionstasten 
<F5> bis <F8> (in Achterschritten). Mit der Tastatur 
kann Text direkt in die Grafik getippt werden. Dabei ist der 
gesamte Zeichensatz des C 64 aktiv. Dies ergibt umfassen¬ 
de Gestaltungsmöglichkeiten, denn auch die Grafiksymbo¬ 
le sind verfügbar. Wird ein Buchstabe vor nicht gelöschten 
Hintergrund gesetzt, bleibt dieser hinter dem Buchstaben 
(etwa im Kreis beim großen »O«) erhalten. Nur die Tasten 
<SPACE> und <DEL> löschen den Hintergrund. Fol¬ 
gende Tastenkombinationen haben eine besondere 


chenhöhe 
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<CTRL4>: Umschalten auf einfache Zei¬ 

chenhöhe 

< CTRL RVSON >: Umschalten auf Reverszeichen 
<CTRL RVSOFF>: Umschalten auf Normalzeichen 
Diese Tasten finden Sie in Tabelle 3 noch einmal zusam¬ 
mengefaßt. 

Mit dem Joystick können Sie den Cursor (Pfeil) innerhalb 
der Grafik frei bewegen. Drücken Sie den Feuerknopf, wird 
je nach Zeichentyp ein Punkt invertiert oder eine Sonderak¬ 
tion ausgeführt: Mit < — > wählen Sie zwischen verschie¬ 
denen Zeichentypen, die unterhalb des Pfeils angezeigt 
werden. Diese sind: 

1. Punkt invertieren 

2. eine umschlossene Fläche schraffieren 
3- eine umschlossene Fläche schattieren 

(drei Dichten) 

4. eine umschlossene Fläche füllen 

5. eine zusammenhängende Fläche löschen 


6. eine Linie ziehen 

7. eine Linie löschen (durch Markieren von Anfangs¬ 
und Endpunkt; ist der Anfangspunkt gelöscht, so 
wird die ganze Linie gelöscht) 

8. eine Linie löschen durch Antippen eines Punktes 
der Linie 

Die Peripherie 


Grafik speichern: !SAVE"Name" 

Diese Anweisung speichert die 640 x 400-Punktegrafik 
auf Diskette. Der 32K-Speicherbereich $8000—$FFFF 
wird vorher auf einfache Weise gepackt: Je mehr Nullbytes 
die Grafik enthält, um so geringer ist der Platzbedarf auf 
Diskette. 

Grafik laden: !LOAD''Name" 

Mit ILOAD wird eine von Prograf gespeicherte Grafik wie¬ 
der von Diskette geladen und dabei entpackt. Die Grafik 


Kleines Mathe- 


Achse: Gerade mit besonderer Aufgabe 

Abszisse: erste Koordinate eines Punktes, gewöhnlich die (waage¬ 
rechte) X-Achse. Siehe auch Ordinate 
Algorithmus: Rechenregel, Vorschrift zur Berechnung 
Argument: Zahl, Wert, Parameter, der in eine Funktion eingesetzt 
wird. Setzt man in die Funktion 
Y = 3 * X + 5 

das Argument 2 ein, so nimmt die Funktion und damit der Funktions¬ 
wert den Wert 11 an (6 plus 5). 

Auflösung: Maß für die Feinheit einer Grafik, eines Bildes, das aus 
vielen kleinen Punkten ( Pixel) zusammengesetzt ist. Die Auflösung 
gibt an, wie viele Pixel das Bild horizontal und vertikal enthält, die Auf¬ 
lösung eines Hires-Bildes auf dem C64 ist beispielsweise 320 x 200. 
Augpunkt: siehe Perspektive 

Bogenmaß: Maß für die Größe eines Winkels; im Gegensatz zum 
Gradmaß geht die Skala beim Bogenmaß von 0 bis 2 mal Pi (entspricht 
360°). Formel: 

Winkel.^,= Uinkel (0rMooB , mal Pi / 180° 

Bei den trigonometrischen Funktionen des C64 werden Winkel im 
Bogenmaß angegeben. Einige Werte: 

Bogenmaß Dezimalvert Gradmaß 


Cosinus: Trigonometrische Funktion; siehe Bild 10: Der Term 

XS = R * C0S(U) 

liefert die Koordinate XS des Punktes P auf dem Kreis mit dem Radius 
R, wenn der Winkel W beträgt (W im Bogen- oder Gradmaß). Siehe 
auch Sinus. 

Definitionsbereich oder Definitionsmenge: Zahlenmenge; enthält 
alle Werte, die man in eine Funktion einsetzen darf. Die Funktion 

Y = 4 » X 

hat als Definitionsmenge sämtliche reellen Zahlen, es gibt keine Ein¬ 
schränkungen. Die Funktion 

Y = SQR (X) 

also Y = Wurzel aus X hat als Definitionsbereich die Menge aller Zah¬ 
len. die größer oder gleich Null sind; nur diese dürfen für X eingesetzt 
werden. 

Dimension: allg. Ausmaß, Ausdehnung, Bereich; kleinste Anzahl von 
Koordinaten, mit denen ein Objekt beschrieben werden kann; ein 
Punkt hat die Dimension Null, eine Linie die Dimension 1, eine ebene 
Fläche (Ebene) die Dimension 2, der gewöhnliche Raum (räumlich) 
hat drei Dimensionen. Nimmt man z.B. noch die Zeit dazu, kommt 
man auf den vierdimensionalen Raum. 

Drehung (Rotation): die Bewegung eines Objektes um einen festen 
Punkt (Zentrum) oder eine feste Achse (hier: eine der drei Koordina¬ 
tenachsen); im Gegensatz zur Verschiebung (Translation), bei der 
sich alle Punkte des Objekts auf parallelen und gleich langen Bahnen 
bewegen. 

Durchmesser: doppelter Radius 

Einheit: Bezugsgröße in einem Koordinatensystem, Vereinbart man 
etwa, die Lage der X-Koordinate -1« soll 3 cm vom Nullpunkt des Koor¬ 
dinatensystems entfernt liegen, ist die Einheit 3 cm. 

Ellipse: flachgedrückter Kreis, eiförmig; Kreis mit zwei unterschiedli¬ 


chen Radien; Darstellung mit Funktionstermen: 

X = RI * cos (W) 

Y = R2 * sin (W) 

Siehe auch Bild 10, Sinus und Cosinus. 

Euler, Leonhard; • Basel 15. April 1707, + Petersburg 18. September 
1783; bedeutender schweizer. Mathematiker; Eulersche Koordinaten 
sind Drehungs-Koordinaten. 

Funktion: Zuordnungsvorschrift, die gewissen Zahlen X (das »Argu¬ 
ment«) wieder neue Zahlen Y (»Funktionswert«) zuordnet. Jedem X 
wird genau ein Y zugeordnet. Schreibweise: 

Y = f(X) 

Beispiele für Funktionen: 

‘ 5 

Y = PEEK(X) 

Y = 0 

Funktionsgraph: bildliche Darstellung einer Funktion (meist) in ei¬ 
nem zweidimensionalen Koordinatensystem. Dabei werden auf der 
Abszisse die Argumente der Funktion angetragen, auf der Ordinate 
die dazugehörigen Funktionswerte. 


PI 

3,14159 

180° 

Y = 4 # X + 3 

Pi/2 

1,57080 

90° 

lautet der Term 

Pi/4 

0,78540 

45° 

4 * X + 3 

2 PI 

6,28319 

360° 

Funktionswert: 

0 

0 

0° 

Y = 3 * X + 5 


das Argument 2 ein, so nimmt die Funktion und damit der Funktions¬ 
wert den Wert 11 an (6 plus 5). 

Gerade: mathematischer Ausdruck für eine unendlich lange Linie. Ei¬ 
ne Gerade mit einer besonderen Aufgabe wird Achse genannt, das 
Teilstück heißt Strecke. 

Gradmaß: Maß für die Größe eines Winkels; im Gegensatz zum Bo¬ 
genmaß geht die Skala beim Gradmaß von 0 bis 360 Grad (entspricht 
2 mal Pi). Formel: 

Winkel,^, = Vinkel,* , mal 180° / Pi 

Siehe dazu auch Bogenmaß 
Graph siehe Funktionsgraph 
horizontal: waagerecht 

Interpolation (oder Approximation): angenäherte Bestimmung oder 
Darstellung einer Größe oder Funktion. So lassen sich z. B. kompli¬ 
zierte Funktionen durch einfachere ausdrücken, ohne daß der Fehler 
einen ganz bestimmten Wert übersteigt. Durch Approximation kann 
z.B. ein Funktionswert ungefähr bestimmt werden, angenähert, 
approximiert werden, weil seine exakte Berechnung einen sehr gro¬ 
ßen Rechenaufwand erfordern würde, oder weil er zwischen zwei be¬ 
kannten Meßwerten liegt; man spricht dann von Interpolation. 

Speziell beim Drucker bedeutet I., daß künstlich die Auflösung ge¬ 
steigert wird, indem auch in den Halbzeilen zwischen zwei Zeilen auf 
dem Papier Punkte gesetzt werden, wenn dies z.B. eine Fläche 
schwärzer macht; siehe dazu 64’er Magazin, Ausgabe 1/89, Seite 122. 
Kartesische Koordinaten: Art der Darstellung eines Punktes: In Bild 
10 sind die Streckenlängen XS und YS die kartesischen Koordinaten 
PX/PY des Punktes P. In einem kartesischen Koordinatensystem ste¬ 
hen die beiden Achsen senkrecht aufeinander, und es gilt überall die¬ 
selbe Einheit (Beispiel »1« entspricht 1 cm). 

komplex: läßt sich nicht in unserem Zahlensystem darstellen, etwa die 
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wird eingeschaltet, es geht mit dem Befehl !DRAW weiter. 
Wegen des speziellen Formats können Grafiken zwischen 
Prograf und anderen Programmen nicht direkt ausge¬ 
tauscht werden. 

Hardcopy: !COPY,Typ (.Sekundäradresse) 

Natürlich darf einem solchen Top-Programm auch eine 
gute Druckfunktion nicht fehlen. Diese Anweisung erzeugt 
auf einem Epson-Drucker eine Hardcopy der Grafik. Die 
Sekundäradresse für das Interface muß so gewählt wer¬ 
den, daß dieses die Daten nicht wandelt (Einstellung »Di¬ 
rektkanal«, siehe Handbuch zum Interface). 

Ganz nach dem Motto »für jeden Geschmack etwas« bie¬ 
tet die Hardcopy-Funktion vier verschiedene Arten der 
Hardcopy: 

Typ=0 (schnell): Ausdruck der Grafik in 640 x 200 Punk¬ 
ten in der Standard-Dichte. Je zwei übereinanderliegende 
Punkte werden ODER-verknüpft und ergeben einen ge¬ 
druckten Punkt. 


Typ=1 (klein): Die 640 x 400 Punkte der Grafik werden 
in der größtmöglichen Punktdichte gedruckt, also waag¬ 
recht mit 1920 dpi, senkrecht im Abstand V 2 i 6 Zoll. 

Typ=2 (mittel): Der Punktabstand ist gegenüber Typ 1 
waagerecht und senkrecht verdoppelt, die dazwischenlie¬ 
genden Punkte werden durch Interpolation ermittelt. 

Typ=3 (groß): Der Punktabstand ist gegenüber Typ 1 ver¬ 
dreifacht, die dazwischenliegenden 3x3 Punkte werden 
durch Interpolation ermittelt. 

Zubehör serienmäßig 


Zusammen mit den interpolierten Punkten ist die Punkt¬ 
dichte bei den Typen 1 bis 3 also maximal. Derzeitaufwand 
für den Ausdruck ist beträchtlich, da für eine Bildschirmzei¬ 
le sechs Durchläufe des Druckkopfs nötig sind. Der Druck¬ 
vorgang kann durch Abschalten des Druckers oder durch 


Lexikon 


Wurzel aus einer negativen Zahl: man definiert die Variable »1«: 

i = Wurzel aus -1 

So kann jede komplexe Zahl in der Form 
Zahl = A + i i B 
dargestellt werden. 

konstant: gleichbleibend, nicht veränderlich, nicht variabel 
Koordinate: Lagebezeichnung eines Punktes in einem Koordinaten¬ 
system. Beispiel New York: Ein Fußgänger steht an der Kreuzung 5. 
Straße West, 17. Straße Nord. Dann lauten seine Koordinaten bezüg¬ 
lich des New Yorker Koordinatensystems 5 und 17 oder (andere Dar¬ 
stellung) (5/17). 

Koordinatensystem: System, in dem die Lage von jedem Punkt in ei¬ 
nem Raum (zwei-, drei-, ... dimensional) in Form von Zahlen ausge¬ 
drückt werden kann. Üblich ist das Kartesische K„ bei dem die beiden 
Koordinatenachsen senkrecht aufeinander stehen und dieselben Ein¬ 
heiten haben. 

negativ: kleiner als Null; Vorzeichen Minus; Gegenteil von positiv 
Objekt: irgendein Gegenstand 

optional: wahlfrei, muß nicht unbedingt verwendet werden 
Ordinate: zweite Koordinate eines Punktes, gewöhnlich die (senk¬ 
rechte) Y-Achse. Siehe auch Abszisse 

Parameter: Hilfsvariable; Parameter in einer Funktionsvorschrift le¬ 
gen das Aussehen des Graphen näher fest; hinter einem Basic-Befehl 
sind Parameter nähere Angaben, z. B. der Filename nach dem LOAD- 
Befehl. 

Parameterdarstellung: mathematische Beschreibung einer Kurve, 
Fläche oder eines Funktionsgraphen durch Angabe der Koordinaten 
aller Punkte, die in der Kurve/Fläche/Graph Vorkommen als Funktio¬ 
nen einer oder mehrerer unabhängiger veränderlicher Größen, der 
sog. Parameter. Beispiel: 
x = x(t), y = Y(t), z = z(t) 

(Parameter = t), oder 
X = X(W) * R * cos (W) 

Y = Y(W) = R * sin (W) 

(ergibt einen Kreis, Parameter ist der Winkel W; der Radius R ist kein 
Parameter, da er konstant bleibt. Siehe auch Sinus und Cosinus sowie 
Bild 10.) 

Parameterkurve: Kurve, Funktion in der Parameterdarstellung 
Perspektive: Die zweidimensionale, bildliche Darstellung dreidimen¬ 
sionaler Objekte mit Hilfe einer Zentralprojektion (Zentralperspektive) 
oder mit Hilfe einer Parallelprojektion (Parallelperspektive), die dem 
Betrachter ein anschauliches, naturgetreues Bild vermitteln soll; die 
Zentralperspektive ist dem natürlichen einäugigen Sehprozeß nach¬ 
gebildet; man denkt sich ein Auge, das bestimmte Koordinaten (Aug- 
punkt) im Raum hat, und durch eine große Glasscheibe hindurch ei¬ 
nen räumlichen Gegenstand beobachtet. Das Auge (ein einziger 
Punkt!) sendet gedachte -Sehstrahlen« zum Objekt (wie dünne 
Schnüre) aus; wo diese die Glasplatte durchstoßen, wird auf der Platte 
ein Punkt gezeichnet. Am Ende erhält man auf der Platte die Zentral¬ 
perspektive des betrachteten Objekts dahinter. Wie man sieht, hängt 
die Perspektive von mehreren Faktoren ab: Die Koordinaten des Au¬ 
ges. die Lage der Platte, die Koordinaten des Objektes. Siehe auch 
Projektion. 

Pi: r, irrationale mathematische Konstante mit dem Wert 3,141 592 
653 589 793 238 462 643 383 279 502 884 ... Wird vor allem in der 
Kreisberechnung eingesetzt: Kreisfläche = Radius 2 mal Pi; Pi dient 


auch zur Winkelumrechnung vom/ins Bogenmaß: Pi 0 ^^ = 

Bogenmaß 

Pixel: Einzelpunkt in einer Grafik, siehe Auflösung 
Polarkoordinaten: Art der Darstellung eines Punktes. Siehe Bild 10: 
Die Polarkoordinaten des Punktes P auf dem Kreis mit dem Mittel¬ 
punkt M und Radius R sind R und der Winkel W. Gegenteil: kartesi¬ 
sche Koordinaten. 

positiv: größer als Null; Vorzeichen Plus; Gegenteil von negativ 
Projektion: Abbildung, bei der die Bildfigur (Abbildung) dadurch ent¬ 
steht, daß man von den Punkten des Originalgebildes (Objektes) Ge¬ 
raden zeichnet, die entweder parallel sind (Parallelprojektion) oder al¬ 
le durch einen bestimmten Augpunkt (Zentrum, Zentralperspektive) 
gehen und diese Gerade mit der Projektionsebene (vgl. Glasplatte bei 
Persu ktive) zum Schnitt bringt. Die Schnittpunkte sind die Bildpunk¬ 
te, der sogenannte Riß. Siehe auch Perspektive. 

Quadrant: Teilbereich eines Koordinatensystems; das übliche Koordi¬ 
natensystem mit den beiden Achsen X und Y ist in vier Quadranten un¬ 
terteilt, die durch diese beiden Achsen getrennt und rechts oben (X 
und Y positiv) beginnend entgegen dem Uhrzeigersinn mit römischen 
Zahlen durchnumeriert sind. 

Radius: charakteristische Größe des Kreises, gibt seine Ausmaße an: 
Die Entfernung vom Mittelpunkt zu einem beliebigen Kreispunkt ist 
der Radius (in Bild 10 mit R bezeichnet). 

reell: läßt sich in unserem Zahlensystem darstellen, Gegenteil von 
komplex. Reelle Zahlen lassen sich durch ganze Zahlen (z.B. 15), 
durch periodische Dezimalbrüche (etwa Yj) oder nichtperiodische 
Dezimalbrüche (etwa 15.456, pi oder Wurzel aus 2) darstellen, 
reelle Zahl: siehe reell 

reelle Funktion: eine Funktion (Abbildung), deren Funktionswerte 
reelle Zahlen sind 
RIß; siehe Projektion 
Rotation: siehe Drehung 

Schrägbild: Betrachtet man einen Körper, der in einem dreidimensio¬ 
nalen Raum steht, aus einer bestimmten Perspektive, so erhält man 
das S. Beispiel: Das S. des Kreises ist eine Ellipse, 

Sinus: Trigonometrische Funktion; siehe Bild 10: Der Term 

YS = R * SIN(W) 

liefert die Höhe YS des Punktes P auf dem Kreis mit dem Radius R, 
wenn der Winkel W beträgt (W im Bogen- oder Gradmaß). Siehe auch 
Cosinus. 

Strecke: Teilstück einer Geraden 
Term: Rechenausdruck, Formel 

Translation: (Parallel-)Verschiebung eines Objektes (bezügl. einer 
Achse), geradlinig fortschreitende Bewegung eines Körpers; Bild 9 
zeigt eine Translation bezüglich der X-Achse, 
trigonometrische Funktion: z. B. Sinus, Cosinus, Tangens; Sammel¬ 
begriff für Winkelfunktionen, Kreisfunktionen; Umkehrfunktionen: 
•zyklometrische Funktionen» 

Ursprung: Nullpunkt eines Koordinatensystems. Hier treffen sich die 
beiden Koordinatenachsen, alle Koordinaten haben den Wert Null. 
Winkel: Grad für die Neigung zweier Geraden, die sich schneiden, 
aber nicht in dieselbe Richtung weisen 
variabel: veränderlich, frei wählbar; Gegenteil von konstant 
vertikal: senkrecht 

Zentralperspektive: siehe Perspektive 

Zentrum: allg. Mitte, Mittelpunkt; siehe auch Drehung. 
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Tastendruck (Taste drücken, nicht loslassen und etwas war¬ 
ten!) abgebrochen werden. 

Damit wären alle Befehle und Funktionen der Grafiker¬ 
weiterung »Prograf« erläutert. Der eine oder andere von Ih¬ 
nen ist jetzt von dieser Vielfalt vielleicht »erschlagen«. Da¬ 
mit Sie erst einmal ein bißchen mit den Funktionen »spie¬ 
len« und sich mit den vielen Eigenarten anfreunden kön¬ 
nen, wurde das Basic-Programm »Funprint« (Listing 4, bitte 
bei abgeschalteter Erweiterung mit dem Checksummer auf 
Seite 159 eingeben) entwickelt. Es nutzt die Fähigkeiten 
von »Prograf« speziell für das Zeichnen von Funktionsgra¬ 
phen (fast) aller Funktionen, deren Graph sich zwei- oder 
dreidimensional darstellen läßt. Darüber hinaus eignet es 
sich ganz hervorragend zur einfachen Konstruktion von 
Schrägbildern in Zentralperspektive. 

Folgende Arten von Funktionen lassen sich mit »Fun¬ 
print« verarbeiten: 



1. Reelle Funktionen mit einer reellen Variablen, z.B. 

f(x) = x+sin(x) 

2. 2D-Parameterkurven, wie 

x(i) = i.sin(i) 

y(i) = i.cos(i) 

(ergibt eine Spirale) 

3. 3D-Parameterkurven, etwa 

x(i) = sin(i) 

y(i) = cos(i) 
z(i) = i 

(das Ergebnis ist eine Schraubenlinie) 

4. zwei- oder dreidimensionale Strecken mit Koordinaten 

5. zweiparametrige Flächen und alle Funktionen, die sich 
als solche darstellen lassen, wie reelle Funktionen zwei¬ 
er Variablen oder reelle Funktionen einer komplexen Va¬ 
riablen. Beispiel: 

x(i,j) = sin(i)cos(j) 
y(i,j) = sin(i)sinQ) 
z(ij) = cos(i) 

Diese Vorschrift ergibt eine Kugel. Oder: 
f(z) = abs(2#z#Pi) mit z = x+iy 
Großer Wert wurde auf die Benutzerfreundlichkeit ge¬ 
legt: Eigentlich müßten vor dem Zeichnen von Graphen etli¬ 
che Parameter definiert werden (man denke an Definitions¬ 
bereich, Lage von Ursprung und Projektionszentrum, Ein¬ 
heit). Dies alles wird vom Programm jedoch soweit wie 
möglich automatisiert, so daß nur wenige Tasten gedrückt 
werden müssen, bevor die Grafik entsteht. Feste Voreinstel- 


Bild 7. Davon könnte auch M.C. Escher noch etwas lernen! 


Bild Parameter 


Nr. 4 


Nr. 5 


Nr, 6 


X = I 

Y = J 

Z = SIN(l-J+SIN(l+J))/(3+J/3) 

I von —26 bis 14, Schritt 0.5 
J von —4 bis 30, Schritt 0.6 
X = I 

Y = 0 

Z = LOG(3+M)+3 
I von —7 bis 7, Schritt 0.2 
X = I 

Y = 0 

Z = LOG(1 + M)+3 
I von —7 bis 7, Schritt 0.2 
Ursprung: 320/340, Einheit: 40 
Proj.zent.: 180/—600/300 
keine Rotation, keine Translation 


X = COS(l)’(4+SIN(l*3.3)) 

Y = SIN(I)*(3+S1N(I*3.3)) 

I von 0 bis 63, Schritt 0.1 
Ursprung (320/200), Einheit 40 


X = I 

Y = J 

Z = -2/SQR(M+J-J+.1) 

I von —3 bis 3 Schritt 0.5 
J von —3 bis 3 Schritt 0.5 
X = l-COS(J) 

Y = l-SIN(J) 

Z - —2/1 

I von 0.5 bis 3, Schritt 0.3 
J von 0 bis 6.29, Schritt 0.314 
Ursprung (320/60), Einheit 55 
Proj .Zentrum 180/-1100/300 
Keine Drehung, Translation: —3/0/—2 


Tabelle 4. Die Parameter einiger Bilder 


Bild 8. Der Kelch wartet auf seine Füllung 

lungen und die anderen Optionen, die »Funprint« bietet, 
sind zusammen mit den benötigten Tasten übersichtlich 
auf dem Bildschirm dargestellt (Bild 2 zeigt das Einschalt¬ 
bild dieses Programms). Der Name »Funprint« leitet sich 
übrigens von »Function Printer« ab und hat nur wenig mit 
dem englischen Wort »fun« zu tun. Obwohl die Arbeit mit 
dem Programm nun wirklich viel Spaß bereiten kann! 

Eine gewisse Aufmerksamkeit des Benutzers muß aller¬ 
dings vorausgesetzt werden, wenn Programmabstürze 
vermieden werden sollen: Die Funktionsterme müssen in 
korrekter Basic-Syntax geschrieben werden, und die Para¬ 
meter dürfen nur erlaubte Bereiche durchlaufen. So führt 
die Eingabe von 
X(I)=SQR(I) 

als Funktion mit I im Bereich von —1 bis 1 unweigerlich zum 
Ausstieg: Wurzeln aus negativen Zahlen gibt es im reellen 
Bereich nicht. In einem solchen Fall gelangt man durch Ein¬ 
gabe von 

GOTO 10 

ohne Verlust der Variablen wieder ins Programm. Da die 
Funktionen nicht punktweise mit IPLOT, sondern Schritt für 
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Schritt mit ILINE gezeichnet werden, beeinflußt die Schritt¬ 
weite die Genauigkeit, aber auch die Geschwindigkeit beim 
Zeichnen. Große oder genau berechnete Schrittweiten lie¬ 
fern auch gewollte Effekte: So kann aus einer Ellipse ohne 
weiteres ein Vieleck oder eine Rosette werden, wie dies in 
Bild 3 eindrucksvoll gezeigt wird. Die Parameter für dieses 
Bild: 

X = 5*SIN(I) 

Y = 3*C0S(I) 

I von 0 bis 6.3 
Ursprung 320/200 
Einheit 45(/50/55) 

Schrittweite: 
a) 0,1 b) 0,786 c) 
nicht 6.3, sondern 63) 


1,698 (Endwert von I bei c) 


Hier erkennt man klar die Formel für eine typische Ellipse 
(siehe Textkasten Mathelexikon). 


vorher 


Translation 




NH89 


X—Achse 


Bild 9. So sieht eine Translation bezüglich der X-Achse aus 



YS=R-sin w 


=R-cos w 


Bild 10. Zur Erklärung der Begriffe Radius, Sinus, Cosinus 
und Polarkoordinaten (Mathelexikon) 

Das Programm zeichnet beliebig viele Funktionen nach¬ 
einander in die gleiche Grafik und merkt sich bis zu 35 
Funktionsterme. Hat man etwa bereits eine etwas aufwen¬ 
digere Grafik generiert, möchte aber gern den Ursprung, 
das Projektionszentrum oder die Einheit verändern, so 
kann man nach dem Löschen des Bildes mit der Taste 
<F8> die ganze Grafik neu entstehen lassen. <F7> 
zeichnet mit Gedächtnis, <F5> ohne Gedächtnis, <F8> 
zeichnet alle gemerkten Terme. Der Zeichenvorgang kann 
jederzeit mit <RETURN> abgebrochen oder mit <-> 
zum Bearbeiten mit dem Joystick unterbrochen werden 
(siehe dazu die Beschreibung von »Prograf«). Speziell die 
»verdeckten« Linien in 3D-Graphen lassen sich durch An¬ 
klicken eines Punktes der Linie »elegant« löschen. Einen 
eigenen Hidden-Line-Algorithmus, der das automatisch er¬ 
ledigt, enthält das Programm nicht. 


Natürlich fehlt auch nicht die Möglichkeit, die erzeugten 
Grafiken auf Diskette zu speichern oder mit einem Epson- 
Drucker zu Papier zu bringen. In den Zeilen 450 und 460 
können die Sekundäradressen für das Interface verändert 
werden. 


Tasten 

Funktion 

<F1 > 

wählt die Darstellungsform, zur Auswahl stehen: 
Funktion, Kurve 2D, Kurve 3D, Fläche, Strecke 2D 
und Strecke 3D 

<F3> 

wählt die Termnummer zum Zeichnen, falls 
bereits mit <F7> mehrere Terme gespeichert 
wurden. <F3> alleine zählt aufwärts, mit SHIFT 
wird abwärts gezählt 

< F4> 

siehe <F3> 

<F5> 

Zeichnen ohne Gedächtnis 

<F7> 

Zeichnen mit Gedächtnis, kann mit <F8> 
wieder abgerufen werden 

<F8> 

gesamte Grafik noch einmal aufbauen (Nummer 
wird mit <F3> gewählt, die gewünschten 

Grafiken werden mit < F7 > fixiert) 

<L> 

LOAD, Grafik von Diskette laden: Namen 
eingeben, RETURN-Taste drücken (Leereingabe 
bricht ab) 

<S> 

SAVE, Grafik auf Diskette speichern: Namen 
eingeben, RETURN-Taste drücken (Leereingabe 
bricht ab) 

<D> 

Druck, druckt Grafik auf angepaßten Drucker 
aus. Sie können im Druckmenü mit folgenden 

Tasten Sonderfunktionen wählen: <T>: Text 
ein/aus: <R>: Rand ein/aus; <0> bis <3>: 
Druckmodus wie beschrieben wählen: 

< RETURN > startet den Druck 

<+ >,<->, 

Vorwahlen für Koordinatensystem-Ursprung (so 

<£>,<Klam- 

kann man wählen, welche(r) Quadrant(en) 

meraffe>, 

<*>,<)>, 

<:>,<;> 

vornehmlich gezeichnet werden sollen 


Ursprung zeigen; die Koordinaten des Ursprungs 
können, wenn sie angezeigt werden, mit den 

Tasten <X>, <SHIFTX>, <Y> und <SHIFT 

Y> verändert werden; <RETURN> beendet 
diese Funktion 

<CLR> 

löschen: <B> Bild, <T> Term oder <G> alles 

<RETURN> 

Grafik zeigen und Editiermodus wie beschrieben 
starten 

<U> 

wählt X-Komponente der Rotation 

<v> 

wählt Y-Komponente der Rotation 

<w> 

wählt Z-Komponente der Rotation 

<M> 

wählt X-Komponente der Translation 

<N> 

wählt Y-Komponente der Translation 

<0> 

wählt Z-Komponente der Translation 

<0> 

schaltet Koordinatensystem in der Grafik ein und 
aus 

< 1 > bis 

< 5 > 

Vorwahlen für Projektionszentrum 

<6> 

zeigt Koordinaten des Projektionszentrum, 
können mit den Tasten <X>, <Y> und <Z> 
mit oder ohne <SHIFT> geändert werden, 

Ende dieser Funktion mit < RETURN > 

<CRSR> 

mit den Cursortasten wird der Maßstab geändert 

Die folgenden Funktionen arbeiten nur, wenn die entsprechende 

Funktion mit der Fl-Taste gewählt ist: 

<A> 

legt Koordinaten von Punkt A fest: Die 

Koordinaten werden nacheinander eingegeben 
und mit < RETURN > fixiert 

<B> 

legt Koordinaten von Punkt B fest 

<F> 

Funktion eingeben (Text in Basic-Syntax <l> 
eingeben und mit < RETURN > speichern 

<l> 

wählt »für 1 von ... bis ... Schrittweite ...» 

<J> 

dito, für Variable J 

<X> 

legt X(l) usw. fest 

<Y> 

legt Y(l) usw. fest 

<Z> 

legt Z(l) usw. fest 


Tabelle 5. Die Bedienung von »Funprint« (Listing 4). 
Anmerkung der Redaktion: Da diese Tabelle nicht vom 
Programmautor stammt, ist es nicht ganz ausgeschlossen, 
daß sie in ganz kleinen Details nicht stimmt oder es noch 
weitere Funktionen gibt. 
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Wir haben für Sie herausgefunden, was das Programm 
»Funprint« alles kann, und in der Tabelle 5 alle Tasten und 
Funktionen dieses Programms übersichtlich zusammen¬ 
gestellt. 

Falls Sie lieber sofort etwas »Konkretes« auf dem Bild¬ 
schirm sehen wollen, geben Sie das Demoprogramm (Li- 
sting 5) mit dem Checksummerein und starten es mit RUN. 
Das Programm zeichnet dann einige Demobilder auf den 
Schirm. Der Aufbau vor allem des zweiten Bildes dauert et¬ 


was, gedulden Sie sich bitte. Nach Abschluß der Zeichnung 
verfärbt sich der Bildschirmrahmen schwarz, dann drücken 
Sie eine Taste, um das nächste Bild zu sehen. 

Jetzt liegt es bei Ihnen, was Sie mit diesen Spitzenpro¬ 
grammen anfangen. Zum Appetitanregen und Neugierig¬ 
machen dienen die Bilder 4 bis 8, die noch einmal deutlich 
machen, was alles möglich ist. Die verwendeten Parameter 
(für »Funprint«) entnehmen Sie bitte der Tabelle 4. 

(Bertram Hafner/Nikolaus Heusler/ef) 
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4c 

14 

4c 

60 

5bb0 : 

03 

fe 

00 

03 

fe 

00 

7f 

ff 

81 

5848 

4a 

dO 

07 

a9 

00 

8d 

b5 

4a 

c9 

5a00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

5bb8 : 

cO 

03 

fe 

00 

cc 

cc 

00 

33 

53 

5850 

fO 

lf 

a5 

ae 

48 

8d 

b3 

4a 

63 

5a08 

00 

00 

00 

00 

00 

00 

00 

00 

09 

5bc0 : 

30 

00 

cc 

cc 

00 

33 

30 

00 

17 

5858 

a5 

af 

48 

a5 

14 

48 

8d 

b6 

c3 

5alO 

00 

00 

00 

00 

00 

00 

00 

00 

11 

5bc8 : 

cO 

cO 

cO 

Oc 

Oc 

00 

00 

00 

5b 

5860 

4a 

a5 

15 

48 

ee 

be 

4a 

a9 

2d 

5al8 

00 

00 

00 

00 

00 

00 

00 

00 

19 

5bd0 : 

00 

cO 

cO 

cO 

C3 

Oc 

00 

00 

15 

5868 

00 

fO 

03 

ad 

b5 

4a 

8d 

bf 

ba 

5a20 

00 

00 

00 

00 

00 

00 

00 

00 

21 

5bd8 : 

00 

00 

00 

00 

00 

c3 

Oc 

00 

27 

5870 

4a 

ae 

bd 

4a 

fO 

06 

20 

9a 

bf 

5a28 

00 

00 

00 

00 

00 

00 

00 

00 

29 

5be0 : 

18 

61 

80 

30 

C3 

00 

61 

86 

9e 

5878 

54 

4c 

09 

58 

20 

a9 

54 

4c 

79 

5a30 

00 

00 

00 

00 

00 

00 

00 

00 

31 

5be8 : 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

5880 

09 

58 

ce 

be 

4a 

30 

16 

a5 

Ob 

5a38 

00 

00 

00 

00 

00 

00 

00 

00 

39 

5bf0 : 

00 

00 

00 

00 

00 

00 

00 

Oc 

09 

5888 

c6 

dO 

25 

68 

85 

15 

68 

85 

ba 

5a40 

00 

00 

00 

00 

00 

00 

00 

00 

41 

5b f8 : 

18 

24 

30 

3C 

48 

54 

60 

6c 

37 

5890 

14 

68 

85 

af 

68 

85 

ae 

ad 

f8 

5a48 

00 

00 

00 

00 

00 

00 

00 

00 

49 











5898 

b5 

4a 

4c 

f9 

57 

20 

20 

57 

6a 

5a50 

00 

00 

00 

00 

00 

00 

00 

00 

51 











58a0 

ce 

bd 

4a 

30 

Ob 

a2 

00 

8e 

c8 

5a58 

00 

00 

00 

00 

00 

00 

00 

00 

59 

Listing 1. 

(Schluß) 







1 REM PG.PRINTER 

< 1B8> 

30 DATA 27,64 

REM INITIALISIEREN 

<231 > 

2 REM- 

< 153> 

31 DATA 27,51 

REM ABSTAND N/216 

<071 > 

3 REM PROGRAMM ZUR DRUCKERANPASSUNG 

<106> 

32 DATA 27,42 

REM ESC+"*" (DICHTE) 

< 108> 

4 REM VON 'PROGRAF' 

<230> 

33 DATA 3 

REM DICHTE 1920 DPL 

< 0B2 > 

5 REM- 

<156> 

34 DATA 1 

REM DICHTE 960 DPL 

< 191 > 

10 POKE 56,67:CLR 

< 148> 

35 DATA 10 

REM 10=LINE FEED,13=CR 

<060> 

11 PRINT"<CLR>":PRINT" DRUCKERANPASSUNG 'P 


36 DATA 4. 

REM GERAETENR. DRUCKER 

<003> 

ROGRAF'" 

<22B> 

37 DATA 8 

REM GERAETENR. FLOPPY 

<027> 

12 PRINT"CDOWN,SPACEJSIND DIE ZEILEN 30-38 
KONTROLLIERT?" 


38 DATA "NEUGRAF" 

REM NEUER PROGRAMMNAME 

<210> 

<086> 

\ 1 T*7 f 

w Ktn — 


13 INPUT" {DOWN,SPACE>J/N"; Ai:IF AiO"J”THE 





N END 

<218> 




15 SYS 57812"PROGRAF",8,1:POKE 7B0,0:SYS 6 

<217> 

Listing 2. Dieses Basic-Programm nennt sich 


5493:REM LADEN 

»PG. PRINTER« und dient zur Druckeranpassung. 


1Y Kerl 

20 REM KONTROLLIERE DIE FOLGENDEN CODES 

<059 > 

Bitte geben Sie es mit dem Checksummer 


21 REM - 

<067> 

(Seite 159) ein. 




333P 
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41 

REM ANPASSUNG 


< 200 > 

68 

IF A*<>"J"THEN END 

<225> 

50 

REM- 



<096> 

69 

READ AS.-PRINT" {DOWN,SPACEJSAVING" ; CHR* ( 


60 

READ A:POKE 

18751,A:READ A:POKE 

18756,A 

<238> 


34);A$;CHR*(34> 

<240> 

61 

READ A:POKE 

1B714,A:READ A:POKE 

18719,A 

<052> 

70 

OPEN 1,8,1,A# 

<247> 

62 

READ A:POKE 

18762,A:READ A:POKE 

18767,A 

<086> 

71 

PRINT#1 ,CHR*(96> ,-CHR*(67); 

<040> 

63 

READ A:POKE 

18760,A:READ A:POKE 

18776,A 

<047> 

72 

FOR 1=17248 TO 23551:PRINT#1,CHR*(PEEK( 


64 

READ A:POKE 

18728,A:REM 


< 127> 


I));:NEXT 

<052> 

65 

READ A:POKE 

19388,A:READ A:POKE 

22958,A 

<006> 

73 

CLOSE 1:END 

<007> 

66 

PRINT"(DOWN, 

SPACEJDIE CODES SIND GEAEND 






ERT.(DOWN)" 



<151 > 




67 

INPUT" BEREIT FUER 'SAVE' (J/N) 1 

;A* 

<205> 

Listing 2. (Schluß) 



1 REM PG.LOADER 

<036> 

3 

<017> 

2 REM- 

< 153> 

12 POKE 777,67:REM BEFEHLE AKTIVIEREN 

<122> 

3 REM PROBRAMMKOPF FUER BASICPROGRAMME, 

<224> 

13 :REM AUS MIT P0KE777,167 

< 144> 

4 REM DIE ’PROGRAF- VERWENDEN. 

<130> 



5 REM- 

< 156> 



10 POKE 52,67:POKE 56,67:CLR:REM SCHUTZ 

11 IF PEEK (17803 )+PEEK( 22956 >033 THEN SYS 

<063> 

Listing 3. »PG.LOADER« ist ein Beispiel 


57812"PROGRAF",8,1:POKE 7B0,0:SYS 6549 


für ein Basic-Programm zu Listing 1 



1 POKE 649,1:POKE 56,67:CLR 

2 DEF FN A(X>=0::::::::::::::::::::: 
::::::::::::::::::::: 

3 DEF FN B(X)=0:::::::: 


4 DEF FN C(X>=0: 


5 X17.=0: X2X=0:Y1=0: Y2=0: X1=0: X2=0:MX=40:Z1 
=0: Z2=0: X=0:J=0: FX=0: KOX=l 

6 F=55296:V=53248:ßOSUB 530 

7 TXX=0: RDX=1: PZ=4: GOSUB 699: KS7.=4: GOSUB 6 
49:POKE 53280,0:POKE 53281,11 

3 IF PEEK(178031+PEEK(22956)033 THEN SYS 
57812"PROGRAF",8,1:POKE 780,0:SYS 65493 

9 POKE 777,67:!CLR,11,0:-LOC,320,200,2,636 
,2,396 

10 REN - BEI FEHLER: GOTO 10 - 

11 PRINT"(GRAPHIC,CTRL-H,CLR,LIG.BLUEJ"; 

12 PRINT“ {3SPACE TU**» {10SPACE 

13 PRINT" {3SPACE>.§{13SPACE>3{3SPACE>3{5SPA 
CE >H{6SPACE >2 

14 PRINT"{3SPACE>5£ r'{ 2SPACE5JJ u.**l. (2SPACE 

r*I{3SPACE>U**L ±* 

15 PRINT"{3SPACE>a{2SPACE>S{2SPACE>3 £{2SP 
ACE13I2SPACE>3C5SPACE>3(3SPACE>B B{2SPA 
CE >3 S 

16 PRINT" <5SPACE>F{2SPACE£{2SPACE>i( 
2SPACE>^{5SPACE>F<3SPACE>i £{2SPACE)i i 

18 REM AUTHOR B.HAFNER, 8934 GROSSAITINGEN 

19 REM REVISED N.HEUSLER, B000 MUENCHEN 71 

20 PRINT" {BLACK> .U.*.*.*-*>.*.*.*.*.I. {3SPACE>5{6SPAC 

E> .u a*JL£&&&.*£••; 

21 PRINT"3FUNKTION 3 2 1 4 C2SPACE>6iU<.t-i 3 
T ÜS{RVSON>+{2SPACE>-(28PACE)f{RVOFF>3 

22 PRINT" 3KURVE(28PACE)2D31{2SPACE)3{2SPAC 
E >5 C2SPACE>2U{BREY 2,3BPACE,BLACK >3<BRE 
Y 2,3SPACE,BLACK)MJ3(RVSON,7SPACE,RVOFF 
>3"; 

23 PRINT"3FLAECHE{2SPACE>3 ü 3 ÜI3SPACEI3V 
{GREY 2,3SPACE,BLACK>3{GREY 2,3SPACE,BL 
ACK>N33 IRVSON>@{2SPACE>*{2SPACE>tCRVOFF 
>3"; 

24 PRINT"3STRECKE2D3I2SPACE>B3fi <=>3W(GREY 

2,3SPACE,BLACK >3{GREY 2,3SPACE,BLACK >0 
33(RVS0N,7SPACE,RVOFF >3”; 

.***»f »*-*_*K3 {RVSON>: {2SPACE>; {2SPACE>={R 
VOFF>3"; 

26 PRINT" BF 1 au****I_q*_*_**I. {GREY 2,3SPACE,B 
LACK, 2SPACE>TERM .mt*.*.rj.I. {5SPACET.UA" ; 

27 PRINT" .i«i*_K3F 578RB{RVS0N>L<RV0FF>0AD.a{4 
SPACE >F3{SPACE,GREY 2,2SPACE,BLACKT3CLR 
3 3{SPACE,RVSONJK{RVOFF>S{2SPACE>3 

28 PRINT" U«*>A C45PACE > BB{RVSON>S(RVOFF>AV 
Eil U.« * *-» «*_K (3SPACE > J.I q * ♦ * * «: lT 

29 PRINT" SZEICHNEN33{RVS0N)D{RVOFFJRUCK3 


<025> 

<03B> 

<055> 

<072> 

<150> 
< 112 > 

<1SS> 

<236> 
< 122 > 
<052> 
<131 > 

< 101 > 

<206> 

< 183> 

< 128> 
<198> 
<150> 

<201 > 

< 136> 


<194> 

<192> 

< 210 > 

< 108> 
<05B> 

<013> 

<048> 


3T2SPACEJLOESCHEN 3S^IN(SPACE,RVSONT0{R 
VOFF>3 <102> 

30 PRINT" J K J-ihmhhfK 3»-SHHHHHHHHHfrK J 

32 FF=12:GOSUB 54:POKE FN KS(KSX),12:POKE 

F+597,12*K0X: GOSUB 801: GOSUB 802 <009> 

33 POKE F+PF7.(PZ) ,12 <11B> 

35 GOSUB 781 <1B7> 

40 POKE 198,0:WAIT 19B,1:GET D*:D=ASC(D*l: 

SH=PEEK(653):IF DT<>"L"AND Dt< >"S"THEN 
45 <198> 

41 GOSUB 701:CYX=19:GOSUB 711:CXX=7:D?=NN* 

:IL=14:IF D=83 THEN 43 <147> 

£2 JF D=76 THEN PRINT" LOAD:":GOSUB 721:IF 

Di-: 1 -" 0 " THEN NNT=DT : ! LOAD DT < 047> 

43 IF D=83 THEN PRINT" SAVE:":GOSUB 721:IF 

D$O"0"THEN NN*=D*: ,‘SAVE DB <046> 

44 GOTO 35 <062> 

45 IF(D AND 127)=19 THEN GOSUB 771:G0T0 35 <065> 

46 IF D=136 THEN GOSUB 201:GOTO 165 <181> 

47 IF D=140 THEN 381 <107> 

48 IF D=135 THEN GOSUB 210:GOTO 165 <046> 

49 IF D< >133 THEN 55 <214> 

50 FF=0;GDSUB 54:FX=-(FX+1)*(FX<5):FF=12:G 

DSUB 54:IF FX=0 OR FX=3 THEN 52 <192> 

51 POKE 1031+FUX(FX),50-l*(FX=2 OR FX=5> <162> 

52 12=0:13=0:J1=0:J 

2=0:J3=0 <097> 

53 POKE 512,48:POKE 513,0:FLX=32:GOSUB 191 

:FLX=111:GOSUB 191:FLX=190:GOSUB 191:GO 
TO 35 <039> 

54 FOR 1=0 TO 8:POKE F+FUX(FX>+1,FF:NEXT:R 

ETURN <047> 

55 IF D=13 THEN 165 <232> 

56 FOR 1=0 TO 9:IF D*=MID*(KS*,1+1,1)THEN 

POKE FN KS(KSX),0:KSX=I:1=11 <193> 

57 NEXT:IF 1=10 THEN 60 <017> 

58 POKE FN KS(KSX),12:IF KSX=9 THEN GOSUB 

611:GOTO 35 <159> 

59 GOSUB 649:GOTO 40 <114> 

60 IF D=6B THEN 401 <182> 

61 IF NOT((D=134 AND FI<FZ)OR(D=138 AND FI 

>1))THEN 64 <075> 

62 FI=FI+1+2*(D=13B):FF=0:GOSUB 54:G0SUB 8 

01:GOSUB 390:GOTO 166 <092> 

64 IF D=4B THEN K0X=1-K0X:POKE F+597,12*K0 

X:GOTD 40 <006> 

65 IF D<>157 AND D<>17 THEN 70 <164> 

66 IF MX>10 THEN MX=MX-5:GOSUB 801 <245> 

68 IF PEEK(203)< >64 THEN 66 <219> 

69 GOTO 40 <015> 

70 IF D<>29 THEN 74 <020> 

71 IF MX<200 THEN MX=MX+5:GOSUB 801 <099> 

72 IF PEEK(203)=2 THEN 71 <037> 

73 GOTO 40 <019> 

74 IF D<49 OR D>54 THEN 80 <170> 

75 POKE F+PFX(PZ >,0:PZ=D-49:POKE F+PFX(PZ > 


50 
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,12sIF PZ=5 THEN BDSUB 651:GOTO 35 <19B> 

76 GOSUB 699:GOTO 40 <211> 

80 IF (D AND 127X85 OR(D AND 127) >87 THEN 

84 <244> 

81 D= <D AND 3):RX(D)=RX(D)+15-30»SH:RX(D)= 

RX<D)-360*(RX(DK0)+360*(RX(D> >350) <123> 

82 II=1286+D*40:I=RX(D>:GOSUB 805:IF PEEKt 

203)064 THEN 81 <192> 

83 GOTO 40 <029> 

84 IF (D AND 127X77 OR(D AND 127) >79 THEN 

as <224> 

85 D=(D AND 3):TX(D)=TX(D)+1-2*SH <207> 

86 11=12B6+D*40:I=TX(D >: GOSUB 806:1F PEEK < 

203)064 THEN 85 <212> 

87 GOTO 40 <033> 

88 ON FX+1 GOTO 91,101,121,121,141,141 <024> 

90 REM-FUNKTIONEN EINGABE- <106> 

91 IF DtO"F"THEN 40 <172> 

92 CXX=8:CYX=18:Dt=At:IL=66:GOSUB 721: At=D 

t : 11=-2000:12=2000 < 067 > 

93 GOSUB 181: !DEF FN A: IF KL7.THEN 92 <065> 

95 GOSUB 191:IF DTXTHEN GOSUB 171 <074> 

96 GOTO 35 <114> 

100 REM KURVE 2D <140> 

101 IF D*<>"X"THEN 105 <0B6> 

102 CYX= 18: Dt=At: GOSUB 130: .'DEF FN A:At=Dt 

:IF KLXTHEN 102 <138> 

104 GOTO 35 <122> 

105 IF D*<>"Y"THEN 110 <203> 

106 CYX=20:Dt=Bt:GOSUB 130:1DEF FN B:Bt=Dt 

:IF KLXTHEN 106 <094> 

108 GOTO 35 <126> 

110 IF DtO"I"THEN 115 <096> 

111 CXX=7:CYX=16: IL=6:Dt=STRt(I1> .-GOSUB 72 

1:Il=VAL(Dt>:CXX=18:Dt=STRt(I2) <068> 

112 GOSUB 721:I2=VAL(Dt>:CXX=30:IL=B:Dt=ST 

Rt< 13) .-GOSUB 721: I3=ABS(VAL(Dt) ) <043> 

113 IF I1>12 THEN D=I1:I1=12:I2=D <169> 

114 GOTO 35 ' <132> 

115 IF DtO"J"OR FX<>3 THEN 40 <022> 

116 CXX=7:CYX=17:IL=6:Dt=STRt(J1):GOSUB 72 

1:J1=VAL(DT):CXX=1S:DT=STRT(J2 > <240> 

117 GOSUB 721:J2=VAL(Dt):CXX=30:IL=8: Dt=ST: 

Rt(J3):G0SUB 721:J3=ABS(VAL(DT)) <183> 

118 IF J1>J2 THEN D=J1:J1=J2:J2=D <080> 

119 GOTO 35 <137> 

120 REM KURVE 3D /FLAECHE <063> 

121 IF DtO"Z"THEN 101 <236> 

122 CYX=22:Dt=Ct:GOSUB 130:!DEF FN C:Ct=DS 

:IF KLXTHEN 122 <064> 

125 GOTO 35 <143> 

130 CXX=8:IL=66:GOSUB 721:G0SUB 181:RETURN <033> 

140 REM STRECKE <1B6> 

141 IF DtO"A"AND DtO"B"THEN 40 <116> 

142 CYX=18:IL=6:IF Dt="B"THEN 150 <004> 

143 CXX=1:D*=STRt(II):GOSUB 721:I1=VAL(Dt) <226> 

144 CYX=20:Dt=STRt(I2):GOSUB 721:12=VAL(Di 

):IF FX<5 THEN 35 <112> 

145 CYX=22:D*=STRt(13):GOSUB 721:13=VAL(Di 

) : GOTO 35 <193> 

150 CXX=16:Dt=STRt(J1>:GOSUB 721:J1=VAL(Dt 

) <094> 

151 CYX=20:Dt=STRt(J2):GOSUB 721:J2=VAL(Dt 

>:IF FX<5 THEN 35 <056> 

152 CYX=22:Dt=STR*(J3>:GOSUB 721:J3=VAL(D* 

):GOTO 35 <137> 

165 POKE 198,0:IDRAW:GOSUB 801:GOTO 40 <017> 

166 GOSUB 388:POKE F+PFX(PZ),0:PZ=5:POKE F 

N KS(KSX),0:KSX=9:GOTO 32 <159> 

169 : <145> 

170 REM DEF.BEREICH <0B7> 

171 GOSUB 701 <195> 

172 PRINT:PRINT" IN WELCHEM INTERVALL (XI, 

X2> IST":PRINT" "DTt(DTX)" IN" <139> 

173 PRINT" CGREY 2,SPACEXDt:PRINT" CBLACK.S 
PACE>DEFINIERT?":CXX=0: CYX=23:GOSUB 71 

1 <189> 

175 PRINT" XI = ";TAB(20);"X2 = ":CXX=6:Dt 

="“:IL=8:GOSUB 721:11=VAL (Dt) <253> 

176 CXX=25:Dt=”":GOSUB 721:I2=VAL(Dt):RETU 

RN <131> 

180 REM DEF.BEREICH <097> 

181 KLX=0:FOR 1=1 TO LEN(Dt):A=ASC(MIDt(Dt 
,1,1)):POKE 511+1,A:IF A=40 THEN KLX=K 

LX+1 <101> 


182 IF A=41 THEN KLX=KLX-1 <086> 

185 NEXT.-POKE 511 + 1,0:RETURN <120> 

191 1=0:DTX=0 <072> 

193 A=PEEK(2080+1):IF A=186 THEN DTX=DTXOR 

1 <074> 

194 IF A=188 THEN DTX=DTXOR 2 <140> 

195 IF A=174 THEN DTX=DTXDR 4 <078> 

198 IF A<>58 THEN I=I + 1:G0T0 193 <1B2> 

199 RETURN <001> 

200 REM-ZEICHNEN- <149> 

201 IF FZ=35 THEN 210 <218> 

202 FZ=FZ+1:FI=FZ:GOSUB 205:GOTO 210 <195> 

205 FX(FI)=FX:At(FI)=At:Bt(FI)=Bt:Ct(FI> =C 

t:Il(FI)=11:12(FI)=12:13(FI)=13 <251> 

206 J1(FI)=J1:J2(FI)=J2:J3(FI)=J3:RETURN <251> 
210 !PROZ,PX(1),PX(2),PX(3):!LOC,OXX,OYX:! 

SCN,1 <041> 

219 IF KOX=0 OR KRX=1 THEN 234 <101> 

220 REM KOORD.SYSTEM <026> 

222 KRX= 1: !ROT,0,0,0: TRANS,0,0,0: !LINE,-0 

XX,0,640-OXX,0:fLINE,0,DYX,0,DYX-400 <166> 

225 FOR X=—MX*INT (OXX/MX) TO 640 STEP MX.:!L 

INE,X,1,X,—2:NEXT <016> 

226 FOR Y=-MX*INT(OYX/MX)TO 400 STEP MX:!L 

INE,2,-Y,-1,-Y:NEXT <172> 

227 IF FX<2 OR FX=4 THEN 235 <016> 

228 FOR I=MX*(INT.(PX(2)/MX)+4>T0 20*MXSTEP 

MX:!ZPLOT,0,I,0:NEXT <020> 

234 ! ROT,RX (1) 757.3,RX. (2) /57.3,RX. (3) /57.3: 

i TRANS, TX (1) «MX , TX {2) »MX, TX (3) «MX. < 164 > 

235 ON FX+1 GOTO 241,271,291,311,341,342 <205> 

240 REM »»* FUNKTION *** <166> 

241 IF A*="“THEN 40 <041> 

242 X1X=-DXX:IF X1X<I1«MXTHEN X1X=I1*MX <119> 

243 X3X=—OXX+639:IF X3X>I2*MXTHEN X3X=I2»M 

'/■ <181> 

244 IF X3X<XlX+4 THEN 40 <165> 

245 Y1=MX*FN A( (XIX.+. 1) /MX.) <010> 

246 FOR I=X1X+.1 TO X3X-.1 STEP 4:X2X=X1X: 

Y2=Y1 <178> 

247 X1X=I:Y1=MX*FN A(I/MX):IF ABS(Y1-Y2)<1 

20 THEN: !LINE,XIX, Y1 ,X2X.,Y2: GOTO 250 <199> 

249 " XIX— X2X>2 THEN IF Y2>-200 THEN IF Y 

2<600 THEN 1=1-2:GOTO 247 <012> 

250 IF PEEK(198)THEN GOSUB 335:IF D THEN R 

ETURN <144> 

251 NEXT:GOTO 374 <187> 

270 REM *** KURVE 2D *** <206> 

271 1=11:X1=FN A(X)«MX:Y1=FN B(X)*MX <055> 

272 1=1+13:IF I>12 THEN 374 <158> 

273 IF PEEK(198)THEN GOSUB 335:IF D THEN R 

ETURN <169> 

274 X2=X1:Y2=Y1:X1=FN A(X)«MX:Y1=FN B(X)*M 

X:fLINE,XI,Y1,X2,Y2:GOTO 272 <187> 

290 REM *** KURVE 3D »** <234> 

291 1=11:X1=FN A(X)«MX:Y1=FN B(X)«MX:Z1=FN 

C(X)«MX <016> 

293 1=1+13:IF I>12 THEN 374 <179> 

294 IF PEEK(198)THEN GOSUB 335:IF D THEN R 

ETURN <190> 

295 GOSUB 370:GOTO 293 <051> 

310 REM «** FLAECHE **» <1B3> 

311 1=11 <173> 

313 J=J1:X1=FN A(X)«MX:Y1=FN B(X)«MX:Z1=FN 

C(X > «MX <058> 

314 J=J+J3:IF J>J2 THEN 320 <035> 

315 IF PEEK(198)THEN GOSUB 335:IF D THEN R 

ETURN <211> 

316 GOSUB 370:GOTO 314 <061> 

320 1=1+13:IF I>12 THEN 322 <197> 

321 GOTO 313 <123> 

322 J=J1 <204> 

323 1=11:X1=FN A(X)«MX:Y1=FN B(X)«MX:Z1=FN 

C(X)«MX <04B> 

324 1=1+13:IF I>12 THEN 330 <19B> 

325 IF PEEK(198)THEN GOSUB 335:IF D THEN R 

ETURN <221> 

326 GOSUB 370:GOTO 324 <073> 

330 J=J+J3:IF J>J2 THEN 374 <064> 

331 GOTO 323 <149> 


Listing 4. »Funprint« demonstriert die 
Anwendung von »Prograf« 
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LISTINGS 


335 

D=lsIF PEEK < 631)=95 THEN D=0:!DRAW:!SC 



*; 

< 080 > 


N,1 

<031 > 

481 

IF FX(I)=5 THEN PRINT#2,“,"+STR*(13(1) 


336 

RETURN 

< 140> 


>; 

<030> 

340 

REM *** STRECKE *** 

<069> 

482 

PRINT#2,">{2SPACE >—{2SPACE >("+STR*(J1( 


341 

LI NE, 11 *M7., I2*M7., J1 *M7., J2*MX: BOTO 374 

<092> 


I)> +",“+STR*(J2(I>); 

<206> 

342 

' ZLI NE, 11 »MX, 12*M%, 13*117., J1 *M7., J 2*M7., J 


483 

IF FX(I)=5 THEN PRINT#2,","+STR*(J3(I) 



3*M7.:G0T0 374 

<232> 


>; 

<048> 

370 

X2=X 1: Y2=Y1:Z2=Z1:X1 =FN A (X > *M7.: Y 1=FN 


484 

FRINT#2,")" 

< 058> 


B(X)*MX:Z1=FN C<X)*MX 

<009 > 

485 

PRINT#2:NEXT 

<205> 

371 

!ZLINE,X1,Y1,ZI,X2,Y2,Z2:RETURN 

<005> 

486 

PRINT#2, "URSPRUNG ( "STR* (0X7.) " , "STR* (0 


374 

FJ=1 

<052> 


YX)"), EINHEIT"STR*(MX); 

< 186 > 

375 

RETURN 

<179> 

487 

IF F7.<2 OR F7.=4 THEN 492 

<087> 

380 

REM GEMERKTE FUNKTIONEN 

<239> 

488 

F'RINT#2, " , PROJEKTIONSZENTRUM ("STR*(P 


3B1 

FI=0:IF FZ=0 THEN 40 

< 183> 


X(1))","STR*(PX(2))","STR*(PX(3)>")" 

<064> 

382 

!SCN,1:FF=0:GOSUB 54 

<045> 

490 

PRINT#2,"WINKEL: ("STR*(RX(1))","STR*( 


383 

FI-FI+lsIF FI>FZ THEN FI=FZ:GOTO 386 

<116> 


RX(2))","STR*(RX(3))"), "; 

<216> 

385 

GOSUB 390:FJ=0rGOSUB 210:IF FJ THEN 38 


491 

PRINT#2,"VERSCHIEBUNG: ("STR*(TX(1))", 



3 

<161 > 


"STR* (TX (2 ) ) " , " STR* (TX. (3) ) " > " 

<022> 

386 

POKE 198,0:!DRAW:GOTO 166 

<012> 

492 

PRINT#2:CLOSE 2:!SCN,0:GOTO 35 

<062> 

388 

IF F7.>0 AND F%<>3 THEN POKE 1031+FUX(F 


500 

REM - STRINGS,DATA,FELDER - 

<092> 


X),50-(F7.=2 OR FX-5> 

<205> 

510 

NN*="NAME":KS*="+—f@* t:;=K":DEF FN KS( 


389 

RETURN 

<193> 


X)=F+272+3*X+71 *INT(X/3)-2*(X=9 > 

< 153> 

390 

FX=FX (FI): IF F7.<4 THEN A*=A* (FI) : D*=A* 


521 

DEF FN E(X)=X-INT(X/10)*10+48 

<034> 


:GOSUB 181:!DEF FM A 

<135> 

522 

DEF FN Z(X)=32—(16+1NT((X—INT(X/100> *1 


391 

IF F7.THEN IF F7.<4 THEN B*=B*(FI) :D*=B* 



00I/10))*(X>9) 

<026> 


:GOSUB 181:IDEF FN B 

< 119> 

523 

DEF FN H(X)=32—(16+1NT(X/100))*(X>99): 


392 

IF F7.=3 OR F7.=2 THEN C*=C*(FI):D*=C*:G 



DEF FN V < X)=32—13*(X<0) 

<134> 


OSUB 181:!DEF FN C 

< 189> 

531 

DATA 241,281,281,321,361,361:FOR 1=0 T 


393 

11=11(FI):12=12(FI):13=13(FI):J1=J1(FI 



0 5:READ FUX(I):NEXT 

<1445 


):J2=J2(FI):J3=J3(FI):RETURN 

<092> 

541 

DATA,"SER(..)","LOG(..)","SDR(. .) UND 


400 

REM-DRUCKEN- 

< 157> 


LOG(..)","(..)f" 

<011> 

401 

GOSUB 701: GR7.=0 

< 195> 

542 

DAT A"SDR(..) UND (..)t","LOG!..) UND ( 


402 

CY7.= 17: GOSUB 711 .-PRINT, " {3SPACE7AUSDRU 



..)♦"," SDR ( . . ) UND LOG (. . ) UND (..)f 

<222> 


CK 

<236> 

543 

FOR 1=0 TO 7:READ DT*(I):NEXT 

<208> 

405 

CYX=19:GOSUB 711:PRINT" 320*200{SPACE, 


551 

DIM PI (4) ,P2 (4) ,P3 (4) ,PF7.(5) ,RX(3) ,PX( 



RVSON, SPACE >0 {SPACE, RVOFF, SPACE 5-SCHNEL 



3),TX(3) 

<026> 


L{3SPACE1MIT RAND{SPACE,RVSON,SPACE>R{ 


552 

FOR 1=0 TO 4:READ PI(I),P2(I),P3(I):NE 



SPACE,RVOFF> 

<158> 


XT:FOR 1=0 TO 5:READ PFX(I):NEXT 

<255> 

406 

CYX=20:GOSUB 711:PRINT" 640*400{SPACE, 


554 

DATA-240,-1100,200,-180,-1100,300,0,-1 



RVSON,SPACEJ1{SPACE,RVOFF,SPACE >KLEIN 

<072> 


100,330,180,-1100,300,240,-1100,200 

< 169> 

407 

CY7.=21: GOSUB 711: PRINT" {3SPACE>0PTI-{S 


555 

DATA 291,252,214,256,297,259 

< 104> 


PACE,RVSON,SPACE >2{SPACE,RVOFF,SPACE >M 

C4CD n 

, 560 2TM FX(35),A*(35>,B*(35),C*(35),11(35) 



ITTEL{4SPACEJMIT TEXT{SPACE,RVSON,SPAC 

O i%ri U 


,-U(35),13(35),J1(35),J2(35>,J3(35) 

<114> 


E JT{SPACE,RVOFF > 

<1C7> 

561 

RETURN 

<111> 

403 

CY7.=22: GOSUB 711:PRINT"C3SPACE >MIERT {S 


600 

REM - UNTERPROGRAMME - 

<159> 


PACE,RVSON,SPACE >3{SPACE,RVOFF,SPACEJG 


610 

REM URSPRUNG 

<040> 


ROSS 

<098> 

611 

GOSUB 701:PRINT:PRINT" KOORDINATEN DES 


410 

POKE F+770+GR7.*40,12:POKE F+793,12*RD7. 



URSPRUNGS:" 

<168> 


: POLE F+873,12*TX7. 

<227> 

612 

POKE 198,0:CYX=19:GOSUB 711:PRINT” X = 


420 

POKE 198,0:WAIT 19B,1:GET D*:D=ASC(DS) 

< 192 > 


{SPACE, GREY 2 > " ; OX 7.; " {LEFT , 4SPACE > " 

<129> 

421 

IF D*="R"THEN RDX=1-RD%:GOTO 402 

< 103> 

613 

CYX=21:GOSUB 711:PRINT"{BLACK,SPACE>Y 


422 

IF D*= "T“THEN TXX=1-TXX:GOTO 402 

<059> 


= {SPACE,GREY 2 >";OYX;”{BLACK,LEFT,4SPA 


423 

IF D>47 AND D<52 THEN BR7.=D-48: GOTO 40 



CE>" 

<093> 


2 

<057> 

614 

IF PEEK (203) 064 THEN 616 

< 180> 

425 

GOTO 430 

< 171 > 

615 

WAIT 198,1:GET D* 

<042> 

426 

PRINT,"{GREY 2>DRUCKER EINSCHALTEN{BLA 


616 

IF D*="X"THEN OXX=QXX—20:GOTO 612 

<079> 


CK,UP > 

<215> 

617 

IF D*="Y"THEN OYX.=OYX+20: GOTO 612 

<022> 

427 

POKE 198,0:WAIT 19B,1:BET D* 

<103> 

618 

IF D*="X"THEN OYX=OYX—20:GOTO 612 

<0B9> 

428 

IF D*OCHR*(13)AND D*<>"D"THEN 35 

<076> 

619 

IF D*="X"THEN OXX=OXX+20:GOTO 612 

<016> 

430 

OPEN 1,4,1:CLOSE 1:IF ST<0 THEN 426 

<005> 

648 

RETURN 

<198> 

440 

!SCN,1:!LOC,0,0,0,638,0,398 

< 176> 

649 

OXX=240* (KSX-INT (KSX/3) *3) +80: OY7.=140* 


446 

!LINE,0,0,638,0,RDX*255:!LINE,0,0,0,-3 



INT(KSX/3)+60:RETURN 

<18B> 


9B,RD7.*255 

< 189> 

650 

REM PROJEKTIONSZENTRUM 

<101> 

447 

! LI NE, 0, -398,638, -398, RD7.*255: ! LI NE, 63 


651 

BOSUB 701:PRINT:PRINT" KOORDINATEN DES 



8,0,638 , -398, RD7.*255 

<013> 


PROJEKTIONSZENTRUMS:" 

< 179> 

448 

! LOC, 0X7., 0Y7., 2,636,2,396 

<069> 

652 

POKE 198,0: FOR 1 = 1 TO 3: CY7.= 17+2*1: GOS 


450 

OPEN 2,4,1:REM 1= SEK.ADR. FUER GROSS/ 



UB 711:PRINT“{BLACK >"CHRS(87+1)" ={SPA 



GRAFIK 

< 183> 


CE,GREY 2>"PX(I>; 

<160> 

460 

!C0PY,GR7.,14:REM 14=SEK.ADR. FUER LINE 


653 

PRINT »{BLACK,LEFT,4SPACE>": NEXT 

<235> 


ARKANAL 

<030> 

655 

IF PEEK (203) 064 THEN 657 

<224> 

468 

IF TX7.=0 OR FZ=0 THEN 492 

< 159> 

656 

WAIT 198,1:GET D*:FOR 11=1 TO 6 

< 115> 

470 

FOR 1=1 TO FZ: IF F7.(I>=0 THEN PRINT#2, 


657 

FOR 1=1 TO 6 

<122> 


"F(X) = "+A*(I):GOTO 485 

< 042> 

658 

IF D*=MID*("XÄYXZX",1,1)THEN D=INT((I+ 


471 

IF FX(1X4 THEN PRINT#2,"X = "+A*(I):P 



1)/2):PX(D)»PX(D)+20+40*(I/2=D):GOTO 6 



RINT#2,"Y = "+B*(I> 

<170> 


52 

<224> 

473 

IF F7.(I>=2 OR F7.(I)=3 THEN PRINT#2,"Z 


659 

NEXT:RETURN 

<090> 


= "+C*(I) 

<008> 

699 

PX (1) =P1 (PZ) : PX (2) =P2 (PZ).- PX. (3) =P3 (PZ) 


474 

IF F7.(I>>3 THEN 480 

<08B> 


:RETURN 

<093> 

475 

PRINT#2,"I VON "+STR*(I1(I)>+" BIS "+S 


700 

REM EINGABEFELD LOESCHEN 

<098> 


TR*(12(1))+", SCHRITTW."+STR*(13(I)> 

<099> 

701 

FOR 1=16 TO 24:POKE 781,I:SYS 59903:NE 


476 

IF FX(I)<3 THEN 485 

<252> 


XT:CXX=0:CYX-16:GOSUB 711:RETURN 

<205 > 

477 

PRINT#2,"J VON "+STR*(J1(I))+" BIS "+S 


710 

REM CURSOR 

<142> 


TR*(J2(I>>+", SCHRITTW."+STR*(J3(I)) 

<013> 

711 

POKE 211,CXX:POKE 214,CYX:SYS 58640:RE 


478 

GOTO 485 

<208> 


TURN 

<083> 

480 

PRINT#2,»(“+STR*(11(1))+","+STR*(12(1) 


720 

REM INPUT 

<201 > 


52 
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721 IF D*<>""THEN IF LEFT*(D*,1)=" "THEN D 

*=RIGHT*(D*,LEN(D*)-1> <150> 

722 D*=D*+"<67SPACE>" <127> 

723 X2X=0:D*=LEFT#(D*,IL> <228> 

725 GOSUB 711: PRINT" 1RVSON J "+D*+'' <RVOFF,SP 

ACE>";:X1=F+CXX+40*CYX+X2X <076> 

730 PDK'E X1 , 12: GET E*: IF E*=" "THEN 730 <197> 

731 D=ASC(E*):IF D=13 THEN 760 <153> 

732 IF D=29 THEN IF X27.<IL-1 THEN X2X-X2X+ 

IsPOKE XI,0:X1=X1+1:GOTO 730 <154> 

734 IF D=157 THEN IF X27.THEN X2X-X2X-1 s POK 

E XI,0:X1=X1—1:GOTO 730 <013> 

735 IF D< >20 THEN 737 <226> 

736 IF X27.THEN X2X-X2X-1: D*=LEFT* (D*, X27.) + 

MID*(D*,X2X+2,IL-1—X2X)+" ":GOTO 725 <213> 

737 IF D=14B THEN D*=LEFT*<D*,X2X>+" "+MID 

*(D*,X2X+1,IL-1-X2X):GOTO 725 <247> 

738 IF D<59 THEN IF D>39 THEN IF D<>44 THE 

N 745 <195> 

740 IF D>63 THEN IF D<B9 THEN IF IL-66 OR 

IL=14 THEN 745 <026> 

741 IF D=32 OR D=94 THEN 745 <227> 

742 IF D-222 THEN E*=CHR*(255):GOTO 745 <07B> 

743 GOTO 725 <147> 

745 D*=LEFT* <D*,X2X> +E*+MID*(D*,X2X+2,IL-1 

-X2X):IF X2X<IL—1 THEN X2X=X2X+1 <166> 

750 GOTO 725 <154> 

760 POKE XI,0:1=1 <079> 

761 IF MID* (D*, 1,1)0" "THEN IF I<LEN(D*) + 

1 THEN 1=1+1:GOTO 761 <099> 

762 D*=LEFT*(D*,I—1):IF D*=""THEN D*="0" <144> 

763 RETURN <057> 

770 REM FKT. LOESCHEN <102> 

771 CXX=20:CYX=14:GOSUB 711:PRINT"{GREY 2> 

B{BLACK>ILD{GREY 2>T{BLACKJERMIGREY 2} 
G{BLACK>ES":POKE 19B,0:WAIT 198,1 <0B9> 

772 GET D*:IF D*="G"THEN:!CLR:FZ=0:FI=0:KR 

X=0:GOSUB B01:GOTO 77B <021> 

773 IF D*="B"THEN:!CLR:KRX=0:GOTO 77B <139> 

774 IF D*< >"T"OR FZ=0 THEN 778 <124> 

775 IF FI=FZ THEN FI=FI-1:G0T0 777 <102> 

776 II=FI: FI =0: GOSUB 205: FI=FZ: GOSUB 390: R-,,, - 

1=1I:GOSUB 205:FI=0:GOSUB 390:FI=II <I04> 

777 FZ=FZ—1 <137> 

778 GOSUB 711s PR INT" {2SPACE OLOESCHEN ".-RET 

URN <242> 

780 REM ANZEIGE EINGABEFELD <119> 


781 GOSUB 701:IF FX>3 THEN 791 <179> 

782 IF FX=0 THEN F1*="F(X> = ”:F2*="":F3*= 

"":GOTO 785 <130> 

783 IF FX-3 THEN Fl*="{LEFTJX(I,J)= ":F2*= 
"CLEFT>Y(I,J)= ":F3*="CLEFT>Z(I,J)= ": 

GOTO 785 <236> 

784 F1*="X(I) = ":F2*="Y(I) = ":F3*="":IF 

FX=2 THEN F3*="Z(I) = » <188> 

785 IF FXTHEN PRINT" I VON ";II;"CLEFT>";T 
AB(14);"BIS ";12;"<LEFT>";TAB(25);"STE 

P ";I3 <249> 

786 CYX=17:GOSUB 711 <075> 

7B7 IF FX-3 THEN PRINT" J VON ";J1;"CLEFT> 

";TAB(14);"BIS ";J2;"{LEFT >";TAB(25);" 

STEP ";J3 <016> 

78B CYX=18:GOSUB 711:PRINT" "F1*;A*:IF FXT 

HEN CYX-20:GOSUB 711:PRINT" "F2*;B* <066> 

789 IF FX>1 THEN CYX=22:G0SUB 711:PRINT" " 

F3*;C*; <221> 

790 RETURN <0B6> 

791 PRINT" PUNKT ACBSPACEJPUNKT B <191> 

792 CYX=1B:GOSUB 711:PRINT" ";I1;TAB(16);J 

1 <181> 

793 CYX-20:GOSUB 711 .-PRINT" "; 12; TAB (16); J 

2 < 002 > 

794 IF FX—5 THEN CYX-22:GOSUB 711:PRINT" " 

;13;TAB(16);J3 <123> 

795 RETURN <091> 

800 REM EINHEIT,WINKEL,NR. <252> 

801 POKE 1529,FN E(FI):POKE 1528,FN Z(FI): 

11=1481:I=MX:GOTO 805 <185> 

802 FOR D=1 TO 3:II=1286+D*40:I=RX(D):GOSU 

B 805: I=TX.(D> : GOSUB B06: NEXT: RETURN <19S> 

805 POKE II+2,FN E(I):POKE II+1,FN Z(I):PO 

KE II,FN H(I):RETURN <241> 

806 POKE II+6,FN E (ABS (I)).-POKE II+5,FN Z( 

ABS(I)):POKE I1+4,FN V(I):RETURN <109> 

900 REM PROGRAMMENDE <073> 

902 REM (W)RITTEN BY B. HAFNER <073> 

904 REM UEBERARBEITET VON N. HEUSLER <084> 

905 REM (16.7.89) <216> 

I 906 r,7M I.A. MARKT & TECHNIK VERLAG <222> 

908 REM (C) REDAKTION SONDERHEFTE 64'ER <1B7> 


Listing 4. (Schluß) 


1 REM DEMOPROGRAMM ' PROGRAF' <U9> 

2 REM--- < 153 > 

3 REM PROGRAMMIERT VON NIKOLAUS HEUSLER <205> 

4 REM (C) SONDERHEFT 64'ER NH-160789 <117> 

5 REM- < 156 > 

6 REM WE APOLOGIZE FOR ANY INCONVENIENCE <236> 

10 POKE 56,67:CLR:POKE 53280,11:POKE 0,111 <124> 

11 IF PEEK(17803)+PEEK(22956)033 THEN SYS 

57812"PROGRAF",8,1:POKE 780,0:SYS 6549 
3 < 017 > 

12 POKE 777,67 <217> 

14 GOTO 100 <19B> 

20 POKE 53280,.:POKE 198,.:WAIT 198,1:P0KE 

198,.:POKE 53280,11:RETURN <005> 

100 PRINT"<CLR,SPACE,DOWN>DEMOPROGRAMM 'PR 

OGRAPH'{17SPACE3-VON NIKOLAUS HEUSLER <119> 

102 PRINT"{DOWN,SPACE)IMMER, WENN DIE RAHM 

ENFARBE AUF SCHWARZ <191> 

104 PRINT"CUP,SPACEISCHALTET, IST DIE GRAF 

IK FERTIG. <191> 

106 PRINT"CDOWN,SPACETDANN WOLLEN SIE BITT 

E EINE TASTE DRUEK- KEN. <203> 

108 GOSUB 20 <054> 

110 !SCN,1:!CLR,11,1 <087> 

120 !LOC,320,200:OX—160:OY=0 <124> 

130 FOR I-.TO 63 STEP.1:X=40*COS(I>*C4+SIN 

(1*3.3)):Y=40*SIN<I)*<3+SIN<I*3.3>) <156> 

140 !LINE,X,Y,DX,OY:OX=X:OY=Y:NEXT:GOSUB 2 

0 <163> 

150 (CLR:(TRANS,0,0,0:(ROT,0,0,0 <0B0> 

160 ! LOC,320-,340: E=40: ! PROZ , 180,-600,300 <130> 

170 FOR I=—26 TO 14 STEP.5:FL=.:FOR J=-4 T 

0 30 STEP.6 <111> 


180 X=I:Y=J:Z=SIN(I-J+SIN(I+J>)/(3+J/3) <225> 
190 IF FL THEN:!ZLINE,X*E,Y*E,Z*E,0X*E,0Y* 

E,OZ*E <226> 
195 FL=1:OZ=Z:DY=Y:OX=X <135> 
200 NEXT J,I <015> 
210 FL=.:FOR I=-7 TO 7 STEP.2 <131> 
220 X=I:A=LOG(3+1*1)+3:B=LQG(1+1*1)+3 <235> 
230 IF FL THEN:(ZLINE,X*E,0,A*E,OX*E,0,OA* 

E <188> 
232 IF FL THEN:(ZLINE,X*E,0,B*E,OX*E,0,OB* 

E <207> 
234 FL=1:OX=X:OA=A:OB=B:NEXT:GOSUB 20 <145> 
240 (CLR:!PROZ,180,-1100,300:E=55: (LOC,320 

,60:!TRANS,—3*E,0,—2*E <1B6> 
250 FOR 1—3 TO 3 STEP. 5: FL=. : FOR J—3 TO 

3 STEP.5 <101> 
260 X=I:Y=J:Z=—2/SOR(I*I+J*J+. 1) <022> 
270 IF FL THEN:(ZLINE,X*E,Y*E,Z*E,OX*E,OY* 

E,OZ*E <052> 
275 FL=1:OZ=Z:OY=Y:OX=X:NEXT:NEXT <095> 
280 FOR I=.5 TO 3 STEP.3:FL=0:FOR J=0 TO 6 

.29 STEP.314 <137> 
290 X=I*CDS(J):Y=I*SIN(J):Z=-2/I <032> 
300 IF FL THEN:(ZLINE,X*E,Y*E,Z*E,OX*E,OY* 

E,OZ*E <082> 
305 FL=1:OZ=Z:OY=Y:OX=X:NEXT:NEXT <125> 
310 GOSUB 20:END <105> 


Listing 5. Ein einfaches Demoprogramm für 
»Prograf« (bitte bei nicht aktiviertem »Prograf« 
mit dem Checksummer eingeben) 
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E inige der hier vorgestellten Er¬ 
weiterungen können unter Ami- 
ca-Paint als Erweiterung nach¬ 
geladen werden. Diese erkennen 
Sie an den Zeichen »[W]« im File¬ 
namen. Dazu wählen Sie im Haupt¬ 
menü die Funktion »Sonstiges« (Ta¬ 
ste <0>). Betätigen Sie anschlie¬ 
ßend die Taste <E>, listet Amica- 
Paint alle Erweiterungen der einge¬ 
legten Diskette auf. Über den dabei 
angezeigten Buchstaben wird die 
gewünschte Erweiterung gestartet. 

Es ist daher notwendig, daß Sie die 
Listings, die Sie aus diesem Artikel 
abtippen, auf Ihrer Amica-Paint-Sy- 
stemdiskette speichern, ggf. auf der 
Rückseite. Der Betrieb der Pro¬ 
gramme aus diesem Artikel ohne 
Amica-Paint ist leider nicht möglich. 

Neben einigen Erweiterungen 
stellen wir Ihnen zwei neue Einga¬ 
betreiber vor, die vor dem Start von 
Amica-Paint installiert werden kön¬ 
nen. Es handelt sich um einen Trei- E5 O JL = C 
ber für die NCE-Maus und einen 
stark verbesserten Treiber für die 
Maus 1351 von Commodore, die jetzt in drei verschiedenen 
Geschwindigkeiten betrieben werden kann. Auch zwei 
neue Zeichensätze können wir Ihnen offerieren. Da müßte 
doch eigentlich für jeden Amica-Paint-Liebhaber etwas da- 
beisein... 

Amica-Paint mit NCE-Maus 



B 1 SKAT 




UES 


Beginnen wir mit den beiden Maustreibern. Grundsätzlich 
gehen Sie bitte wie folgt vor: Tippen Sie das entsprechende 
File (Listing 10 und/oder 11) ab und speichern Sie es auf der 
Amica-Paint-Diskette. Dieses File stellt später die Verbin¬ 
dung von Amica-Paint und der Maus her (sog. »Treiber«), 
Dann muß noch das Programm »Eingabegeräte« aus dem 
Sonderheft 27 auf die neuen Treiber eingestellt werden. Da¬ 
zu ergänzen Sie einfach die DATA-Zeilen entsprechend. Sie 
können aber auch das Installationsprogramm völlig neu 
eingeben (sicherer), dazu tippen Sie Listing 15 ein und 
speichern es. 

Listing 10 (bitte mit dem MSE eingeben, siehe Seite 159) 
ermöglicht das Betreiben von Amica-Paint mit der NCE- 
Maus. Nach dem Starten des Programmes »EINGABEGE- 
RAETE« (entweder wie beschrieben geändert oder abge¬ 
tippt mit dem Checksummer als Listing 15) kann nun neben 
Joystick und der Commodore-Maus 1351 auch die NCE- 
Maus angewählt werden. Da diese normalerweise die Ta¬ 
statur blockiert, muß ein Adapter (bei der Firma Scanntro- 
nic für ca. 25 Mark erhältlich) zwischen die Maus und den 
C64 geschaltet werden. Die NCE-Maus wird an Port 2 an 
geschlossen. Der rechte Mausknopf entspricht dem Feu 
erknopf des Joysticks und dient zum Ausführen von Funk¬ 
tionen. Der linke Knopf hingegen führt zum Abbruch eines 
Befehls. Er entspricht der STOP-Taste. 

Dreimal 1351 


FÜR 





Al NT 


Aber auch für die Maus 1351 gibt es einen neuen Treiber. 
Er löst das Problem des zu schnellen Mauszeigers: Die Ge¬ 
schwindigkeit wird wahlweise auf die Hälfte oder ein Viertel 
reduziert. Dazu müssen die Listings 11 bis 14 mit dem MSE 


Amica-Paint, unser tolles Malprogramm aus dem 
Sonderheft 27, läßt sich noch weiter verbessern. 
Hier finden Sie einige brandneue Erweiterungen. 


feingegeben und auf der Amica-Paint Diskette gespei¬ 
chert werden. Nun das Programm »EINGABEGERAE- 
, TE« laden und folgende Zeile eingeben: 

410 DATA "MAUS 1351 LMS","MAUS LMS" 

Dieses Programm wird nun nach dem Löschen der al- 
1 ten Version auf der Diskette gespeichert. Sie können 
aber auch hier Listing 15 eingeben und ohne Änderung 
als neue Version speichern. Nach dem Start des Installa¬ 
tionsprogrammes und Anwählen des Menüpunkts 
»MAUS 1351 LMS« (»LMS« steht für »Langsam, Mittel, 
Schnell«) wird der neue Maustreiber installiert. 

Nach dem Starten von Amica-Paint merken Sie noch 
keinen Unterschied. Sie können jedoch jetzt im Erweite- 
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LISTINGS 


rungsmenü (Taste <0> und <E>)drei verschiedene Ge¬ 
schwindigkeiten wählen: 

SCHNELL: ursprüngliche Geschwindigkeit 
NORMAL: halbe Geschwindigkeit 
LANGSAM: ein Viertel der alten Geschwindigkeit. 

Hiermit ist ein sehr präzises Arbeiten mit der Maus mög¬ 
lich. Bitte beachten Sie, daß beim Anwählen von einem der 
drei Erweiterungen unbedingt der neue Maustreiber instal¬ 
liert sein muß und nach dem Aufruf der gewünschte Zei¬ 
chenbefehl noch anzuwählen ist. 

/r\ 

Drehen mit Amica-Pninf ' 



Da die Drehfunktion von Amica-Paint für beliebige Winkel 
ausgelegt ist und infolgedessen immer mit einigen Unge¬ 
nauigkeiten arbeitet, wurde speziell für das Drehen um den 
Winkel von 90 Grad eine Erweiterung entwickelt, die ge¬ 
nauer ist. Das File »[WJDREHEN 90 GR.« (Listing 4) geben 
Sie bitte mit dem MSE ein und speichern es auf die Amica- 
Paint-Diskette. Die neue Drehfunktion kann jetzt unter dem 
Malprogramm im Erweiterungsmenü aufgerufen werden. 
Im Grafikeditor wird einfach der zu drehende Block festge¬ 
legt. Danach wählen Sie noch die Position des um 90 Grad 
im Uhrzeigersinn gedrehten Blocks. 

Der AmUa-Faint-Schnellader 



(Listing 7, bitte mit dem Checksummer eingeben). Das File 
»ALLWAND.COOO« (Listing 8, bitte mit dem MSE eingeben) 
wird nachgeladen. Es verwandelt alle auf einer Diskette be¬ 
findlichen Bilder in das Amica-Paint-Format. Auf der Disket¬ 
te dürfen sich daher nur Bilder, keine anderen Dateien be¬ 
finden. Manchmal liegt auch eine Diskette mit mehreren 
Koala-Bildern vor, die alle in das Amica-Paint-Format umge¬ 
wandelt werden sollen. Diese Aufgabe erledigt das Pro¬ 
gramm »ALLWAND« (Listing 9). 

Amica-Paint-Bilder zeigen 


Das alte Programm »SHOW PIC.52480« aus dem Sonder¬ 
heft 27, das zum Anzeigen von Bildern dient, hatte den 
Schönheitsfehler, daß beim Umschalten zwischen zwei Bil¬ 
dern für kurze Zeit ein wüster »Pixel-Salat« auf dem Bild¬ 
schirm erschien. Dieses Programm wurde überarbeitet. 
Die Bilder scrollen nun sauber über den Bildschirm. Um ei¬ 
ne ansprechende »Diashow« zu realisieren, benötigt man 
nun nicht mehr unbedingt die eingebaute Diashowfunktion 
von Amica-Paint. Es genügt, wenn man die Files »SHOW« 
(Listing 1 , bitte mit dem Checksummer eingeben) und 
»SHOW PIC.52480« (Listing 2) auf die Bilderdiskette ko¬ 
piert. Nach dem Starten von »SHOW« werden nun alle Bil¬ 
der auf der Diskette nacheinander angezeigt. 



Neue Charakter 


Auch diese Erweiterung (Listing 3) soll mit dem MSE einge¬ 
geben werden. Sie entspricht dem schon auf der System¬ 
diskette enthaltenen MOST ACCESS. 

Durch das Anwählen der Erweiterung »[WjSchnellader« 
installiert sich ein Software-Speeder, mildem Bilderund Er¬ 
weiterungen ungefähr fünfmal schneller geladen werden 
als gewöhnlich. Dies ist für all jene interessant, die keinen 
eingebauten Diskettenbeschleuniger besitzen. 

Wenn Bilder auf 
Wanderschaft gehen 

Farbbilder liegen manchmal als 33 oder 32 Blocks lange Fi¬ 
les vor. Es handelt sich dabei um Bitmaps ohne Farbinfor¬ 
mationen. Im ganzen Bild werden nur vier verschiedene 
Farben verwendet. Zur Umwandlung solcher Bilder in das 
Amica-Paint-Format dient das Programm »ALLWAND/F« 




An dieser Steile können wir Ihnen auch noch zwei neue Zei¬ 
chensätze anbieten, die nur jeweils vier Blocks lang sind. 
Geben Sie diese (Listings 5 und 6) mit dem MSE ein und 
speichern sie auf der Systemdiskette. Sie können dann wie 
gehaoi nachgeladen werden. Auf der Service-Diskette zum 
Heft finden Sie außerdem noch zwei weitere Zeichensätze 
(»Mini« und «Profi«), die bereits im Stammheft 8/88 veröf¬ 
fentlichtwurden. Ebenfalls enthalten sind die beiden Erwei¬ 
terungen »[WjTexteditor« und »[WjText« derselben Ausga¬ 
be. »[W] Text« sollte dabei auf jeden Fall auf der Diskette mit 
allen anderen Erweiterungen gespeichert sein. 

Das waren nun also unsere Erweiterungen zu Amica- 
Paint. Wir hoffen, Sie haben nun noch mehr Vergnügen mit 
diesem netten Malprogramm. Wenn Sie noch mehr solche 
Erweiterungen entwickelt haben - immer her damit! 

(Oliver Stiller/Horst Makitta/Nikolaus Heusler/ag) 

Info zum Adapter für die NCE-Maus: Scanntronic, ParksfraBe 38, 8011 Zorneding. Tetelon 
08106/22570 


100 

REM OLIVER STILLER 

<154> 

280 

IF FL=0 THEN NEXT T 

< 157> 

110 

REM 

<172> 

290 

GOTD 160 

<060> 

120 

IF L=0 THEN L=1 :LOAD "SHOW PIC.52480" 


310 

REM 

<11S> 


,8,1 

<094> 

320 

REM DIRECTORY ZEIGEN 

< 154> 

130 

DIM NA*(144):C3*=CHR*<34> 

<107> 

330 

REM 

< 138> 

160 

PRINT"{2D0WN >AMICA PAINT DIASHOW" 

<068> 

340 

CLOSE 1:OPEN 1,8,0,"*:CBI*"iGETttl,A*,A 


150 

PRINT"DIESES PROGRAMM ZEIGT ALLE AMICA 



*:PO=0 

<056> 


PAINTC2SPACE3BILDER EINER DISK AN." 

<217> 

350 

PRINT"{DOWN3BILDER DER DISKETTE:" 

<096> 

160 

PRINT“<2D0WN>BITTE DISK EINLEGEN UND T 


360 

FOR T=0 TO 7:GET#1,A*,A*,A*,A*:NEXT 

<077> 


ASTE DRUECKEN":WAIT 19B,1:GET A* 

<090> 

370 

: 

<092> 

170 

FL=0:IF A*=" " THEN FL=1 

<238> 

380 

BETttl,A*,A*,A*,A*:IF ST THEN 410 

<103> 

180 

GOSUB 340 

<204> 

390 

GET#1,X*:IF X*=C3* THEN AN*="":GOTO 42 


190 

: 

< 166> 


0 

<252> 

200 

IF PO=0 THEN GOTO 160 

<229> 

400 

IF ST=0 THEN 390 

<057> 

210 

: 

<1B6> 

410 

CLOSE 1:RETURN 

<027> 

220 

FOR T=0 TO PO-1 

<112> 

420 

GET#1,Z*:IF Z*OC3* THEN AN*=AN*+Z*: GO 


230 

IF FL=0 THEN PRINT"{DOWNJLADE BILD:";C 



TO 420 

<096> 


3*;NA*(T);C3* 

<000> 

430 

PRINT C3S;AN*;C3*:NA*(PO)=AN*:PO=PO+1 

<126> 

240 

SYS 52480,8,NA*(T>,1 

<177> 

440 

GET#1,X*:IF X*<>"" AND ST=0 THEN 440 

<127> 

250 

FOR G=1 TO 1400:GET A*: IF A*="" THEN N 


450 

GOTO 380 

<012> 


EXT 

< 155> 




260 

IF FL THEN NEXT T 

<232> 

Listing 1. Das Programm »SHOW« zeigt eine Diashow. 

270 

SYS 52480,8,"",0 

<018> 

Bitte geben Sie es mit dem Checksummer (Seite 159) ein. 



SONDERHEFT 45 
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LISTINGS 


Name : show pic.52480 cdOO cf6f 


cd00 : 

a9 

00 

8d 

6d 

cf 

8d 

20 

dO 

46 

cd08 : 

20 

48 

ce 

20 

fd 

ae 

20 

9e 

17 

cdlO : 

b7 

a9 

00 

aO 

00 

20 

ba 

ff 

9c 

cdl8 : 

20 

fd 

ae 

20 

9e 

ad 

20 

a3 

06 

cd20 : 

b6 

a6 

22 

a4 

23 

48 

20 

bd 

b7 

cd28 : 

ff 

20 

fd 

ae 

20 

9e 

b7 

8e 

7f 

ed30 : 

6e 

cf 

a2 

00 

aO 

aO 

86 

fd 

54 

cd38 : 

84 

fe 

68 

fO 

ld 

a9 

00 

20 

d3 

cd40 : 

d5 

ff 

90 

03 

4c 

f9 

eO 

ad 

Od 

cd48 : 

6e 

cf 

29 

01 

Od 

72 

ce 

fO 

8a 

cd50 : 

06 

20 

73 

ce 

ee 

6d 

cf 

20 

f7 

cd58 : 

00 

cf 

ad 

6d 

cf 

dO 

13 

ae 

86 

cd60 : 

6e 

cf 

eO 

02 

fO 

08 

ad 

72 

19 

cd68 : 

ce 

cd 

6e 

cf 

dO 

01 

60 

20 

89 

cd70 : 

73 

ce 

ad 

6e 

cf 

dO 

06 

20 

5f 

cd78 : 

83 

cd 

4c 

7e 

ce 

20 

e3 

cd 

5d 

cd80 : 

4c 

7e 

ce 

aO 

00 

8c 

11 

dO 

ld 

cd88 : 

b9 

00 

c8 

99 

00 

d8 

b9 

00 

54 

cd90 : 

c9 

99 

00 

d9 

b9 

00 

ca 

99 

5b 

cd98 : 

00 

da 

b9 

00 

cb 

99 

00 

db 

b5 

cdaO : 

c8 

dO 

e5 

a9 

15 

8d 

18 

dO 

3f 

cda8 : 

ad 

00 

cc 

8d 

21 

dO 

a9 

c8 

Ob 

cdbO : 

8d 

16 

dO 

a9 

lb 

8d 

11 

dO 

b6 

cdb8 : 

a9 

97 

8d 

00 

dd 

a9 

00 

8d 

d6 

cdeO : 

72 

ce 

60 

aO 

00 

b9 

00 

cO 

15 

cdc8 : 

99 

00 

d8 

b9 

00 

cl 

99 

00 

43 

cddO : 

d9 

b9 

00 

c2 

99 

00 

da 

b9 

57 

edd8 : 

00 

c3 

99 

00 

db 

88 

dO 

e5 

31 

edeO : 

a9 

lf 

8d 

18 

dO 

ad 

01 

cc 

97 

cde8 : 

8d 

21 

dO 

a9 

d8 

8d 

16 

dO 

63 

cdfO : 

a9 

3b 

8d 

11 

dO 

a9 

94 

8d 

84 

cdf8 : 

00 

dd 

a9 

01 

8d 

72 

ce 

60 

da 

ceOO : 

a2 

00 

81 

fb 

e6 

fb 

dO 

02 

18 

ce08 : 

e6 

fc 

60 

a2 

00 

al 

fd 

e6 

ac 

eelO : 

fd 

dO 

02 

e6 

fe 

60 

20 

Ob 

5c 

cel8 : 

ce 

c9 

c2 

fO 

06 

20 

00 

ce 

98 

ce20 : 

4c 

16 

ce 

20 

Ob 

ce 

c9 

00 

7d 

ee28 : 

fO 

ld 

a8 

20 

Ob 

ce 

48 

98 

4e 

ee30 : 

aa 

68 

aO 

00 

91 

fb 

c8 

ca 

e8 

ce38 : 

dO 

fa 

98 

18 

65 

fb 

85 

fb 

f3 

ce40 : 

90 

d4 

e6 

fc 

4c 

16 

ce 

60 

05 

ee48 : 

ad 

72 

ce 

fO 

01 

60 

aO 

00 

96 

oe50 : 

b9 

00 

d8 

99 

00 

c8 

b9 

00 

aO 

ce58 : 

d9 

99 

00 

c9 

b9 

00 

da 

99 

71 

ee60 : 

00 

ca 

b9 

00 

db 

99 

00 

cb 

56 

ce68 : 

c8 

dO 

e5 

ad 

21 

dO 

8d 

00 

96 

ce70 : 

cc 

60 

00 

a9 

00 

20 

80 

ce 

42 

ce78 : 

a9 

Ob 

8d 

11 

dO 

60 

a9 

01 

e5 

ee80 : 

8d 

ff 

ce 

78 

ae 

ff 

ce 

bd 

71 

ce88 : 

fd 

ce 

8d 

f8 

ce 

ad 

ff 

3f 

48 

ce90 : 

48 

a9 

ff 

8d 

ff 

3f 

8d 

ff 

8e 

ce98 : 

ff 

ad 

12 

dO 

c9 

2e 

dO 

f9 

52 

ceaO : 

ad 

11 

dO 

30 

f4 

ad 

11 

dO 

b3 

cea8 : 

29 

eO 

09 

12 

8d 

11 

dO 

ac 

c4 

cebO : 

f8 

ce 

ae 

12 

dO 

ad 

11 

dO 

5e 

ceb8 : 

48 

29 

fO 

85 

fb 

68 

29 

lf 

67 

oecO : 

18 

69 

01 

c9 

18 

dO 

02 

a9 

6a 

cec8 : 

00 

05 

fb 

8d 

11 

dO 

ec 

12 

6b 

cedO : 

dO 

fO 

fb 

88 

dO 

de 

ad 

CO 

e5 

ced8 : 

ce 

18 

ae 

ff 

ce 

7d 

f9 

ce 

bc 

oeeO : 

8d 

f8 

ce 

dd 

fb 

ce 

dO 

bl 

35 

cee8 : 

68 

8d 

ff 

3f 

ad 

11 

dO 

29 

f8 

cefO : 

eO 

09 

lb 

8d 

11 

dO 

58 

60 

87 

cef8 : 

00 

02 

fe 

d3 

00 

01 

d2 

01 

89 

cfOO : 

78 

a2 

00 

86 

01 

aO 

dO 

86 

00 

cf08 : 

fb 

84 

fc 

20 

16 

ce 

aO 

00 

e3 

cflO : 

b9 

40 

ef 

99 

00 

c4 

b9 

40 

a6 

cfl8 : 

fO 

99 

00 

c5 

b9 

40 

fl 

99 

26 

cf20 : 

00 

c6 

b9 

40 

f2 

99 

00 

c7 

85 

cf28 : 

b9 

28 

f3 

99 

00 

cO 

b9 

28 

63 

cf30 : 

f4 

99 

00 

cl 

b9 

28 

f5 

99 

11 


cf38 : 

: 00 

c2 

b9 

28 

f6 

99 

00 

c3 

dO 

cf40 : 

: c8 

dO 

cd 

ad 

10 

f7 

8d 

01 

92 

cf48 : 

: cc 

a2 

20 

a9 

ef 

aO 

00 

85 

b2 

cf50 : 

: fe 

84 

fd 

a9 

ff 

85 

fc 

84 

6e 

cf58 : 

: fb 

bl 

fd 

91 

fb 

c8 

dO 

f9 

lb 

cf60 : 

: c6 

fe 

c6 

fc 

ca 

dO 

f2 

a9 

49 

cf68 : 

: 37 

85 

01 

58 

60 

00 

00 

00 

b3 


Listing 2. Dieses Programm 
stellt die verbesserte Bild-Einblend- 
Routine dar. Bitte geben Sie 
sie mit dem MSE (Seite 159) ein. 



Name : [w]schnellader 4000 4le0 


4000 : 

aO 

37 

b9 

40 

40 

99 

34 

03 

5a 

4008 : 

88 

10 

f7 

aO 

4e 

b9 

80 

40 

df 

4010 : 

99 bO 02 

88 10 f7 

6f 

b5 

4018 : 

b9 

dO 

40 

99 

00 

Ob 

88 

10 

17 

4020 : 

f7 

aO 

97 

b9 

3f 

41 

99 

3f 

67 

4028 : 

ef 

88 

dO 

f7 

aO 

Ob 

a2 

00 

7b 

4030 : 

8c 

31 

03 

8e 

30 

03 

00 

48 

93 

4038 : 

40 

ce 

27 

2e 

42 

43 

53 

20 

3b 

4040 : 

4c 

3a 

03 

4c 

56 

03 

48 

58 

43 

4048 : 

ad 

11 

dO 

09 

10 

8d 

11 

dO 

26 

4050 : 

a9 

2a 

20 

c3 

ff 

68 

85 

90 

09 

4058 : 

4a 

68 

68 

a9 

ld 

a6 

ae 

a4 

31 

4060 : 

af 

60 

48 

a9 

2a 

20 

c3 

ff 

39 

4068 : 

68 

a8 

a9 

2a 

a 2 

08 

20 

ba 

34 

4070 : 

ff 

4c 

cO 

ff 

00 

55 

4d 

4c 

3e 

4078 : 

49 

4e 

20 

2e 

53 

54 

59 

20 

34 

4080 : 

a9 

Of 

20 

37 

03 

aO 

00 

84 

de 

4088 : 

bO 

a2 

2a 

20 

c9 

ff 

a4 

bO 

a8 

4090 : 

a9 

4d 

20 

d2 

ff 

a9 

2d 

20 

84 

4098 : 

: d2 

ff 

a9 

57 

20 

d2 

ff 

98 

89 

40a0 : 

: 20 

d2 

ff 

a9 

06 

20 

d2 

ff 

Ob 

40a8 : 

; a9 

20 

aa 

20 

d2 

ff 

78 

c6 

ad 

40b0 : 

; 01 

b9 

40 

ef 

e6 

01 

20 

d2 

38 

40b8 : 

: ff 

c8 

ca 

dO 

fl 

84 

bO 

20 

2e 

40c0 : 

: cc 

ff 

cO 

aO 

dO 

c3 

60 

de 

3a 

40c8 : 

: 4l 

20 

eb 

53 

00 

da 

40 

32 

bb 

40d0 : 

: a5 

b9 

85 

30 

86 

ae 

84 

af 

08 

40d8 : 

: 20 

bO 

02 

ad 

11 

dO 

29 

ef 

a3 

40e0 : 

: 8d 

11 

dO 

a9 

00 

20 

37 

03 

43 

40e8 : 

: a9 

05 

a2 

6b 

aO 

Ob 

20 

bd 

88 

40f0 : 

: ff 

a9 

Of 

20 

37 

03 

78 

a9 

4c 

40 f8 : 

: c3 

8d 

00 

dd 

20 

4a 

Ob 

a8 

Of 

4100 ; 

: 20 

4a 

Ob 

a6 

30 

fO 

04 

84 

81 

4108 : 

: ae 

85 

af 

20 

4a 

Ob 

a2 

00 

fO 

4110 

: 81 

ae 

e6 

ae 

dO 

f5 

e6 

af 

2f 

4118 

: dO 

fl 

2c 

00 

dd 

30 

fb 

08 

4b 

4120 

: a9 

cO 

4d 

00 

dd 

4a 

4a 

4d 

71 

4128 

: 00 

dd 

4a 

4a 

4d 

00 

dd 

4a 

d4 

4130 

: 4a 

4d 

00 

dd 

28 

70 

03 

4c 

87 

4138 

: 34 

03 

60 

4d 

2d 

45 

00 

06 

b9 


4l40 : 

: 78 

a6 

18 

a4 

19 

eO 

12 

fO 

69 

4148 : 

: 45 

86 

06 

84 

07 

ad 

00 

lc 

f9 

4150 : 

: 49 

08 

8d 

00 

lc 

a9 

80 

85 

ld 

4158 : 

: 00 

a6 

00 

58 

78 

30 

fa 

eO 

6d 

4160 : 

: 02 

bO 

2b 

aO 

00 

ad 

00 

03 

Od 

4168 : 

: dO 

04 

ac 

01 

03 

c8 

84 

8b 

25 

4170 : 

: aO 

02 

b9 

00 

03 

a2 

02 

84 

d6 

4178 : 

: 8d 

20 

52 

06 

a4 

8d 

c8 

c4 

ce 

4180 : 

: 8b 

dO 

ef 

ac 

01 

03 

ae 

00 

e8 

4188 : 

: 03 

dO 

be 

a9 

00 

2c 

a9 

01 

e2 

4190 : 

: a2 

Oa 

a8 

8e 

64 

06 

4a 

4a 

67 

4198 : 

: 4a 

4a 

aa 

bd 

87 

06 

48 

98 

65 

4laO : 

: 29 

Of 

aa 

a9 

02 

8d 

00 

18 

ed 

4la8 : 

: 24 

ff 

bd 

87 

06 

8d 

00 

18 

29 

4lbO : 

: Oa 

29 

Of 

8d 

00 

18 

68 

8d 

42 

4lb8 : 

: 00 

18 

Oa 

29 

Of 

8d 

00 

18 

fa 

4lc0 : 

: ea 

a9 

00 

8d 

00 

18 

60 

Of 

91 

4lc8 : 

: 07 

Od 

05 

Ob 

03 

09 

01 

Oe 

91 

4ld0 : 

: 06 

Oc 

04 

Oa 

02 

08 

00 

20 

bf 

4ld8 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

d8 


Listing 3. Der Floppyspeeder 
zu Amica-Paint ist mit dem 
MSE (Seite 159) einzugeben 
und kann als Erweiterung 
nachgeladen werden 


Name : [w]drehen 90 gr. 4000 4090 


4000 : 

20 

12 

70 

e6 

d2 

20 

06 

70 

49 

4008 : 

20 

30 

a9 

20 

8d 

cO 

20 

Oc 

26 

4010 : 

70 

20 

24 

80 

a5 

28 

a6 

25 

2a 

4018 : 

eO 

64 

bO 

e9 

4a 

90 

10 

Oa 

11 

4020 : 

18 

69 

01 

4a 

a4 

34 

fO 

05 

30 

4028 : 

c6 

34 

4c 

2f 

40 

e6 

34 

85 

18 

4030 : 

25 

8a 

Oa 

85 

28 

a2 

7d 

aO 

9c 

4038 : 

40 

20 

27 

cO 

20 

09 

70 

a5 

c2 

4040 : 

: 31 

85 

2f 

a5 

27 

85 

28 

a6 

41 

4048 : 

: 2f 

a4 

34 

20 

Of 

cO 

a6 

24 

b4 

4050 : 

: a4 

28 

48 

20 

21 

90 

68 

a6 

a4 

4058 : 

: 24 

e6 

28 

a4 

28 

20 

21 

90 

b7 

4060 : 

: e6 

28 

e6 

2f 

a5 

2f 

c5 

32 

49 

4068 : 

: 90 

dd 

fO 

db 

c6 

34 

c6 

34 

30 

4070 : 

; e6 

24 

a5 

24 

o5 

23 

90 

c7 

9d 

4078 : 

: fO 

c5 

4c 

05 

40 

01 

31 

03 

d5 

4080 : 

: 4e 

45 

55 

45 

20 

50 

4f 

53 

d7 

4088 : 

: 49 

54 

49 

4f 

4e 

20 

3f 

00 

la 


Listing 4. Die Funktion zum Drehen 
von Ausschnitten um 90 Grad 
stellt ebenfalls eine Erweiterung dar 
(bitte mit dem MSE eingeben) 


Name : [z]Standard 4480 47c5 


4480 : 

: Ob 

05 

04 

04 

04 

04 

04 

03 

06 

4488 : 

: 04 

04 

01 

03 

04 

01 

05 

03 

92 

4490 : 

: 04 

04 

04 

03 

04 

03 

04 

05 

6a 

4498 : 

: 05 

05 

05 

04 

02 

04 

02 

04 

32 

44aO : 

: 04 

04 

03 

03 

05 

05 

04 

05 

5a 

44a8 : 

: 01 

03 

03 

06 

05 

02 

04 

01 

lf 

44bO : 

: 04 

04 

03 

04 

04 

04 

04 

04 

70 

44b8 ; 

: 04 

04 

04 

01 

02 

04 

04 

04 

38 

44cO : 

: 04 

04 

05 

04 

04 

04 

04 

04 

01 


Listing 5. Ein neuer 
Zeichensatz, der mit dem MSE 
(Seite 159) eingegeben wird 
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LISTINGS 


44c8 

: 04 

04 

01 

04 

04 

04 

05 

04 

Oc 

45dO 

: e8 

88 

8e 

f9 

99 

90 

08 

df 

dd 

46d8 : 64 

40 

08 

6f 

9f 

6f 

9f 

60 

01 

44d0 

: 04 

04 

05 

04 

04 

05 

04 

05 

lb 

45d8 

: 9f 

24 

12 

49 

78 

7c 

88 

8a 

da 

46e0 : 08 

6f 

99 

fl 

13 

60 

08 

33 

ff 

44d8 

: 05 

04 

05 

04 

04 

01 

04 

05 

04 

45eO 

: ec 

eb 

90 

08 

ff 

9f 

00 

01 

e6 

46e8 : 19 

01 

45 

e2 

00 

13 

6c 

63 

41 

44e0 

: 05 

al 

a8 

ae 

b4 

ba 

cO 

c6 

67 

45e8 

: af 

d6 

b5 

a8 

01 

00 

6f 

6d 

2d 

46f0 : 10 

08 

00 

Of 

00 

fO 

00 

08 

7e 

44e8 

: cb 

dl 

d7 

d9 

de 

e4 

e6 

ed 

59 

45 fO 

: aO 

50 

00 

06 

f9 

9f 

60 

08 

a7 

46f8 : 00 

8c 

63 

6c 

80 

08 

6f 

91 

ce 

44f0 

: f2 

f8 

fe 

04 

09 

Of 

14 

la 

2c 

45f8 

: 00 

Oe 

f9 

9f 

e8 

8c 

00 

07 

73 

4700 : 32 

20 

20 

08 

09 

Oe 

17 

9f 

e8 

44 f 8 

: 21 

28 

2f 

36 

3c 

3f 

45 

48 

23 

4600 

: f9 

9f 

71 

18 

00 

5f 

a4 

80 

b7 

4708 : 70 

08 

21 

lc 

a5 

6f 

ff 

88 

2f 

4500 

: 4e 

54 

5a 

5f 

64 

6b 

72 

78 

57 

4608 

: 40 

00 

06 

f4 

2f 

60 

08 

5f 

3d 

4710 : 01 

ef 

9b 

eb 

9f 

eO 

08 

6f 

6d 

4508 

: 7f 

81 

86 

8b 

94 

9b 

9e 

a4 

45 

4610 

: a4 

93 

20 

50 

00 

09 

99 

9f 

7e 

4718 : 98 

88 

9f 

60 

08 

ef 

99 

99 

82 

4510 

: a6 

ac 

b2 

b7 

bd 

c3 

c9 

cf 

71 

4618 

: 60 

08 

00 

01 

ld 

a9 

c4 

20 

Of 

4720 : 9f 

eO 

08 

ff 

88 

e8 

8f 

fO 

21 

4518 

: d5 

db 

el 

e7 

e9 

ec 

f2 

f8 

14 

4620 

: 01 

00 

01 

18 

d7 

ea 

50 

01 

7d 

4728 : 08 

ff 

88 

c8 

88 

80 

08 

6f 

f6 

4520 

: fe 

04 

Oa 

11 

17 

Id 

23 

29 

fe 

4628 

: 00 

01 

ld 

b9 

db 

88 

01 

00 

2d 

4730 : 88 

b9 

9f 

60 

08 

99 

9f 

f9 

48 

4528 

: 2f 

35 

3b 

3d 

43 

49 

4f 

56 

dl 

4630 

: 01 

18 

ed 

4e 

23 

31 

00 

Of 

5c 

4738 : 99 

90 

08 

ff 

9f 

ff 

11 

11 

7c 

4530 

: 5o 

62 

68 

6f 

75 

7b 

82 

88 

14 

4638 

: f2 

4f 

fO 

08 

fa 

aa 

f3 

ef 

c4 

4740 : 9f 

60 

08 

9b 

ae 

cc 

eb 

90 

a7 

4538 

: 8f 

96 

9c 

a3 

a9 

af 

bl 

b7 

fc 

4640 

: 99 

f9 

9f 

e8 

8c 

f5 

55 

f2 

8e 

4748 : 08 

88 

88 

88 

8f 

fO 

08 

8c 

81 

4540 

: be 

45 

45 

45 

45 

45 

45 

45 

b9 

4648 

: 96 

f9 

99 

9f 

60 

08 

90 

99 

fl 

4750 : 77 

fa 

c6 

31 

88 

01 

99 

dd 

cf 

4548 

: 45 

45 

45 

45 

45 

45 

45 

45 

48 

4650 

: 99 

9f 

60 

08 

00 

00 

00 

00 

d2 

4758 : fb 

b9 

90 

08 

6f 

99 

99 

9f 

be 

4550 

: 45 

45 

45 

46 

46 

46 

46 

46 

8e 

4658 

: 00 

08 

ff 

a4 

80 

40 

60 

b6 

ea 

4760 : 60 

08 

ef 

99 

fe 

88 

80 

08 

3a 

4558 

: 46 

46 

46 

46 

46 

46 

46 

46 

58 

4660 

: 80 

00 

00 

40 

52 

bf 

f5 

7f 

e2 

4768 : 67 

a5 

29 

4a 

5e 

78 

cl 

ef 

c6 

4560 

: 46 

46 

46 

46 

46 

46 

46 

46 

60 

4668 

: ea 

50 

01 

77 

eb 

c7 

le 

bf 

9e 

4770 : 99 

fc 

eb 

90 

08 

6f 

9c 

63 

c9 

4568 

: 46 

46 

46 

46 

46 

46 

46 

46 

68 

4670 

: 70 

01 

99 

32 

64 

c9 

90 

08 

f4 

4778 : 9f 

60 

08 

ff 

c8 

42 

10 

84 

31 

4570 

: 46 

46 

46 

46 

46 

46 

46 

46 

70 

4678 

: 67 

a5 

26 

3e 

5e 

68 

01 

eO 

f2 

4780 : 20 

01 

99 

99 

99 

9f 

60 

08 

e2 

4578 

: 46 

46 

46 

46 

46 

46 

46 

46 

78 

4680 

: 10 

6f 

49 

33 

60 

70 

d9 

92 

17 

4788 : 8c 

63 

b5 

29 

c4 

20 

01 

8c 

c3 

4580 

: 46 

47 

47 

47 

47 

47 

47 

47 

7f 

4688 

: 5e 

cO 

60 

01 

16 

ce 

7c 

e6 

16 

4790 : 63 

la 

d7 

ea 

50 

01 

99 

f6 

b5 

4588 

: 47 

47 

47 

47 

47 

47 

47 

47 

88 

4690 

: dl 

00 

00 

20 

00 

08 

4f 

90 

04 

4798 : 66 

f9 

90 

08 

8c 

76 

e2 

10 

48 

4590 

: 47 

47 

47 

47 

47 

47 

47 

47 

90 

4698 

: 80 

00 

01 

00 

05 

e2 

00 

00 

cO 

47a0 : 84 

20 

01 

ff 

32 

64 

cf 

fO 

de 

4598 

: 47 

47 

47 

47 

47 

47 

47 

47 

98 

46a0 

: fO 

00 

00 

08 

01 

90 

11 

32 

cf 

47a8 : 08 

09 

09 

99 

9f 

60 

08 

ff 

c7 

45a0 

: 47 

86 

39 

ef 

fb 

98 

80 

01 

ff 

46a8 

: 64 

c8 

80 

08 

6f 

99 

99 

9f 

fb 

47b0 : 9f 

09 

06 

f9 

9f 

60 

08 

00 

b2 

45a8 

: 00 

Oe 

17 

9f 

70 

08 

88 

8e 

fO 

46b 0 

: 60 

08 

2f 

92 

49 

20 

50 

6f 

e8 

47b8 : 01 

ff 

a9 

4a 

50 

01 

a9 

lc 

58 

45b0 

: f9 

9f 

eO 

08 

00 

06 

f8 

8f 

e5 

46b8 

: 11 

32 

6c 

fO 

08 

6f 

11 

61 

le 

47c0 : a5 

6f 

ff 

88 

01 

ff 

00 

00 

3e 

45b8 

: 60 

08 

11 

17 

f9 

9f 

70 

08 

b2 

46c0 

: lf 

60 

08 

22 

26 

6a 

ff 

20 

4c 










45c0 

: 00 

06 

f9 

f8 

70 

08 

2d 

7e 

5a 

46c8 

: 08 

ff 

88 

e3 

lf 

60 

08 

6f 

62 










45c8 

: 92 

40 

60 

00 

07 

f9 

9f 

71 

34 

46d0 

: 98 

ef 

9f 

60 

08 

ff 

13 

22 

65 

Listing 5. (Schluß) 







Name : 

[z]commodore 


4480 47ca 

45aO 


3d f’7 C3 17 20 

00 

ea 

46dO 

: Of 

37 

80 

7b 

3c 

3e 

cf 

37 

6e 











45a8 

: 07 

83 

7f 

37 

cO 

03 

Oc 

3e 

08 

46d8 

: 80 

ff 

31 

8c 

30 

c3 

00 

7b 

4e 

4480 : 

08 

06 

06 

06 

05 

06 

06 

05 

70 

45bO 

: cf 

3f 

80 

00 

lf 

8c 

61 

eO 

dd 

46e0 

: 3c 

de 

cf 

37 

80 

7b 

3c 

df 

fb 

4488 : 

06 

06 

04 

05 

06 

04 

07 

06 

de 

45b8 

: 00 

30 

df 

cf 

37 

cO 

00 

07 

4a 

46e8 

: Of 

37 

80 

Oc 

30 

01 

80 

de 

ff 

4490 : 

06 

06 

06 

06 

06 

06 

06 

06 

90 

45cO 

: b3 

ff 

07 

80 

01 

d9 

f6 

31 

62 

46fO 

: lc 

c6 

30 

60 

cl 

cO 

00 

Of 

c8 

4498 : 

07 

06 

06 

06 

04 

07 

04 

06 

79 

45c8 

: 80 

00 

07 

f3 

cd 

fO 

fe 

03 

ef 

46f8 

: cO 

fc 

00 

00 

eO 

cl 

83 

18 

91 

44a0 : 

06 

06 

02 

06 

08 

06 

06 

07 

c2 

45dO 

: Oc 

3e 

cf 

3c 

cO 

06 

Oe 

66 

b8 

4700 

: ce 

00 

7b 

30 

c6 

30 

03 

00 

ad 

44 a8 : 

04 

04 

04 

08 

06 

03 

06 

02 

45 

45d8 

: fO 

00 

cO 

31 

8c 

7e 

03 

Oc 

ff 

4708 

: cc 

07 

83 

7f 

37 

cO 

31 

ec 

4l 

44b 0 : 

07 

06 

06 

06 

06 

07 

06 

06 

b9 

45eO 

: 36 

f3 

6c 

cO 

Oe 

66 

66 

fO 

d3 

4710 

: ff 

cf 

3c 

cO 

fb 

3c 

fe 

cf 

5b 

44b 8 : 

06 

06 

06 

02 

03 

06 

06 

06 

08 

45e8 

: 00 

03 

37 

ff 

fa 

fl 

80 

00 

79 

4718 

: 3f 

80 

7b 

3c 

30 

c3 

37 

80 

fd 

44c0 : 

06 

06 

06 

06 

06 

06 

06 

06 

cO 

45fO 

: Of 

b3 

cf 

3c 

cO 

00 

07 

b3 

e4 

4720 

: f3 

6c 

f3 

cf 

6f 

00 

ff 

Oc 

4f 

44c8 : 

06 

06 

04 

06 

06 

06 

07 

06 

4c 

45f8 

: cf 

37 

80 

00 

Of 

b3 

cf 

ec 

2b 

4728 

: 3c 

c3 

Of 

cO 

ff 

Oc 

3c 

c3 

fb 

44dO : 

06 

06 

06 

06 

06 

06 

06 

06 

dO 

4600 

: 30 

00 

07 

f3 

cd 

fO 

c3 

00 

e4 

4730 

: Oc 

00 

7b 

3c 

37 

cf 

37 

80 

73 

44d8 : 

07 

06 

06 

06 

06 

06 

06 

08 

dd 

4608 

: Of 

b3 

c3 

Oc 

00 

00 

07 

fO 

61 

4738 

: cf 

3c 

ff 

cf 

3c 

cO 

f6 

66 

92 

44eO : 

06 

al 

a7 

ad 

b3 

b8 

be 

c4 

de 

4610 

: 78 

3f 

80 

00 

cf 

cc 

30 

cl 

fO 

4740 

: 66 

fO 

3c 

61 

86 

lb 

67 

00 

38 

44e8 : 

c9 

cf 

d5 

d9 

de 

e4 

e8 

ef 

e2 

4618 

: cO 

00 

Oc 

f3 

cf 

37 

cO 

00 

14 

4748 

: cf 

6f 

38 

f3 

6c 

cO 

c3 

Oc 

4f 

44 fO : 

f5 

fb 

01 

07 

Od 

13 

19 

lf 

10 

4620 

: Oc 

f3 

cd 

e3 

00 

00 

03 

le 

5e 

4750 

: 30 

c3 

Of 

cO 

c7 

df 

fe 

bc 

2f 

44f8 : 

25 

2c 

32 

38 

3e 

42 

49 

4d 

7d 

4628 

: bf 

ef 

9b 

00 

00 

Oc 

de 

31 

04 

4758 

: 78 

fl 

80 

cf 

bf 

ff 

df 

3c 

d7 

4500 : 

53 

59 

5f 

61 

67 

6f 

75 

7b 

c3 

4630 

: ec 

cO 

00 

Oc 

f3 

cd 

fi 

bc 

ed 

4760 

: cO 

7b 

3c 

f3 

cf 

37 

80 

fb 

lc 

4508 : 

82 

86 

8a 

8e 

96 

9c 

9f 

a5 

5a 

4638 

: 00 

Of 

c6 

31 

8f 

cO 

fc 

cc 

24 

4768 

: 3c 

fe 

c3 

Oc 

00 

7b 

3c 

f3 

4a 

4510 : 

a7 

ae 

b4 

ba 

cO 

c6 

cd 

d3 

b4 

4640 

: cc 

fO 

fl 

b3 

67 

cc 

d9 

be 

39 

4770 

: cd 

el 

cO 

fb 

3c 

fe 

f3 

6c 

42 

4518 : 

d9 

df 

e5 

eb 

ed 

fO 

f6 

fc 

14 

4648 

: 60 

f3 

33 

33 

fO 

cd 

ec 

f3 

ee 

4778 

: cO 

7b 

3c 

le 

Of 

37 

80 

fc 

6f 

4520 : 

02 

08 

Oe 

14 

la 

20 

26 

2c 

cO 

4650 

: cf 

37 

80 

cc 

Oc 

f3 

cf 

37 

83 

4780 

: c3 

Oc 

30 

c3 

00 

cf 

3c 

f3 

25 

4528 : 

32 

38 

3e 

42 

48 

4e 

54 

5b 

4d 

4658 

: 80 

00 

00 

00 

00 

00 

00 

ff 

d8 

4788 

: cf 

37 

80 

cf 

3c 

f3 

cd 

e3 

6f 

4530 : 

61 

67 

6d 

73 

79 

7f 

85 

8b 

cf 

4660 

: Oc 

cf 

3c 

cO 

00 

00 

00 

66 

48 

4790 

: 00 

c7 

8f 

le 

bf 

fd 

fi 

80 

dO 

4538 : 

91 

98 

9e 

a4 

aa 

bO 

b6 

bc 

d6 

4668 

: 66 

ff 

66 

ff 

66 

66 

00 

31 

63 

4798 

: cf 

37 

8c 

7b 

3c 

cO 

cf 

3c 

17 

4540 : 

c4 

45 

45 

45 

45 

45 

45 

45 

bf 

4670 

: fc 

le 

Of 

e3 

00 

c7 

31 

8c 

d8 

47a0 

: de 

30 

c3 

00 

fc 

31 

8c 

63 

d9 

4548 : 

45 

45 

45 

45 

45 

45 

45 

45 

48 

4678 

: 63 

38 

cO 

79 

99 

e3 

8c 

f9 

35 

47a8 

: Of 

cO 

cc 

Oc 

f3 

cf 

37 

cO 

e8 

4550 : 

45 

45 

46 

46 

46 

46 

46 

46 

ce 

4680 

: 9f 

80 

36 

cO 

00 

00 

36 

cc 

77 

47b0 

: 00 

00 

00 

00 

00 

00 

cc 

07 

f2 

4558 : 

46 

46 

46 

46 

46 

46 

46 

46 

58 

4688 

: c6 

30 

c6 

33 

36 

cO 

00 

66 

b5 

47b8 

: b3 

cf 

37 

80 

00 

00 

00 

ff 

31 

4560 : 

46 

46 

46 

46 

46 

46 

46 

46 

60 

4690 

: 3c 

ff 

3c 

66 

00 

00 

00 

c 3 

2f 

47cO 

: 66 

66 

66 

00 

CC 

c7 

b3 

ff 

cd 

4568 : 

46 

46 

46 

46 

46 

46 

46 

46 

68 

4698 

: 3f 

30 

cO 

00 

00 

00 

de 

00 

9b 

47c8 

: 3c 

cO 

ff 

ff 

ff 

ff 

00 

00 

64 

4570 : 

46 

46 

46 

46 

46 

46 

46 

46 

70 

46a0 

: 00 

3f 

00 

00 

00 

00 

3c 

00 

31 











4578 : 

46 

46 

46 

46 

46 

46 

46 

46 

78 

46a8 

: Oc 

30 

c3 

Oc 

30 

00 

7b 

3d 

aa 











4580 : 

47 

47 

47 

47 

47 

47 

47 

47 

80 

46b0 

: fb 

cf 

37 

80 

30 

c7 

Oc 

30 

43 











4588 : 

47 

47 

47 

47 

47 

47 

47 

47 

88 

46b8 

: cf 

cO 

7b 

30 

c6 

63 

Of 

cO 

11 

Listing 6. 

Die Schrift» 

Commodore« 

4590 : 

47 

47 

47 

47 

47 

47 

47 

47 

90 

46c0 

: 7b 

30 

ce 

Of 

37 

80 

Oc 

38 

01 

geben Sie bitte ebenfalls 




4598 : 

47 

47 

47 

47 

47 

47 

47 

47 

98 

46c 8 

: f6 

6f 

el 

83 

00 

ff 

Of 

83 

a2 

mit dem MSE (Seite 159) ein 
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LISTINGS 


100 

REM OLIVER STILLER 

<154> 

350 CLOSE 1:OPEN 1,8,15,"S:"+NA*(T):CLOSE 


110 

REM 

< 172> 

1 

<064> 

120 

IF L=0 THEN POKE 56,16:CLR:L=1:LOAD "A 


360 PRINT"SPEICHERE NEUES BILD ..." 

<069> 


LLWAND-C000",8,1 

<029> 

370 SYS 49152+3,8, " CBP'+LEFT* (NA* <T)+" C16S 


130 

DIM NA*(144):C3*=CHR* <34) 

<107> 

PACE>",13) 

< 193> 

140 

PRINT"C2D0WNJAMICA WANDLER V1.0/F" 

<145> 

380 NEXT T 

<042> 

150 

PRINT"CDOWNJDIESES PROGRAMM WANDELT AL 


390 END 

<138> 


LE STANDARDC3SPACEJ"; 

<055> 

400 REM 

<208> 

160 

PRINT"BILDER AUF EINER DISK IN DAS AMI 


410 REM DIRECTORY ZEIGEN 

<244> 


CA PAINT”; 

<091 > 

420 REM 

<228> 

170 

PRINT"FORMAT UM." 

<U8> 

430 CLOSE 1:OPEN 1,8,0, "*".-GET#1,A*, A*: PO= 


171 

PRINT"DIE DISKETTE DARF NUR BILDER ENT 


0 

<130> 


HALTEN" 

<026> 

440 PRINT"CDOWNJBILDER DER DISKETTE:" 

< 186 > 

1B0 

PRINT"C2D0WNJBITTE DISK EINLEBEN UND T 


450 FOR T=0 TO 7:BET#1,AS,A*,A*,A*:NEXT 

< 167> 


ASTE DRUECKEN“:WAIT 198,1:GET A* 

<110> 

460 : 

< 182 > 

181 

PRINT"CDOWNJBITTE WARTEN...” 

< 192> 

470 GET#1,A*,A*,A*,A*:IF ST THEN 500 

< 129> 

190 

: 

< 166> 

480 GET#1,X*:IF X*=C3# THEN AN*="":GOTO 51 


200 

FOR T=4096+B000 TO 4096+B999:POKE T,15 


0 

<084> 


2:NEXT 

<099> 

490 IF ST=0 THEN 480 

< 1 46 > 

210 

FOR T=4096+9000 TO 4096+9999:POKE T,10 


500 CLOSE 1:RETURN 

< 117> 


: NEXT 

< 133> 

510 GET#1,Z*:IF Z*OC3* THEN AN*=AN*+Z*: GO 


220 

POKE 4096+10000,0 

<077> 

TO 510 

< 121 > 

230 

: 

<206> 

520 PRINT C3*;AN*;C3*:NA*(PO> =AN*:PO=PO+1 

<218> 

240 

GOSUB 430 

<000> 

530 GET#1,X*:IF X*<>"" AND ST=0 THEN 530 

< 154> 

250 

: 

<226> 

540 GOTO 470 

<096> 

260 

IF PO=0 THEN GOTO 180 

<043> 



270 

: 

<248> 



280 

FOR T=0 TO PO-1 

< 174> 

Listing 7. 


290 

PRINT"CDOWNJLADE BILD:”;C3S;NA*<T> ; C3* 

<069> 


300 

SYS 49152,8,NA*(T) 

<027> 

Wollen Sie Farbbilder in das Amica-Paint-Format 


310 

FOR X=4096+8000 TO 4096+8192:POKE X,15 

< 127> 
<120> 

wandeln, benötigen Sie 


320 

2:NEXT 

PRINT"PACKE BILD ..." 

das Programm »Allwand/F«. Es wird 


330 

SYS 49152+6 

<156> 

mit dem Checksummer 


340 

PRINT"LOESCHE ALTES BILD ..." 

<024 > 

(Seite 159) eingegeben. 



Name 

: allwand.cOOO 


cOOO cOda 

c040 

: 05 aO 01 4c 4c cO 20 7f 

a9 

c090 

: cO 

a9 

00 

20 

7f 

cO 

60 

20 

e9 









c048 

: cO 4c 29 cO 48 a9 c< . 0 

ae 

c098 

: fd 

ae 

20 

9e 

b7 

a9 

00 

aO 

d2 

cOOO 

: 4c b,4 cO 

4c 

c6 

cO 

a9 

10 

99 

c050 

: 7f cO 98 20 7f cO 68 20 

39 

cOaO 

: 00 

20 

ba 

ff 

20 

fd 

ae 

20 

4c 

e008 

: 85 ff a9 

37 

85 

fb 

a9 

40 

3d 

c058 

: 7f cO 88 98 18 65 fe 85 

20 

c0a8 

: 9e 

ad 

20 

a3 

b6 

a6 

22 

a4 

Oc 

cOlO 

: 85 fd a9 

00 

85 

fe 

85 

fc 

5f 

c 060 

: fe 90 c6 e6 ff 4c 29 cO 

bd 

cObO 

: 23 

4c 

bd 

ff 

20 

97 

cO 

a2 

70 

c 018 

: a9 11 85 

fa 

c6 

fa 

aO 

ff 

dl 

c068 

: bl fe e6 fe dO 02 e6 ff 

ea 

c0b8 

: 00 

aO 

10 

a9 

00 

20 

d5 

ff 

9a 

c020 

: bl fa e6 

fa 

c8 

49 

01 

91 

65 

c070 

: a6 ff e4 fb 90 08 a6 fe 

bO 

cOcO 

: 90 

03 

4c 

f9 

eO 

60 

20 

97 

e5 

c028 

: fa aO 00 

20 

68 

cO 

88 

c8 

b7 

c078 

: e4 fa fO 02 bO Oc 60 a2 

88 

c0c8 

: cO 

a6 

fc 

a4 

fd 

a9 

40 

85 

e8 

c030 

: cO ff fO 

05 

dl 

fe 

fO 

f7 

95 

c080 

: 00 81 fc e6 fc dO 02 e6 

89 

cOdO 

: ff 

a9 

00 

85 

fe 

a9 

fe 

4c 

26 

c038 

: c8 cO 03 

bO 

Of 

c9 

c2 

dO 

23 

c088 

: fd 60 68 68 a9 c2 20 7f 

Od 

c0d8 

: d8 

ff 

ff 

ff 

ff 

ff 

00 

00 

bO 


Listing 8. Diese Maschinenroutine wird von Listing 7 nachgeladen. Bitte mit dem MSE (Seite 159) eingeben. 


100 

REM OLIVER STILLER 

< 154> 

320 

SYS 49152+3,8,"CB3"+MID*(NA*(T)+"{16SP 


110 

REM 

< 172> 


ACE>",6,16) 

<076 > 

120 

IF L=0 THEN L=1:LOAD "ALLWAND.C000",8, 


330 

NEXT T 

<248> 


1 

<210> 

340 

END 

<088> 

130 

DIM NA*(144):C3*=CHR*(341 

< 107> 

360 

REM 

<168> 

140 

PRINT"C2D0WNJAMICA WANDLER V1.0" 

<009> 

370 

REM DIRECTORY ZEIGEN 

<204> 

150 

PRINT"CDOWNJDIESES PROGRAMM WANDELT AL 


380 

REM 

<1B8> 


LE KOALAPAINT— 

<159> 

390 

CLOSE 1:OPEN 1,8,0,"*:CORANGEJPIC *":G 


160 

PRINT"BILDER AUF EINER DISK IN DAS AMI 



ET#1,A*,A*:PO=0 

<202> 


CA PAINT"; 

<091 > 

400 

PRINT"CDOWNJBILDER DER DISKETTE:" 

< 146> 

170 

PRINT"FORMAT UM. " 

< 118> 

410 

FOR T=0 TO 7:BET#1,A*,A*,A*,A*:NEXT 

<127> 

180 

PRINT"C2D0WNJBITTE DISK EINLEGEN UND T 


420 

; 

< 142> 


ASTE DRUECKEN":WAIT 19B,1:GET A* 

<110> 

430 

GET#1,A*,A*,A*,A*:IF ST THEN 460 

<028> 

190 

- 

<166> 

440 

6ET#1,X*:IF X*=C3* THEN AN*=”":GOTO 47 


200 

GOSUB 390 

<048> 


0 

<066> 

210 

- 

< 186> 

450 

IF ST=0 THEN 440 

<098> 

220 

IF PO=0 THEN GOTO 180 

<001 > 

460 

CLOSE 1:RETURN 

<077> 

230 

- 

<206> 

470 

GET#1,Z*:IF Z*OC3* THEN AN*=AN*+Z*: GO 


240 

FOR T=0 TO PO-1 

< 132> 


TO 470 

<020> 

250 

PRINT"CDDWNJLADE BILD:";C3*sNA*(T);C3* 

<027> 

480 

PRINT C3*;AN*;C3*:NA*!PO)=AN*:PO=PO+1 

< 176> 

260 

SYS 49152,8,NA*(T) 

<243> 

490 

GET#1,X*:IF X*<>"" AND ST=0 THEN 490 

<051 > 

270 

PRINT"PACKE BILD ..." ' 

<070> 

500 

GOTO 430 

<246> 

280 

SYS 49152+6 

< 106 > 




290 

PRINT"LOESCHE ALTES BILD ..." 

<230> 




300 

CLOSE 1:OPEN 1,8,15,"S:"+NA*(T):CLOSE 

1 

<014> 

Listing 9. »ALLWAND« wandelt Bilder vom Koalapainter 

310 

PRINT"SPEICHERE NEUES BILD ..." 

<019> 

nach Amica-Paint 




5ß 
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LISTINGS 


Name : 

input.maus : 

nee 


cf00 cfe9 

cf00 : 

4c 

60 

cf 

,a2 

0e 

aO 

cf 

8e 

07 

cf08 : 

00 

cl 

8c 

01 

cl 

60 

a6 

el 

aa 

cf 10 : 

a4 

e2 

a9 

aO 

85 

d3 

a9 

c8 

d3 

cf 18 : 

20 

61 

cf 

86 

el 

84 

e2 

08 

8b 

cf20 : 

20 

18 

cO 

ad 

00 

de 

29 

10 

de 

cf28 : 

fO 

25 

28 

a9 

00 

2a 

fO 

18 

2f 

cf 30 : 

ae 

8d 

02 

eO 

04 

90 

02 

85 

19 

cf38 : 

b3 

a6 

b3 

dO 

04 

a6 

ee 

dO 

18 

cf40 : 

02 

85 

fb 

85 

ee 

4c 

31 

ea 

aO 

cf48 : 

85 

b3 

85 

ee 

4c 

31 

ea 

a9 

33 

cf50 : 

01 

85 

c6 

a9 

03 

8d 

77 

02 

79 

cf58 : 

a9 

3f 

85 

cb 

68 

4c 

7e 

ea 

34 

cf60 : 

78 

85 

b2 

86 

bO 

84 

bl 

a9 

61 

cf68 : 

10 

8d 

02 

de 

a2 

08 

20 

bO 

a7 

cf70 : 

cf 

18 

65 

bO 

85 

bO 

a2 

05 

2d 

cf78 : 

20 

bO 

cf 

18 

65 

bl 

20 

a9 

9f 

cf 80 : 

cf 

a8 

c5 

b2 

90 

03 

a4 

b2 

84 

cf88 : 

88 

a5 

bO 

20 

a9 

cf 

aa 

c5 

62 

cf90 : 

d3 

90 

03 

a6 

83 

ca 

a9 

ff 

7b 

cf98 : 

8d 

02 

de 

a9 

7f 

8d 

00 

de 

bl 

cfaO : 

ad 

19 

d4 

c9 

ff 

a9 

01 

58 

4a 

cfa8 : 

60 

c9 

e3 

90 

02 

a9 

00 

60 

26 

cfbO : 

ad 

00 

de 

29 

ef 

8d 

00 

de 

df 

cfb8 : 

20 

e2 

cf 

ad 

00 

de 

Oa 

Oa 

16 

cfcO : 

0a 

0a 

85 

9e 

ad 

00 

de 

09 

65 

efc8 : 

10 

8d 

00 

de 

a2 

05 

20 

e2 

d3 

cfdO : 

cf 

ad 

00 

de 

29 

Of 

05 

9e 

6e 

cfd8 : 

49 

ff 

85 

9e 

a9 

00 

38 

e5 

9d 

cfeO : 

9e 

60 

ea 

ea 

ea 

ca 

dO 

fa 

04 

cfe8 : 

60 

00 

ff 

ff 

ff 

ff 

00 

00 

48 



Listing 10. 

Der Eingabetreiber 

für die NCE-Maus wird mit 

dem MSE (Seite 159) eingegeben. 


Name 

: input.maus 1 ms 


cf00 dOOO 

cf 00 

: 4c 

68 cf 

a2 

18 

aO 

cf 

8e 

ab 

cf 08 

: 00 

cl 8c 

01 

cl 

a2 

e5 

aO 

36 

cf 10 

: cf 

8e 8f 

02 

8c 

90 

02 

60 

61 

cfl8 

: a6 

el a4 

e2 

a9 

aO 

85 

d3 

92 

cf 20 

: a9 

c8 20 

70 

cf 

86 

el 

84 

05 

cf 28 

: e2 

08 20 

18 

cO 

ad 

01 

de 

51 

cf30 

: 4a 

90 25 

28 

a9 

00 

2a 

fO 

36 

cf38 

: 18 

ae 8d 

02 

eO 

04 

90 

02 

bf 

cf40 

: 85 

b3 a6 

b3 

dO 

04 

a6 

ee 

64 

cf48 

: dO 

02 85 

fb 

85 

ee 

4c 

81 

fe 

cf50 

: ea 

85 b3 

85 

ee 

4c 

31 

ea 

86 

cf58 

: a9 

01 85 

c6 

a9 

03 

8d 

77 

94 

cf60 

: 02 

a9 3f 

85 

cb 

4c 

f5 

cf 

4e 

cf 68 

: 78 

48 18 

69 

01 

dO 

fb 

68 

8f 

cf70 

: 85 

b2 86 

bO 

84 

bl 

a9 

ff 

82 

cf 78 

: 8d 

00 de 

ad 

19 

d4 

4a 

4a 

e8 

cf 80 

: a4 

9e 20 

c4 

cf 

84 

9e 

18 

eO 

cf 88 

: 65 

bO 20 

bf 

cf 

aa 

c5 

d3 

56 

cf90 

: 90 

03 a6 

d3 

ca 

ad 

la 

d4 

f 2 

cf 98 

: 4a 

4a a4 

9f 

20 

c4 

cf 

84 

95 

cfaO 

: 9f 

38 49 

ff 

65 

bl 

20 

bf 

91 

cfa8 

: cf 

a8 c5 

b2 

90 

03 

a4 

b2 

ac 

cfbO 

: 88 

ad 01 

de 

49 

ff 

4a 

4a 

3d 

efb8 

: 4a 

4a 4a 

a9 

01 

58 

60 

c9 

d7 

cfcO 

: e3 

bO 3a 

60 

84 

a4 

c9 

ff 

2b 

cfc8 

: fO 

33 85 

a3 

38 

e5 

a4 

29 

bf 

cfdO 

: lf 

c9 10 

bO 

06 

4a 

fO 

25 

af 

cfd8 

: a4 

a3 60 

09 

fO 

c9 

ff 

fO 

c6 

cfeO 

: lc 

dO 16 

ea 

ea 

a9 

ff 

8d 

5e 

cfe8 

: 00 

de ad 

01 

de 

49 

ff 

dO 

9c 

cffO 

: 03 

4c 48 

eb 

68 

68 

4c 

7e 

al 

eff 8 

: ea 

38 6a 

30 

db 

a9 

00 

60 

6b 


S46R onun»»" 



Listing 11 








Besitzen Sie 







eine Commodore-Maus, 




werden Sie sich 







für diesen Treiber interessieren. 


Er kann mit dem MSE 





(Seite 159) eingegeben werden. 



Name 

[w]maus schnell 4000 401a 

4000 

20 12 70 ee d2 00 a9 ea 

cd 

4008 

8d 7e cf 8d 98 cf 8d 7f 

b7 

4010 

cf 8d 99 cf 20 39 a9 4c 

11 

4018 

14 40 bO e9 4a 90 10 Oa 

33 

Listing 12. Der Treiber für die 
niedrige Geschwindigkeit 
der 1351-Maus. 


Bitte geben Sie diese Erweiterung 

mit dem MSE (Seite 159) ein. 



Name : [w]maus normal 4000 401c 


4000 : 20 12 70 ee d2 00 a9 4a 8c 

4008 : 8d 7e cf 8d 98 cf a9 ea fe 

4010 : 8d 7f cf 8d 99 cf 20 39 Od 

4018 : a9 4c 16 40 4a 90 10 Oa f2 

Listing 13. Der Treiber 
für die mittlere 

Geschwindigkeit der 1351-Maus. 
Bitte geben Sie diese Erweiterung 
mit dem MSE (Seite 159) ein. 


Name : [wjmaus langsam 4000 401a 


4000 : 20 12 70 ee d2 00 a9 4a 8c 

4008 : 8d 7e cf 8d 98 cf 8d 7f b7 

4010 : cf 8d 99 cf 20 39 a9 4c 11 

4018 : 14 40 16 40 4a 90 10 Oa 57 

Listing 14. Der Treiber für die 
hohe Original-Geschwindigkeit 
der 1351-Maus. Bitte geben 
Sie diese Erweiterung 
mit dem MSE (Seite 159) ein. 


100 REM EINBABETREIBER INSTALLATIONS <043> 
110 REM PROGRAMM FUER AMICA PAINT <153> 
120 REM <1B2> 
130 REM WEITERE EINGABEGERAETE KOENNEN <162> 
140 REM IN DEN DATA—ZEILEN HINZUGEFUEGT <254> 
150 REM WERDEN <MAX.10> <147> 
155 REM <217> 

157 REM PROGRAMM UEBERARBEITET VON <019> 

158 REM NIKOLAUS HEUSLER 200789 <123> 
170 : <166> 
200 READ ES(DA),Li(DA) <201> 
210 IF E*<DAX>"@@@"THEN DA=DA+l:GOTO 200 <198> 
220 : <196> 
222 PRINT"CCLR,CTRL-H,DOWN}AMICA—PAINT: IN 

STALLATIONSPROGRAMM <089> 
224 PRINT"<13SPACE>FUER EINGABEGERAETE <126> 
226 PRINT"tDOWNJNEUE VERSION VON O.STILLER 

/N.HEUSLER <251> 
228 PRINT" (C) MARKT S< TECHNIK, SONDERHEFT 

45 <041> 
230 PRINT"{DOWNIVERFUEGBARE EINGABEGERAETE 

:fDOWN > <040> 
240 : <216> 
250 FOR T=.TO DA-1 <057> 
260 PRINT" {2SPACEVCHR* (65+T) " - "E*(T> <223> 
270 NEXT <026> 
280 : <002> 
290 PRINT"CDDWNJGEWUENSCHTES GERAET 7C19SP 


ACE > TTTTTTTTTTTTTTTTTTTTT < DOWN > <023> 

300 POKE 198,. <209> 

310 GET A*:IF A*=""THEN 310 <057> 

311 IF ASC(A*)<65 OR ASC(A*> >DA+-64 THEN 31 

0 <123> 

320 PRINT"INSTALLATION LAEUFT. BITTE WARTE 

N...{DOWN1 <140> 

330 OPEN 1,8,15,“10 <033> 

340 PRINT#1,"S0:A.PAINT INPT <235> 

350 PRINT#1,"C0:A.PAINT INPT=INPUT."+LS(AS 

C<A*)-65) <081> 

355 GETttl,A*:PRINT A$;:IF A*<>CHR®(13)THEN 

355 <046> 

360 CLOSE 1:PRINT"<DOWN>FERTIB. <029> 

380 : <102> 

390 DATA JOYSTICK/TASTATUR,STICK <115> 

400 DATA COMMODORE MAUS 1351,MAUS <076> 

410 DATA MAUS 1351 MULTISPEED,MAUS LMS <089> 

420 DATA NCE-MAUS MIT ADAPTER,MAUS NCE <192> 

430 DATA@@@,@@@ <183> 


Listing 15. Die neue Version des Programmes 
»Eingabegeräte« installiert die Treiber 
in den Listings 10 und 11. 

Bitte geben Sie dieses Programm mit dem 

Checksummer (Seite 159) ein, 

und beachten Sie die Hinweise im Artikel. 
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LISTINGS 


JETZT WIRD'S 



Finden Sie Gefallen an kleinen, farbigen Hardco¬ 
pies, und haben Sie etwas Zeit? Holen Sie Ihren 
1520-Plotter aus seiner staubigen Ecke, und ver¬ 
sorgen Sie ihn mit »Kulis« und Papier. 

W enn Sie jetzt unser kleines Programm starten, wer¬ 
den Sie jedes Bild, das Sie im »Koala-Painter«- 
Format auf Diskette gespeichert haben, auf Ihrem 
kleinen Liebling »ausplotten« können. Warten Sie nicht auf 
das Ergebnis - Ihr Plotter ist kein LQ 2500 und braucht sei¬ 
ne Stündchen. 

Sind Sie enttäuscht? Nun, auch mit der Standardausrü¬ 
stung kann eine Hardcopy ganz gut aussehen. Zum Mi¬ 
schen aller erdenklichen Farben auf Papier werden norma¬ 
lerweise Cyan, Gelb, Magenta und Schwarz benötigt. 
Schwarz ist vorhanden, wenn auch mit Graustufen nicht 
sehr viel zu machen ist. Magenta und Cyan lassen sich leid¬ 
lich durch Rot und Blau ersetzen. Aber Gelb? Hier hilft kein 
noch so genialer Trick - gelbe Farbe muß her, wenn die Far¬ 
ben Nummer 7,8 und 9 beim C 64 gemischt werden sollen. 

Will man sich also nicht mit der Notlösung »Hellrot« abfin- 
den, hilft nur der Griff in den Werkzeugkasten. Wenn Sie 
das alles jetzt schon für verrückt halten, oder Sie ohnehin 
keinen Nachmittag opfern wollen, ersparen Sie sich den 
Rest, und wählen Sie im Auswahlmenü nach dem Laden 
des Bildes »1:....« 

Gelbe Farbe - aber wie? 


Aha! Sie wollen also doch einen Gelb-Stift basteln! Dann 
sehen Sie erst einmal nach, ob Sie einen Kuli vom Typ B 
(siehe Bild 1) entbehren können. Wenn nicht, wird es kom- 


Kurzinfo: Col.Hardcop.1520 


Programmart: Hardcopy-Programm für den 1520-Plotter 
Laden: LOAD "COL.HARDCOP.1520",8 
Start: Mit RUN 

Besonderheiten: Plottet alle »Koalas-Bilder in vier verschiedene 
Auflösungen. Nach Erstellung eines Gelb-Stiftes wird auch dieser 
vom Programm unterstützt. 

Programmautor: Lutz Vieweg 


Kurzinfo: Einschreiben 


Programmart: Tool zum Einschreiben der verschiedenen Stifte des 
1520-Plotters 

Laden: LOAD "EINSCHREIBEN",8 
Start: Mit RUN 
Programmautor: Lutz Vieweg 


pliziert. Auch Typ A läßt sich umbauen, doch der Aufwand 
ist ungleich höher. Daher hier die Beschreibung für den 
Umbau von Typ B. 

Trennen Sie mit einer, besser mit zwei feinen Zangen die 
Spitze (also das Plastik-Teil) vom Metall-Körper. Jetzt ste¬ 
hen Sie schon wieder vor einer Entscheidung: Wollen Sie 
einen »Gelb-Kuli« oder einen »Gelb-Filzstift« hersteilen? 
Der Kuli schreibt nachher schön sauber, leider bleibt die 
Farbe oft recht blaß, und die Gefahr des Aussetzens ist 
beim »Kuli« höher. Der »Filzstift« malt ein sattes Gelb und 
läßt sich auch leichter mischen. Dafür schmiert er oft und 
schafft keine sauberen Konturen, seine Farb-Intensität 
kann schwanken. Einen »Kuli« können Sie nachträglich 
recht leicht zu einem »Filzstift« umbauen, vielleicht erleich¬ 
tert Ihnen das die Wahl. 

Wenn Sie sich für einen »Filzstift« entschieden haben, 
müssen Sie nun den Farbtransportfilz aus der Spitze her¬ 
ausziehen, das winzige Kügelchen wird dann schon von al¬ 
leine verschwinden. Wenn Sie diesen Filz von seiner alten 
Farbe gereinigt (am besten mit Alkohol, sonst mit Wasser) 
und getrocknet haben, stecken Sie diesen wieder »vorsich¬ 
tig« in die Spitze, er darf kaum von außen sichtbar sein (lie¬ 
ber probieren und ggf. nachschieben!). Wenn Sie einen 
»Kuli« basteln wollen, lassen Sie den Filz schön in seiner 
Spitze. Es ist etwas schwieriger, den Filz in seiner Spitze 
von der alten Farbe zu befreien (siehe oben), aber mit etwas 
Geduld... 

Jetzt für beide Stift-Sorten: Holen Sie mit einer Pinzette 
den alten Farbspeicher aus der Metallhülse. Ersetzen Sie 
diesen durch einen neuen, den Sie am besten aus dem In¬ 
nenleben eines gelben Filzstiftes oder aber auch aus Watte 
oder ähnlichem hersteilen können (muß die Hülse genau 
ausfüüen). Jetzt ist es an der Zeit, sich gelbe Farbe zu be¬ 
schaffen. Wenn Sie gelbe Tinte bekommen, seien Sie 



glücklich. »Senffarbene« in den handelsüblichen Patronen 
gibt es aber fast überall, sie ist genauso geeignet. Gleich 
ein Trick, der aber nicht sein muß: Sie können Patronen erst 
eine Weile (offen) eintrocknen lassen, die Farbsättigung 
kann dadurch gesteigert werden. Tränken Sie sowohl den 
Vorratsspeicher (in der Metallhülse) als auch den Farb¬ 
transportfilz gut in der gelben Farbe, und fügen Sie die bei¬ 
den Teile wieder zusammen; Ihr Stift sollte nun aussehen 
wie am Anfang, Ihre Hände dürften gelb sein. 

Das Hardcopy-Programm »Col.Hardcop.1520« (Listing 1) 
geben Sie bitte mit dem MSE auf Seite 159 ein. Geladen 
und gestartet wird es wie ein normales Basic-Programm. 
Nach ein paar Sekunden, die das Programm zum Initiali- 
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sieren benötigt, werden Sie aufgefordert, den Namen des 
»Koala«-Bildes einzugeben. Wenn Sie sich nicht sicher 
sind, wie der Name der Grafik lautet, können Sie sich das 
Inhaltsverzeichnis der eingelegten Diskette mit <$> auf 
dem Bildschirm anzeigen lassen. Durch Druck auf eine be¬ 
liebige Taste gelangen Sie wieder in das Eingabemenü. Ist 
das Bild im Speicher des C 64, haben Sie die Qual der Wahl 
unter vier verschiedenen Möglichkeiten, das Bild auf den 
Plotter auszugeben: 

1. den vier üblichen Stiften in 320 x 200 pp (pp=Plotter- 
Punkte) 

2. den vier Stiften + Gelb in 320 x 200 pp 

3. wie oben, jedoch mit gelbem »Filz« 

4. den vier Stiften + Gelb in 400 x 640 pp 

Haben Sie sich für einen der vier Menüpunkte entschie¬ 
den, werden Sie aufgefordert, eine Taste zu drücken. Ihr 
Plotter wird nun sofort mit dem Ausdruck der Hardcopy be¬ 
ginnen. Wie gesagt, haben Sie etwas Geduld, der Plotter 
ist nicht der schnellste. 

Die Basic-Routine »Einschreiben« (Listing 2, bitte mit 
dem Checksummer auf Seite 159 eingeben) wird Ihnen hel¬ 


fen, den Stift zum Schreiben zu bringen, auch hier ist Ge¬ 
duld gefragt. Suchen Sie sich im Menü eine der beiden 
»Einschreib«-Formen aus. Nachdem die ersten vier Stifte 
ihr Werk getan haben, wird man Sie ggf. auffordern, den 
fünften (gelben) einzulegen. Gehen Sie dabei vorsichtig 
vor, um das Papier nicht zu bewegen. Die Stift-Trommel 
wird sich am rechten Anschlag befinden; verwenden Sie 
die Stift-Löse-Taste. 

Hinweis: 

Sollte das Programm ab und zu scheinbar »nichts« tun, 
rührt dies daher, daß eine Farbe lange nicht vorkommt. 

Die große Hardcopy (400 x 640 Plotter-Punkte) ist bisher 
noch nie recht geglückt. Die großen Ungenauigkeiten des 
Plotters haben das Bild verschandelt. Vielleicht haben Sie 
mit Ihrem Plotter mehr Glück!? 

Beim Ausdruck kleiner Hardcopies wird jede Farbe zwei¬ 
mal »geplottet«. Dies ist kein Fehler, sondern der Versuch, 
mehr Farbstufen möglich zu machen. 

So, nun sind Sie hoffentlich gut gerüstet und können Ihre 
geliebten »Koala«-Bilder in Farbe auf Papier bringen. 

(Lutz Vieweg/ag) 
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bl 

69 

09 

el 

cf 

Of 

16 

74 

be 

bb 

b6 

52 

50 

ff 

72 

9d 


10 OPEN 1,6,1:OPEN 8,6,0 

20 PRINT”{CLR,RVSON>F{RVOFF>LAECHE /{SPACE 
,RVSON>E{RVOFFJINSCHREIBEN ?":POKE 198, 
0:WAIT 198,1:GET A$ 

30 IF A*="E"THEN 100 
40 PRINT#8:FOR Z=0 TD 999 STEP 2 
50 PRINT#1,"M";0;-Z:PRINT#1,"D”;479;-Z:PRI 
NT#1,"M”;479;-Z-l:PRINT#1,"D";0;—Z—1:NE 
XT 

60 GOTO 40 

100 PRI NT#8:FOR Z=0 TO 999:FOR X=0 TO 472 
STEP 8 

120 PRINT411, "M" ; X; -Z: PRINTftl, ”D”; X+4; -Z: NE 
XT:NEXT 
130 GOTO 100 


<234> 


<215> 

<209> 

<135> 


< 131 > 
<006> 


<089> 


<154> 

<058> 


Listing 2. 

Diese kleine 
Basic-Routine 
hilft, die Stifte 
des Plotters 
einzuschreiben 
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LISTINGS 


Der Spnte-Grabsdier 

Kein Spiel, kein Programm 
ist mehr sicher vor Ihnen! Mit unserem kleinen 
Hilfsprogramm holen Sie alle Sprites 
aus fremden Programmen und können Sie anschließend selbst 

weiterverwenden. 


Sprite-Grabber Ui.6 
by Themas Kenner 



* 


Block: 192 
Hex: $3060 
Dez: 12288 




E-S 


Bild 1. So erscheint das gesuchte Sprite auf dem Grabber-Bildschirm 

s^eR anunap»»' 


J eder hat wohl schon einmal die eindrucksvollen Bilder 
bestaunt, mit denen viele Spiele aufwarten. Und viele 
von Ihnen haben vielleicht schon öfters den Wunsch 
gehabt, die Sprites auszubauen und in eigenen Program¬ 
men zu verwenden. Natürlich nur zum Spaß und rein privat, 
versteht sich, weitergeben oder gar zu Geld machen dürfen 
Sie diese Programme dann nicht mehr. 

Da das Suchen und Bearbeiten der Grafikdaten mit Hilfe 
eines Monitors recht unkomfortabel und umständlich ist, 
haben wir in letzter Zeit gelegentlich »Grafik-Diebe« veröf¬ 
fentlicht. Oft waren diese allerdings recht lang, weil neben 
den »Sprite-Grabbern« auch noch Funktionen zum »Klau¬ 
en« des Grafik- oder sogar Textbildschirms enthalten wa¬ 
ren, die man aber eigentlich nicht immer benötigt. Und 
dann waren Einsteiger, die die Profi-Sprites nur mal eben 
in ein eigenes Basic-Programm einbauen wollten, mögli¬ 
cherweise überfordert: Die Anzeige der Daten erfolgte im 
hexadezimalen Code, die Ladeadresse des erzeugten Fi¬ 
les war nicht frei wählbar usw. 

Mit unserem Listing »Sprite-Grabber VI .0« werden diese 
beiden Probleme gelöst. Bei der Entwicklung wurde beson¬ 
ders großen Wert auf einfache Bedienung und Kürze ge¬ 
legt. Das Programm ist nur 969 Byte lang! Dafür eignet es 
sich allerdings auch »nur« zum »Entführen« von Sprites. 

Das Programm (Listing 1) geben Sie zunächst mit dem 
MSE ein, Hinweise dazu finden Sie auf Seite 159. Spei¬ 
chern Sie es anschließend auf einer Diskette, auf der noch 
mindestens vier Blocks frei sind. 


So werden Sie zum Bilderdieb 


Nun eine Schritt-für-Schritt-Anleitung, wie aus einem frem¬ 
den Programm Sprites »geklaut« werden: 


1. Laden Sie das Programm, aus dem Sie besonders gra¬ 
fisch interessante Sprites »stehlen« wollen. 

2. Sobald die gewünschten Figuren auf dem Bildschirm 
erscheinen, drücken Sie auf den Reset-Taster. Einen sol¬ 
chen Zusatz sollten Sie in den Computer eingebaut haben, 
der Einbau ist beispielsweise in Ausgabe 8/89 des 64'er 
Magazins beschrieben. Es gibt jedoch auch fertige Reset- 
Taster zu kaufen, die als kleine Platine in den User-Port des 
Rechners gesteckt werden. Dafür müssen Sie allerdings 
um die 10 Mark investieren, eine Ausgabe, die sich aber 
wirklich lohnt. 

Sollte das Spiel einen Reset-Schutz haben und bei ei¬ 
nem Reset neu starten, abstürzen oder den Speicher lö¬ 
schen, können die Sprites auf normalem Wege leider nicht 
entfernt werden. Sie benötigen dann ein spezielles Be¬ 
triebssystem, das eine Funktion beinhaltet, die den Reset- 
Schutz umgeht. Bei den Systemen »Speeddos Plus« und 
»Exos V7« müssen Sie dazu beispielsweise gleichzeitig die 
Tasten < Space > und < Reset > betätigen. Übrigens: Wir 
reden hier immer von »Spiel«. Wie bereits erwähnt: Der 
Grabber kann für alle Arten von Programmen verwendet 
werden, die Vorgehensweise ist identisch. Nur muß es sich 
bei den zu klauenden Kleingrafiken unbedingt um Sprites 
handeln. 

3. Laden Sie nun den Sprite-Grabber durch Eingabe des 
Befehls 


Kurzinfo: Sprite-Grabber VI.0 


Programmart: Tool zum -Klauen« von Sprites, die in eigenen 
Programmen verwendet werden können 
Laden: LOAD "GRABBER",8,8 
Starten: SYS 4096 

Besonderheiten: Ein Reset-Taster wird benötigt 
Programmautor: Thomas Kemmer 
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LOAD"GRABBER", 8,8 

und starten Sie ihn mit 

SYS 4096 

4. Der Bildschirm sollte sich nun schwarz färben. In der 
Mitte sehen Sie das gerade angewählte Sprite in vierfacher 
Ausführung: Single- sowie Multicolor, jeweils in normaler 
Größe und expandiert. Bild 1 zeigt übrigens das Sprite aus 
dem Listing 21 unseres Grafikkurses (Seite 116). Sie kön¬ 
nen den gesamten RAM-Bereich (auch unter den ROMs 
von $A000-$FFFF) nach Sprites durchsuchen. Folgende 
Tastenfunktionen stehen dabei zur Verfügung: 

< Fl > einen Spriteblock (64 Byte) vor 
<F3> einen Spriteblock zurück 
<F5> acht Sprites (512 Byte) vor 

< F7> acht Sprites zurück 

<+> und <-> byteweises Verschieben (Feineinstel¬ 
lung) 

<1> bis <3> Spritefarben ändern 
<S> Sprites auf Diskette speichern 
<X> Programmende (Computer führt einen Reset aus) 

Durchsuchen Sie den Speicher unter Verwendung der 
Funktionstasten, bis Sie etwas finden, das ein Sprite sein 
könnte. Dann drücken Sie die <S>-Taste. Mit den Funk¬ 
tionstasten, < + > und <-> legen Sie nun den zu spei¬ 
chernden Bereich fest und drücken < RETURN>. 

5. Bestimmen Sie auf die gleiche Weise, ab welcher 
Adresse die Sprite-Daten später nach dem Laden im Spei¬ 
cher stehen sollen. Nun müssen Sie nur noch einen Filena¬ 
men (maximal 16 Zeichen) eingeben, und schon werden 
»Ihre« Sprites auf die Diskette geschrieben. Sie sehen, der 
»Sprite-Grabber« ist trotz seiner Kürze sehr einfach und 
trotzdem komfortabel zu bedienen. Auch Einsteiger wer¬ 
den mit diesem Programm keine Probleme haben, da alle 
Werte auch dezimal angegeben werden. 

Wir wollen nicht verschweigen, daß Sie mit dem Grabber 
aus technischen Gründen keine Sprites »grabben« können, 
die in der Zeropage in den Bereichen 11 (ab 704) oder 13 
bis 15 (im Kassettenpuffer, ab Speicherzelle 832) liegen. 
Diese Bereiche werden bei einem Reset nämlich sofort ge¬ 
löscht. Das Grab-Programm steht im Speicher von 4096 bis 
5065. Daraus folgt, daß die 16 Sprites, die in diesem Be¬ 
reich liegen (Sprites 64 bis 79), ebenfalls nicht verfügbar 
sind. 

Programmtechnische 

Daten 


Nun wollen wir auch noch einen Blick hinter die Kulissen 
dieses Tools werfen. Der »Sprite-Grabber VI .0« liegt im 
Speicherbereich von $1000 bis $13C9, einem Bereich, der 
nur sehr selten Grafikdaten enthält. Gewöhnlich befindet 
sich hier der Programmcode des Spieles. Das aktuelle 
Sprite wird immer im Block 13 (im Kassettenpuffer, 
$0340-$037f) zwischengespeichert, damit das Programm 
freien Zugang zu den Betriebssystem-Routinen hat. Aus 
Zeitgründen werden beim Speichern der Spriteblöcke je¬ 
weils 256 Byte in einem Puffer ab $1800 zwischengespei¬ 
chert. Diese können Sie dann alle »in einem Aufwasch« auf 
Diskette schreiben. Die Startadresse, ab der die Sprites ge¬ 
laden werden, ist frei wählbar, so daß man die Daten mit je¬ 
dem beliebigen Sprite-Editor »nachbehandeln« kann. 

Das Programm zum »Grabschen« nach Sprites haben 
Sie von uns. Nun liegt es bei Ihnen, Ausschau nach hüb¬ 
schen Grafiken zu halten und diese aus den Programmen 
herauszuoperieren. Einer großen Sprite-Bibliothek steht 
nichts mehr im Wege! 

(Thomas Kemmer/Nikolaus Heusier/ag) 


Was ist ein Grabber? 


Unter einem »Grabber« (engl, »to grab«, »grabschen«) versteht man 
im Computerbereich ein Hilfsmittel, das es gestattet, bestimmte Teile 
fremder Programme (meistens Spiele) zu isolieren und für eigene Pro¬ 
jekte weiterzuverwenden. Dabei handelt es sich meistens um Grafik, 
also Hires-Bilder, Sprites, Zeichensätze. Es wären aber auch Grabber 
etwa für Musikstücke denkbar. 

Der Grabber macht aus dem »geklauten« Objekt ein Standard-File, 
bei Bildern etwa ein 32 Blocks langes Hi-Eddi-File, das ganz normal 
geladen und weiterverwendet wird. 

Bei Grabbern gibt es zwei verschiedene Arbeitsweisen. Es gibt zum 
einen die »Hardware-Grabber«, sie bestehen aus einer Platine oder ei¬ 
nem Modul, das in den Expansion-Port gesteckt wird. Im abgeschalte¬ 
ten Zustand der Erweiterung arbeitet der Computer ganz normal. Jetzt 
kann beispielsweise ein Spiel geladen und gestartet werden. Wenn 
die gewünschte Grafik am Bildschirm erscheint, dient ein Taster am 
Modul dazu, dieses zu aktivieren. Das Spiel wird gestoppt. Ein im Mo¬ 
dul eingebautes Programm erkennt die Art der Grafiken auf dem Bild¬ 
schirm und erzeugt auf der Diskette automatisch ein File mit den ge- 
Wjfcgphten Grafikdaten. Diese Art des Grabbens hat den Vorteil, daß 
sie sehr anwenderfreundlich und sehr einfach durchzuführen ist. 
Auch haben Sie bei dieser Methode eigentlich höhere Erfolgschan¬ 
cen, da sich zum Zeitpunkt des Grabbens die Grafik ja schon/noch auf 
dem Bildschirm befindet. Grafiken in der Zeropage (etwa Sprites im 
Kassettenpuffer) können nur auf diese Art gegrabbt werden, da etwa 
bei einem Reset, um das Programm zu beenden, die gesamte Zeropa¬ 
ge gelöscht wird. Dabei nullt der Computer auch die Spritebereiche 
aus, und die Grafikdaten gehen verloren. Beim Hardware-Grabber 
entfällt dieses Problem. 

Vorteilhaft ist auch, daß oft nicht nur einzelne Figuren oder Objekte 
gegrabbt werden. Das Modul rechnet vielmehr den gesamten Bild¬ 
schirm, ob er Hires-Grafik oder Text (auch mit verändertem Zeichen¬ 
satz) darstellt, mit oder ohne Sprites, in eine Hires-Grafik um, die dann 
als Hi-Eddi-File gespeichert und sehr leicht weiterverwendet werden 
kann. Gelegentlich werden dabei sogar Raster-Interrupts berücksich¬ 
tigt, oder es erfolgt eine Umrechnung vom Multicolor- ins Hires- 
Format. Einzelne Sprites können so natürlich nicht entführt werden. 
Der entscheidende Nachteil dieser Methode ist aber, daß Zusatzhard¬ 
ware erforderlich ist. Dadurch wird sie viel teurer als die reine Softwa¬ 
relösung. Auch ist es ausgesprochen schwer und erfordert Fach¬ 
kenntnisse, ein solches Programm selbst zu schreiben und in ein Mo¬ 
dul einzubauen. 

Der Grabber, den wir Ihnen anbieten, arbeitet nach einer anderen 
Methode. Er ist eine reine Softwarelösung, also ein einfaches Pro¬ 
gramm, das außer dem Reset-Taster keine zusätzliche Hardware er¬ 
fordert. Das vorher geladene und gestartete Spiel wird durch Druck 
auf einen Reset-Taster abgebrochen. Dabei bleiben fast 97 Prozent 
des Speichers erhalten. Nun kann der Grabber von Diskette geladen 
und aktiviert werden. Er durchsucht nun, nach Vorgaben des Anwen¬ 
ders, den Speicher nach Grafik- oder Spritedaten. Die gefundenen 
Bereiche können wieder direkt gespeichert werden. Dem niedrigeren 
Preis der Software-Lösung steht der Nachteil der komplizierteren Be¬ 
dienung und der etwas geringeren Erfolgschance gegenüber. Außer¬ 
dem können aus den bereits erläuterten Gründen keine Zeropage- 
Sprites gegrabbt werden. Da auch das Grab-Programm einen kleinen 
Speicherbereich für sich selbst belegt, kann es in ganz ungünstigen 
(aber auch sehr unwahrscheinlichen) Fällen passieren, daß Sprites 
vom Programm überschrieben werden. 

Für welche der beiden Methoden man sich letztendlich entscheidet, 
hängt vom Einzelfall ab. Sollten Sie nur Vorhaben, Sprites zu grabben, 
eignet sich unser Programm sehr gut. Da es nur einen sehr kleinen 
Speicherplatz belegt und nach einer besonderen Technik arbeitet, 
kann man es praktisch in 95 Prozent aller Fälle einsetzen. 

(Nikolaus Heusler/ag) 
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LISTINGS 


Name 

grabber 




1000 13c9 

1168 

ff 

88 

10 

f7 

a9 

00 

85 

CC 

f9 

12 e 0 : 

69 

07 

69 

30 

4c 

d2 

ff 

20 

c9 











1170 

85 

c6 

8d 

8a 

02 

8d 

34 

03 

70 

12e8 : 

e4 

ff 

fO 

fb 

8d 

36 

03 

c9 

bl 

1000 

a9 

20 

85 

fc 

a9 

00 

8d 

20 

cb 

1178 

20 

e4 

ff 

fO 

fb 

ac 

34 

03 

24 

12 fO : 

85 

90 

30 

dO 

Oc 

a5 

fb 

18 

f2 

1008 

dO 

85 

fb 

8d 

21 

dO 

a9 

01 

8d 

1180 

c9 

Od 

fO 

21 

c9 

14 

fO 

10 

51 

12f8 : 

69 

40 

85 

fb 

90 

13 

e6 

fc 

99 

1010 

aO 

03 

99 

27 

dO 

88 

10 

fa 

05 

1188 

cO 

08 

fO 

ec 

99 

cO 

13 

ee 

fO 

1300 : 

60 

c9 

86 

fO 

Od 

c9 

87 

fO 

24 

1018 

a9 

02 

8d 

25 

dO 

a9 

06 

8d 

58 

1190 

34 

03 

20 

d2 

ff 

4c 

78 

11 

Of 

1308 : 

15 

c9 

88 

dO 

da 

c6 

fc 

c6 

a3 

1020 

26 

dO 

58 

a9 

01 

8d 

86 

02 

94 

1198 

cO 

00 

fO 

de 

ce 

34 

03 

20 

Ob 

1310 : 

fc 

60 

a5 

fb 

38 

e9 

40 

85 

04 

1028 

20 

44 

e5 

aO 

Oa 

a2 

01 

18 

e2 

llaO 

d2 

ff 

4c 

78 

11 

a9 

01 

85 

01 

1318 : 

fb 

bO 

f6 

c6 

fc 

60 

e6 

fc 

6a 

1030 

20 

fO 

ff 

aO 

14 

b9 

5b 

13 

7f 

lla8 

cc 

a 2 

08 

aO 

01 

20 

ba 

ff 

d7 

1320 : 

e6 

fc 

60 

c9 

2b 

fO 

11 

c9 

e8 

1038 

20 

d2 

ff 

88 

10 

f7 

aO 

Oc 

2e 

llbO 

ad 

34 

03 

18 

69 

08 

a2 

b8 

Oe 

1328 : 

2d 

fO 

04 

8d 

34 

03 

60 

a5 

a8 

1040 

a2 

03 

18 

20 

fO 

ff 

aO 

Of 

le 

llb8 

aO 

13 

20 

bd 

ff 

20 

cO 

ff 

a6 

1330 : 

fb 

dO 

02 

c6 

fc 

c6 

fb 

60 

a3 

1048 

b9 

70 

13 

20 

d2 

ff 

88 

10 

72 

llcO 

a2 

01 

20 

c9 

ff 

a5 

fb 

20 

81 

1338 : 

e6 

fb 

dO 

d5 

e6 

fc 

60 

a5 

2e 

1050 

f7 

a9 

20 

8d 

00 

dO 

8d 

06 

9e 

llc8 

d2 

ff 

a5 

fc 

20 

d2 

ff 

78 

2c 

1340 : 

fd 

85 

fb 

a5 

fe 

85 

fc 

60 

84 

1058 

dO 

a9 

80 

85 

02 

8d 

8a 

02 

88 

lldO 

a9 

35 

85 

01 

aO 

00 

bl 

fd 

62 

1348 : 

a5 

fc 

8d 

35 

03 

a5 

fb 

aO 

04 

1060 

a9 

Od 

aO 

03 

99 

f8 

07 

88 

a7 

lld8 

99 

00 

18 

c8 

dO 

f8 

a9 

37 

7a 

1350 : 

06 

4e 

35 

03 

6a 

88 

dO 

f9 

4d 

1068 

10 

fa 

a9 

5c 

8d 

02 

dO 

a9 

6b 

IleO 

85 

01 

ad 

3e 

03 

38 

e5 

fd 

9e 

1358 : 

85 

02 

60 

Oe 

30 

2e 

31 

d6 

9f 

1070 

fc 

8d 

04 

dO 

a9 

71 

8d 

01 

ac 

lle8 

aa 

ad 

3f 

03 

e5 

fe 

fO 

Oe 

cf 

1360 : 

20 

20 

52 

45 

42 

42 

41 

52 

ad 

1078 

dO 

8d 

07 

dO 

a9 

7b 

8d 

03 

9d 

llfO 

b9 

00 

18 

20 

d2 

ff 

c8 

dO 

a5 

1368 : 

c7 

2d 

45 

54 

49 

52 

50 

d3 

b2 

1080 

dO 

8d 

05 

dO 

a9 

09 

8d 

ld 

c6 

llf8 

f7 

e6 

fe 

4c 

cf 

11 

b9 

00 

18 

1370 : 

52 

45 

4d 

4d 

45 

cb 

20 

53 

3c 

1088 

dO 

8d 

17 

dO 

a9 

08 

8d 

10 

30 

1200 

18 

20 

d2 

ff 

c8 

ca 

dO 

f6 

fl 

1378 : 

4l 

4d 

4f 

48 

d4 

20 

59 

42 

75 

1090 

dO 

a9 

Oc 

8d 

lc 

dO 

a9 

Of 

f7 

1208 

a9 

01 

20 

c3 

ff 

20 

CC 

ff 

e6 

1380 : 

20 

3a 

4b 

43 

4f 

4c 

c2 

24 

a3 

1098 

8d 

15 

dO 

20 

16 

12 

20 

e7 

2a 

1210 

20 

3f 

13 

4c 

22 

10 

78 

a9 

f6 

1388 : 

20 

3a 

58 

45 

c8 

20 

3a 

5a 

af 

lOaO 

12 

ad 

36 

03 

c9 

31 

90 

f3 

c7 

1218 

35 

85 

01 

aO 

3e 

bl 

fb 

99 

f9 

1390 : 

45 

c4 

53 

4b 

43 

4f 

4c 

c2 

db 

10a8 

c9 

58 

dO 

03 

20 

e2 

fc 

c9 

d2 

1220 

40 

03 

88 

10 

f8 

a9 

37 

85 

cb 

1398 : 

2d 

45 

54 

49 

52 

50 

d3 

20 

dd 

lObO 

34 

bO 

17 

38 

e9 

31 

aa 

dO 

7e 

1228 

01 

58 

20 

48 

13 

a2 

09 

aO 

12 

13a0 : 

45 

56 

41 

d3 

Od 

Of 

12 

46 

f9 

10b8 

Ob 

a2 

03 

fe 

27 

dO 

ca 

10 

f9 

1230 

Of 

4c 

34 

12 

8c 

34 

03 

18 

5b 

13 a8 : 

53 

14 

01 

12 

14 

3a 

20 

3a 

90 

lOcO 

fa 

4c 

9e 

10 

fe 

24 

dO 

4c 

77 

1238 

20 

fO 

ff 

aO 

06 

b9 

80 

13 

3b 

13b 0 : 

45 

4d 

41 

4e 

45 

4c 

49 

c6 

lf 

10c8 

9e 

10 

c9 

53 

dO 

cd 

a2 

Oe 

6d 

1240 

20 

d2 

ff 

88 

10 

f7 

a6 

02 

3a 

13b8 : 

47 

52 

41 

42 

42 

45 

44 

2d 

7b 

lOdO 

aO 

Ob 

18 

20 

fO 

ff 

aO 

11 

b4 

1248 

eO 

64 

bO 

Oe 

a9 

30 

20 

d2 

8a 

13cO : 

20 

20 

20 

20 

20 

20 

20 

20 

cO 

10d8 

b9 

92 

13 

20 

d2 

ff 

a9 

2d 

dl 

1250 

ff 

eO 

Oa 

bO 

05 

a9 

30 

20 

f7 

13c8 : 

00 

fc 

al 

fd 

21 

fd 

21 

fd 

fl 

lOeO 

99 

63 

06 

88 

10 

f2 

aO 

07 

e7 

1258 

d2 

ff 

a9 

00 

20 

cd 

bd 

20 

3c 











10e8 

a2 

11 

20 

34 

12 

a5 

fb 

85 

eb 

1260 

cl 

12 

aO 

05 

b9 

87 

13 

20 

57 

Listing 1. 

Bitte geben 

Sie 

den 


lOfO 

fd 

a5 

fc 

85 

fe 

a9 

14 

8d 

58 

1268 

d2 

ff 

88 

10 

f7 

a5 

fc 

20 

3f 

■>Sprite-Klau« 








10f8 

bb 

06 

a9 

Of 

8d 

bc 

06 

dO 

7b 

1270 

cd 

12 

a5 

fb 

20 

cd 

12 

20 

28 

mit dem MSE 

(Seite 159) ein 



1100 

14 

20 

e7 

12 

a5 

fe 

c5 

fc 

c4 

1278 

cl 

12 

aO 

04 

b9 

8d 

13 

20 

80 











1108 

90 

Ob 

dO 

06 

a5 

fb 

c5 

fd 

60 

1280 

d3 ff 88 

10 f7 a6 - 

a4 

64 











1110 

bO 

03 

20 

3f 

13 

20 

16 

12 

el 

1288 

fc 

cO 

00 

dO 

12 

eO 

Oa 

bO 

bO 











1118 

a2 

11 

aO 

17 

20 

34 

12 

ad 

95 

1290 

05 

a9 

20 

20 

d2 

ff 

eO 

64 

ef 











1120 

36 

03 

c9 

Od 

dO 

db 

a5 

fb 

66 

1298 

bO 

05 

a9 

20 

20 

d2 

ff 

cO 

53 











1128 

18 

69 

3f 

8d 

3e 

03 

a5 

fc 

03 

12 aO 

03 

90 

06 

dO 

09 

eO 

e8 

bO 

24 







1 

1 

J 1 


1130 

8d 

3f 

03 

aO 

05 

b9 

a8 

13 

19 

12 a8 

05 

a9 

20 

20 

d2 

ff 

cO 

27 

Oc 











1138 

99 

48 

07 

88 

10 

f7 

20 

3f 

88 

12b 0 

90 

06 

dO 

09 

eO 

10 

bO 

05 

f4 


l j- 





*■* 



1140 

13 

a9 

00 

85 

c6 

20 

48 

13 

8d 

12b 8 

a9 

20 

20 

d2 

ff 

98 

4c 

cd 

65 










1148 

a2 

15 

aO 

07 

20 

34 

12 

20 

aa 

12cO 

bd 

38 

20 

fO 

ff 

e8 

ac 

34 

22 











1150 

e7 

12 

ad 

36 

03 

c9 

Od 

dO 

c7 

12c8 

03 

18 

4c 

fO 

ff 

48 

4a 

4a 

08 











1158 

ec 

a2 

15 

aO 

13 

18 

20 

fO 

43 

12d0 

4a 

4a 

20 

db 

12 

68 

29 

Of 

ea 











1160 

ff 

aO 

09 

b9 

ae 

13 

20 

d2 

d2 

12d8 

4c 

db 

12 

c9 

Oa 

90 

03 

18 

31 
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Mit unserer Anwendung »verstehen» sich jetzt 
auch die unterschiedlichsten Grafikprogramme. 
Das Konvertieren wird zum Kinderspiel! 

G rafik-Convert ist eine Softwareschnittstelle zwischen 
Printshop-, Printmaster-, Starpainter-, Newsroom- 
und Standardgrafiken. Mit diesem Programm sind 
Sie ab sofort in der Lage, die in Tabelle 1 aufgeführten Gra¬ 
fikformate zu laden und als anderes Format aus der Tabelle 
wieder zu speichern. 

Eine der Stärken des Programms ist das beliebige Posi¬ 
tionieren kleiner Grafiken auf dem Hires-Bildschirm. So 
können beispielsweise kleinere Bilderder Newsroom »Clip- 
art«-Disk (müssen vorher mit Newsroom als »Photo« ge¬ 
speichert werden) in ein Banner oder Kalender des Print¬ 
masters eingearbeitet werden. 

Die zeitkritischen Funktionen sind in reiner Maschinen¬ 
sprache geschrieben, wodurch das Programm einerseits 


Art der Datei 

Filename 

Bemerkungen 

Newsroom-Photo 

PH.xxxxxx 


Newsroom-Banner 

BN,xxxxxx 


Printshop-Grafik 

xxxxxx 

(Länge: 2 Blocks) 

Printmaster-Grafik 

xxxxxx.GRA 

(Länge: 3 Blocks) 

Standard-Grafik 

XXXXXX 

(es werden nie mehr als 33 
Blöcke von Disk geladen) 

Starpainter-HRG 

xxxxxx.GR 

(Filename muß 16 Zeichen 
lang sein) 


Tabelle 1. Diese Grafikformate werden verarbeitet 


sehr komfortabel zu bedienen ist und andererseits die er¬ 
forderlichen Datenumwandlungen sehr schnell sind. 

Bitte geben Sie zunächst die vier Teile des Listings ein. 
Listing 1 und 2 stellen das Lade- und Hauptprogramm dar, 
bitte mit dem Checksummer eingeben. Die Listings 3 und 
4 sind die dazugehörenden Maschinenprogramme und mit 
dem MSE einzugeben. Jetzt sollten die Programme unter 
folgenden Namen auf der Diskette stehen: 

Listing 1 (Ladeprogramm): Grafik-Convert 

Listing 2 (Hauptprogramm): PM-MAIN 

Listing 3 (Maschinenprogramm): PM-OBJ 

Listing 4 (Sprites): PM-SPRITE 

Listing 1 erzeugt ein kleines Maschinenprogramm im 
Kassettenpuffer, welches ein einfaches Nachladen von Dis¬ 
kette ermöglicht, ohne wichtige Programmzeiger in der 
Zeropage zu verändern. Dieses Ladeprogramm muß im¬ 
mer als erstes geladen und mit RUN gestartet werden, um 
Grafik-Convert 64 zu aktivieren. Der wichtigste Teil von 
Grafik-Convert ist das Maschinenprogramm PM-OBJ. Es 
steht ab $8000 (32768) im Speicher und beinhaltet alle 
wichtigen Routinen. In PM-SPRITES sind vier Sprites ge¬ 
speichert, welche die Größe des verschiebbaren Auswahl¬ 
fensters auf dem Bildschirm zeigen. 

Die Bedienung des Programms ist recht einfach. Sie wer¬ 
den ständig von Menüs, Fragen und Anweisungen beglei¬ 
tet. Geladen wird mit 

LOAD "GRAFIK-CONVERT",8 (RETURN) 
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und gestartet mit RUN. Nun erscheint auf dem Bildschirm 
die Meldung, die in Bild 1 zu sehen ist. Nach dem Laden be¬ 
finden Sie sich im Hauptmenü, welches die Punkte in Bild 
2 umfaßt, auf die wir hier ein wenig näher eingehen wollen. 

Mit der entsprechenden Taste (<1 > bis <7>) wird die 
gewünschte Funktion aufgerufen. 

<1 > Load Picture 

Es erscheint das Menü in Bild 3. Sie können nun das ent¬ 
sprechende Grafikformat wählen und werden anschlie¬ 
ßend aufgefordert, eine Datendiskette einzulegen, auf der 
sich die zu ladenden Dateien befinden müssen. Findet das 
Programm keine entsprechenden Files, wird wieder in das 
Hauptmenü verzweigt. Haben Sie als Format die Standard¬ 
grafik gewählt, so wird die Grafik unmittelbar nach Bestäti¬ 
gung durch <Y > in den Speicher geladen. Bei allen ande¬ 
ren Formaten ist die Möglichkeit gegeben, die Grafik vor 
dem Laden mit den Cursorsteuertasten zu positionieren. 
Bei den Formaten »Printshop« und »Printmaster« lassen 
sich bis zu 28 Files aus dem Inhaltsverzeichnis der Diskette 
auswählen. Ein Abbruch vor dem Ende des Directory ist mit 
der Taste <X> jederzeit möglich. Bei beiden Formaten 
wird vor dem Positionieren der Grafik angezeigt, welches 
File als nächstes geladen wird. Mit der Taste <N> können 
auch versehentlich ausgewählte Grafiken übersprungen 
werden. 

Nach der Positionierung der Grafik kann diese durch Be¬ 
tätigen der RETURN-Taste normal oder durch <SHIFT- 


RETURN> invers geladen werden. Damit die Bilder auf 
dem Bildschirm so aussehen, wie sie im jeweiligen Pro¬ 
gramm dargestellt werden, müssen Printmaster- und Print¬ 
shop-Grafiken mit <SHIFT-RETURN>, alle anderen da¬ 
gegen nur mit < RETURN > bestätigt werden. Nachdem 
das File geladen wurde, kann der Ausschnitt neu positio¬ 
niert werden. Es läßt sich dieselbe Grafik also mehrmals la¬ 
den (außer Standard). Mit <N> wird das nächste File gela¬ 
den (nur Printshop und Printmaster). 

Mit <X> gelangt man in den »View«-Mode (dies erfolgt 
auch, wenn Sie das nächste Printshop- oder Printmaster- 
Bild laden wollen, obwohl schon alle ausgewählten Bilder 
geladen wurden). Durch nochmaliges Betätigen der Taste 
<X> wird wieder das Hauptmenü gezeigt. 

<2> Save Picture 

Auch diese Funktion zeigt ein Menü zur Auswahl des 
Bildformates. Nachdem das gewünschte Format ausge- 



DiskconMand: Device 


Source *1 8 


E1J.... Scratch File(s) 

E2]....Renane File(s) 

E33....Validate Disk 8 
[4]....Fornat Datadisk 8 
[51....Catalog Disk 8 
E63....Change Source/Dest. 

Cxl.... 14ain Menu 


Bild 1. Während des Ladens sehen Sie diese Meldung 


Photonaker 4.8 <W> bv J.Reinert 

====================================== 


E13 . 

...Load 

Piciure 

E 2 ] . 

...Save 

Piciure 

E 3 ] . 

...View 

Piciure 

E4] . 

...Source Disk 8 

ES] . 

...Dest 

- Disk 8 

E 6 1 . 

...Disk- 

-Connand 

E 7 ] . 

...Exit 

io basic 


Bild 2. Das Hauptmenü von Grafik-Convert 64 


Photonaker 4.0 Mode: Load 


EU . . 

.Printshop 

E 21 . . 

.NewsrooM Photo 

E33 . . 

.Newsroon Banner 

E 41 . . 

.Prininasier 

ES] . . 

.Standard 

E 6 ] . . 

. Starpainter 

Ex] . . 

.Main Menu 


Bild 3. Die verschiedenen Grafikformate 


Bild 4. Diese Funktionen bietet das Disk-Menü 

wählt wird die komplette Grafik auf dem Bildschirm ge¬ 
zeigt. Haben Sie das Format »Standard« gewählt, wird 
durch Betätigen einer Taste der Name des Bildes erfragt 
und die Grafik unter diesem Namen auf Diskette gespei¬ 
chert. Für alle anderen Formate können Sie den zu spei¬ 
chernden Ausschnitt vorher mit den Cursortasten auswäh¬ 
len. Ein Newsroom-Foto oder Starpainter-Bild kann zusätz¬ 
lich mit den Tasten <F1 > bis <F4> in der Größe verän¬ 
dert werden. Zum Speichern wird wieder < RETURN > 
oder < SHIFT-RETURN > (normal/invers) betätigt. Um 
später auf dem Druckereinen hellen Punkt des Bildschirms 
als Punkt zu sehen, werden Printshop- und Printmaster- 
Grafiken mit < SHIFT-RETURN >, alle anderen Formate 
nur mit < RETURN > bestätigt. 

<3> View Picture 

Die Grafik wird gezeigt, der gesamte Bildschirm kann mit 
<l> invertiert oder mit <SHIFT-CLR/HOME> gelöscht 
werden. Durch Drücken der Taste <W> erscheint ein Fen¬ 
ster, welches sich mit den Cursortasten verschieben und 
mit den Funktionstasten <F1 > bis <F4> vergrößern oder 
verkleinern läßt. Die Befehle <l> und <SHIFT-CLR/ 
HOME> beziehen sich jetzt nur auf die Größe des Fen¬ 
sters. Durch nochmaliges Drücken von <W> kommen Sie 
wieder in den normalen View-Mode. Mit <X> können Sie 
in das Hauptmenü zurückkehren. 


Kurzinfo: Grafik-Convert 64 


Programmart: Tool zur Konvertierung unterschiedlicher 
Grafikformate 

Laden: LOAD •GRAFIK-CONVERT-,8 
Start: Mit RUN 

Besonderheiten: Beliebiges Positionieren kleinerer Grafiken auf 
dem Hires-Bildschirm. Alle gängigen Formate, wie Printshop, 
Printmaster, Starpainter oder Newsroom werden erkannt. 
Programmautor: Jürgen Reinert 


SONDERHEFT 45 


67 





















LISTINGS 



Name und ID müssen, durch ein Komma getrennt, einge¬ 
geben werden, beispielsweise DATADISK,64. Anschlie¬ 
ßend erfolgt die obligatorische Sicherheitsabfrage. Vor¬ 
sicht: Alle eventuell auf der Diskette vorhandenen Dateien 
sind nach dem Formatieren gelöscht! 

Punkt 5: Catalog Disk 

Das Inhaltsverzeichnis (Directory oder Catalog) einer 
Diskette wird gezeigt. Durch Betätigen einer Taste läßt sich 
die Anzeige stoppen. Mit <X> können Sie jetzt die Funk¬ 
tion abbrechen, mit einer anderen Taste wird weitergelistet. 
Punkt 6: Change Source/Dest. 

Wenn im Hauptmenü zwei Laufwerke eingestellt wurden 
(siehe Punkt 4 und 5), sind Sie in der Lage, hiermit die Be¬ 
fehle auf das jeweils andere Laufwerk umzuieiten. Die ak¬ 
tuelle Laufwerksnummer erscheint in der Kopfzeile. 

Punkt 7: X 


Bild 5. Hi-Eddi und Printmaster gemischt 
<4> Source Disk 

Diese Funktion schaltet die Geräteadresse bei Verwen¬ 
dung von zwei Laufwerken zwischen 8 auf 9 um. Das 
Source-Laufwerk (Source = Quelle) ist das Laufwerk, von 
welchem die Grafiken und »Fotos« geladen werden. 

<5> Destination Disk 

Analog zu Punkt 4 wird hiermit das Laufwerk, auf wel¬ 
ches gespeichert werden soll, ausgewählt (Destination = 
Ziel). 

<6> Disk-Command 

Mit dieser Funktion gelangen Sie in das Disk-Menü (Bild 
4). Hier haben Sie die Möglichkeit, Dateien auf einer Disket¬ 
te komfortabel zu löschen oder umzubenennen. Weiterhin 
können Sie eine Diskette formatieren, einen Validate aus¬ 
führen oder das Directory der Diskette einsehen. 

Punkt 1: Scratch 

Diskette in das geforderte Laufwerk einlegen und Taste 
drücken. Nun sind alle Files auszuwählen, welche auf der 
Diskette gelöscht (geSCRATCHt) werden sollen. Vorzeiti- 



Bild 6. Der »überlagerte« Printfox 


ges Abbrechen der Auswahl erfolgt mit <X>. Nach der 
Sicherheitsabfrage werden alle mit <Y> bestätigten Files 
gelöscht. 

Punkt 2: Rename 

Nach Einlegen der Diskette eine Taste drücken, alle Fi¬ 
les, welche umbenannt werden sollen, durch Drücken von 
<Y> kennzeichnen. Anschließend werden die Files der 
Reihe nach umbenannt. 

Punkt 3: Validate 

Eine Diskette wird »aufgeräumt«, nicht geschlossene Da¬ 
teien beseitigt, nicht belegter Speicherplatz freigegeben. 
Punkt 4: Format Datadisk 


Es erfolgt ein Rücksprung in das Hauptmenü. 

Soviel also zum Disk-Command-Menü. Kommen wir jetzt 
noch zu ein paar wichtigen Hinweisen. In das Programm 
wurden viele kleine, aber äußerst nützliche Routinen einge¬ 
arbeitet, die den Umgang damit sehr erleichtern. 

Das Programm läßt sich zu fast jedem Zeitpunkt abbre¬ 
chen. Es wird dann automatisch in das Hauptmenü ver¬ 
zweigt. Dies geschieht auch, wenn bei einer Namenseinga¬ 
be (Filename) nur die < RETURN >-Taste gedrückt wird. 

Der gezeigte Ausschnitt eines Fensters (bei LOAD, SAVE 
und VIEW) ist so groß wie der gesamte Kasten, d.h. die 
Strichbreite der Sprites zählen mit zum Ausschnitt. Sobald 



Bild 7. Eine Co-Produktion von drei Grafikprogrammen 


das Fenster erscheint, kann es verschoben, bei einigen 
Funktionen auch in der Größe verändert werden. Dies er¬ 
folgt mit einer Schrittweite von 8 Pixel (Bildpunkten). Um 
das Fenster auch fein positionieren zu können, dient die Ta¬ 
ste <S> (Steps). Mit ihr wird die Schrittweite zwischen 8 
und 1 Pixöl umgeschaltet (dies gilt nicht für Starpainter- 
Grafiken)., Bei Erreichen des Bildschirmrandes wird das 
Fenster automatisch an den Bildschirmrand gesetzt, und 
zwar unabhängig davon, ob als Schrittweite 8 oder 1 Pixel 
gewählt wurde. 

Wenn eine Starpainter-Grafik geladen werden soll, so ist 
zu berücksichtigen, daß diese nicht geladen wird, wenn sie 
den Bildschirmrand überschreitet. 

Zu bemerken ist auch noch, daß im Directory eventuell 
vorhandene Steuerzeichen automatisch durch Fragezei¬ 
chen ersetzt werden. 

Eine mögliche Anwendung von Grafik-Convert 64 ist das 
Verschieben eigener Grafiken in einem Newsroom-Foto: 
Foto nur mit < RETURN > laden, zu verschiebenden Aus¬ 
schnitt speichern, Einsprung in die View-Funktion, zu ver¬ 
schiebenden Ausschnitt löschen, invertieren, und gespei¬ 
cherten Ausschnitt an die neue Position laden — fertig! 
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Einen Eindruck der Leistungsfähigkeit von Grafik- 
Convert 64 sehen Sie in den Bildern 5 bis 7. Bild 5 zeigt ein 
Demo-Bild von Hi-Eddi+, welches von diversen Print- 
master-Grafiken überlagert wird. In Bild 6 sehen Sie das La¬ 
debild des Printfox, ebenfalls von kleinen und teilweise in¬ 
vertierten Grafikminiaturen überlagert. Bild 7 ist eine mit 


Grafik-Convert bearbeitete und mit dem Printfox beschrifte¬ 
te Hi-Eddi-Grafik. Ihrer Kreativität sind (fast) keine Grenzen 
mehr gesetzt. 

Wenn Sie häufig mit verschiedenen Programmen arbei¬ 
ten, werden Sie auf Grafik-Convert bereits nach kurzer Zeit 
nicht mehr verzichten wollen! (Jürgen Reinert/ag) 


10 

POKE 53280,0:POKE 53281 , 0:PRINT"<CLR,WH 


100 

DATA 000,076,213,255,166,043,164,044 

<0637 


ITE , CTRL-H , CTRL-N , 6D0WN >" 

<1757 

110 

DATA 169,000.032,213,255,134,045,132 

<115) 

20 

POKE 55,0:POKE 56,128:CLR 

<118> 

120 

DATA 046,032,089,166,032,051,165,169 

<2197 

30 

POKE 650,128:L0=828: 1=0 

<239> 

130 

DATA 000,032,144,255,032,142,166,076 

<1667 

40 

PRINT"I5SPACE , RVSON , 30SPACE >" 

<004> 

140 

DATA 174,167,-1 

<1437 

50 

PRINT"C5SPACE , RVSON , SPACE>£HOTOMAKER 64 


150 

PRINT"<2D0WN , 65PACE>£LEASE HAIT WHILE 



<4SPACE>££RSI0N 4.0 " 

<026> 


HDADING. .. 

<066, 

60 

PRINT"{5SPACE , RVSON , SPACE} (Ul BY C2SPACE 


160 

SYS 828"PM-0BJ",8,1 

<072) 


>2. SEI NERT C2SPACE>/I2SPACE>£EHRTE " 

< 008 > 

170 

SYS 828"PM-SPRITE".,8,1 

<0087 

70 

PRINT"L5SPACE , RVSON , 30SPACE)" 

<034> 

180 

SYS 828"PM-MAIN" , 8 

<2267 

80 

READ A:IF A< 7-1 THEN POKE LO+I,A:1 = 1 + 1: 






GOTO 80 

< 127> 




90 

DATA 032,212,225,165,185,240,005,169 

< 167> 

Listing 1. Das Ladeprogramm erledigt alles weitere 


10 DIM DI*(30):ES=32768:SYS ES+51 <1707 
20 XA=23:YA=23:SD=8:DD=8:LD=8:SP=B <1297 
30 REM MENUE <2187 
40 EOSUB 270:SYS ES+3 <1157 
50 PRINT"<CLR>";:SYS ES+6 <062> 
60 PRINT"{4SPACE)£H0T0MAKER 4.0{2SPACE> (H> 

BY 2.. ILE INERT" <1997 
70 SYS ES+6 <0017 
80 PRINT TAB (8) ; " -C3D0WNICH_1,0AD £ICTUR 

E <220> 


90 PRINT TAB 18);"{DOWNJ121_SAVE £ICTURE <060> 

100 PRINT TAB(8);"<D0WN>E33_£IEW £ICTUR 

E 

110 PRINT TAB(8): "{D0WNK4I_SOURCE JJISK 

"; SD 

120 PRINT TAB(8);"IDOWNJ £51_£EST.- SISK 

"; DD 

130 PRINT TAB(8);"IDOWNJ16 3_£ISK-£OMMAN 

D 

140 PRINT TAB(8);"<2D0WN>C7J_SXIT TO BA 

SIC 

150 GET X*:ON VAL(X*)GOTO 1070,1610,2150,1 
000,1020,2230., 1040 
160 GOTO 150 

170 BL=PEEK(214)—1:IF BL<0 THEN BL=0 
180 POKE 214,BL:POKE 7B1.BL:SYS 59903:RETU 
RN 

190 GET#2,X*:IF X*=""THEN X*=CHR*(0> 

200 XX=ASC(X*) .-RETURN 

210 GOSUB 170: PR INT ".INSERT SOURCEDISK INTO 
.BRIVE"SD:GOTO 240 

220 GOSUB 170:PRINT"1NSERT £EST.-£ISK INTO 
SRIVE"DD:GOTO 240 

230 GOSUB 170: PR INT ".INSERT SISK INTO SRI VE 

"SED <067.' 

240 GOSUB 260:IF XX=88 THEN 730 <019, 

250 GOSUB 170:PRINT TABI10)"- :RETURN <0067 

260 POKE 198,0:WAIT 198,1:GET X*:XX=ASC(X* 

>:RETURN <125> 

270 POKE 53248+21,0:RETURN <217> 

280 OPEN 15,LD,15,"10":GOSUB 690 <082; 

290 OPEN 2,LD,2,"#":GOSUB 690:PRINT"SA." <074> 

300 T=18:S=1:N=0 <0047 

310 PRINT#15,"Ul:";2;0;TsS:PRINT#15,"B-P"; 

2;0 <030) 

320 GOSUB 190:T=XX:GOSUB 190:S=XX <0597 

330 FOR X=0 TO 7:PRINT#15,"B-P";2;X#32+2 <239> 

340 GOSUB 190:FT=XX <0597 

350 IF(FT AND 128)=0 OR(FT AND 15>=0 THEN 

580 <173> 

370 FT=FT AND 7 <069,' 

380 PRINT#15,"B-P":2;X*32+5 <248> 

390 SYS ES+57,FF* <144> 

400 PRINT#15,"B—P";2;X+32+30 <2557 

410 GOSUB 190:LB=ASC<X*):GOSUB 190:BL=ASC< 

X*> »256+LB <121> 

420 PRINT BL;TAB(7);FF*;TAB(25>; <211> 


430 PRINT MID* <"SEQPRGUSRREL", (FT—1)*3+1,3 

’ <2537 

440 GET X*:IF M=8 THEN 510 <149> 

450 IF(M=1 AND BL=2)0R M=2 THEN 510 <234> 

460 IF M=3 AND LEFT*<FF*,3>="PH."THEN 510 <126> 

470 IF M=5 AND LEFT*(FF*,3)="BN."THEN 510 <196> 

480 IF M=6 AND RIGHT*(FF*,4)=".GRA"THEN 51 

0 <172> 

490 IF M=7 AND RIGHT*(FF*,3)=".GR"AND LEN( 


FF*)=16 THEN 510 <024> 

500 GOTO 580 <078> 

510 PRINT"<UP>";TAB(33)" £/K " <007> 

C 520 :oo.'UB 260: IF XX=88 THEN 620 < 111 > 

530 IF X*="N"THEN PRINT"<UP>";TAB(33)" H£< 

2SPACE>":GOTO 580 <093> 

540 IF X*<>"Y”THEN 520 <082> 

550 N=N+1:DI*(N)=FF*:IF N>27 THEN 620 <136> 

560 PRINT"<UP>";TAB(33)" ISA “ <079> 

570 IF M=2 OR M=3 OR M=5 OR M=7 THEN 620 <152> 

580 IF X*="X"THEN 620 <097> 

590 NEXT X <030> 

600 IF T=0 THEN 620 <243> 

610 GOTO 310 <062> 

620 CLOSE 2:CLOSE 15:RETURN <119> 

630 PRINT:PRINT"£RVSON>ARE YOU SURE (£/£) " <1B4> 

640 GOSUB 260:IF XX<>78 AND XX<>89 THEN 64 

0 <159> 

650 RETURN <200> 

660 OPEN 15,SD,15:GOSUB 690:CLOSE 15:RETUR 

N <000> 

670 OPEN 2,SD,2,FF*:OPEN 15,SD,15:GOTO 690 <137> 
680 OPEN 2,DD,2,F*:OPEN 15,DD,15 <075> 

690 INPUT#15,A,A*,A1,A2:IF A=0 THEN RETURN <088> 

700 GOSUB 270:CLOSE 2:CLOSE 15 <226> 

710 GOSUB 170:PRINT"<RVSON>ERROR><RVOFF>"; <206> 
720 PRINT A;A*;Al;A2:SYS ES+3:GOSUB 260 <025> 

730 SYS ES+48:GOTO 30 <207> 

740 IF X*="I"THEN SYS ES+12 <160> 

750 IF X*="<CLR>"THEN SYS E5+9 <184> 

760 IF M=7 THEN 800 <05B> 

770 IF X*<>"S"THEN 800 <0447 

780 IF SP=B THEN SP=1:G0T0 800 <134> 

790 SP=8 <029> 

800 X=X+((1 AND X*="<RIGHT>")*SP)-<(1 AND 

X*="{LEFTI"> #SP) <131> 

810 Y=Y+((1 AND X*="{DOWNJ")*SP)—((1 AND X 

*="<UP>")*SP) <0B7> 

820 IF X*="X"THEN 730 <0957 

830 IF X<0 THEN X=0 <1567 

840 IF Y<0 THEN Y=0 <046> 

850 IF X+XA>319 THEN X=319-XA <021> 

860 IF Y+YA7199 THEN Y=199-YA <237> 

870 RETURN <166> 

880 GOSUB 760 <206> 


Listing 2. Das Hauptprogramm »PM-MAIN« 


; -:^ 9 > 

<0827 

<2557 

<072> 

<1207 

<0997 
<168> 
<211 > 

<173) 

<068) 

<2467 

<211 > 

<189) 
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890 IF M=5 THEN 960 <004> 
900 XA=XA+<<1 AND X*="<F1>")*SP>-<(1 AND X 

$=“<F2>")*SP) <093> 
910 YA=YA+((1 AND X*=“<F3>")*SP)-<<1 AND X 

*="<F4J")#SP) <141> 
920 IF XA>MX THEN XA=MX <039> 
930 IF XA<7 THEN XA=7 <031> 
940 IF YA>MY THEN YA=MY <229> 
950 IF YA<7 THEN YA=7 <060> 
960 IF X+XA>319 THEN XA=319-X <078> 
970 IF Y+YAM99 THEN YA=199-Y <173> 
980 SYS ES+27,X,Y,XA,YA <147> 
990 RETURN <030> 
1000 IF SD=8 THEN SD=9:G0T0 30 <087> 
1010 SD=8:GOTO 30 <126> 
1020 IF DD=S THEN DD=9:G0T0 30 <228> 
1030 DD=8:GOTO 30 <088> 
1040 GOSUB 630 <056> 
1050 IF X*="N"THEN 30 <023> 
1060 STOP <110> 
1070 LD=SD:PRINT“<CLR> ";:SYS ES+6 <075> 
1080 PRINT"<4SPACE}£H0T0MAKER 4. 0 C2SPACE 3 fl 

ODE: iDAD <060> 
1090 SYS ES+6:GOSUB 2050 <127> 
1100 ON VZ GOTO 1410,1150,1170,1420,1110,1 

160 <025> 
1110 GOSUB 210 <062> 
1120 M=2:PRINT"<CLR>”j:GOSUB 280:IF N=0 TH 

EN 30 <229> 
1130 SYS ES:GOSUB 670:SYS ES+21 <053> 
1140 GOSUB 690:CLOSE 15:GOTO 2150 <087> 
1150 M=3:GOTO 1180 <037> 
1160 M=7:GOTO 1180 <111> 
1170 M=5 <1B3> 
1180 GOSUB 210 <132> 
1190 PRINT"CCLR3";:GOSUB 280:IF N=0 THEN 3 

0 <171> 
1200 FF*=DI*<1> <209> 
1210 GOSUB 670:IF M=3 OR M=5 THEN 1290 <188> 
1220 GOSUB 190:XS=XX:GOSUB 190:YS=XX <228> 
1230 CLOSE 2:CLOSE 15:IF XS>0 AND YS>0 THE 

N 1250 q <'25t> 
1240 GOSUB 170: PRINT" {DOWN3JLEINE STARPAINT 

ER- fiRAFIK”:GOSUB 260:GOTO 30 <066> 
1250 IF XS<40 AND YS<25 THEN 1270 <159> 
1260 GOSUB 170:PRINT"<DOWN>£RAFIK ZU GROSS 

":GOSUB 260:GOTO 30 <135> 
1270 XA=XS*8—1:YA=YS*8—1 <254> 
1280 X=0:Y=0:SP=B:GOTO 1320 <208> 
1290 GET#2,X*,X$,X*,X* <180> 
1300 GOSUB 190:Y1=XX:GOSUB 190:YA=XX~Y1 <148> 
1310 GOSUB 190:X1=XX-B:GOSUB 190:XA=(XX-8) 

-XisCLOSE 2:CLOSE 15 <102> 
1320 SYS ES <01l> 
1330 SYS ES+27,X,Y,XA,YA <245> 
1340 GET X$:XX=ASC<X*+CHR*<0)) <188> 
1350 IF X$="X"THEN GOSUB 270:GOTO 2150 <120> 
1360 IF(XX AND 127)=13 THEN F=(XX AND 1281 

/12B:GOTO 1380 <039> 
1370 GOSUB 740:GOTO 1330 <210> 
1380 GOSUB 670:IF M=7 THEN SYS ES+60,F,X/8 

,Y/8:GOTO 1400 <145> 
1390 SYS ES+42,F,X,Y,X+XA,Y+YA <1B6> 
1400 GOSUB 690:CLOSE 15:GOTO 1330 <012> 
1410 M=1:XA=43:YA=44:E0=36:GOTO 1430 <105> 
1420 M=6:XA=87:YA=51:EO=30 <099> 
1430 GOSUB 210:PRINT"<CLR>"::GOSUB 280:IF 

N=0 THEN 30 <167> 
1440 MX=319—XA:MY=199—MY:SYS ES+6 <246> 
1450 FOR 1=1 TO N:GOSUB 270 <126> 
1460 SYS ES+3:PRINT"NEXT FILE: "DI*(I):GOS 

UB 260 <150> 
1470 IF X*="N"THEN 1590 <118> 
1480 IF X*="X"THEN 30 <204> 
1490 SYS ES <181> 
1500 SYS ES+27,X,Y,XA,YA <159> 
1510 GET X*:XX=ASC(X<:+CHR*(0) ) <102> 
1520 IF X*="X"THEN 1600 <037> 
1530 IF(XX AND 127>=13 THEN F=(XX AND 128) 

/128:GOTO 1560 <207> 
1540 IF X*="N"THEN 1590 <190> 
1550 GOSUB 740:GOTO 1500 <12B> 
1560 FF*=DI*(I):GOSUB 670 <074> 
1570 SYS ES+EO.F,X,Y <107> 
1580 GOSUB 690:CLOSE 15:GOTO 1510 <130> 


1590 NEXT I <150> 

1600 GOSUB 270:GOTO 2150 <199> 

1610 LD=DD:PRINT"ICLR >";:SYS ES+6 <137> 

1620 PRINT"<4SPACE3£HOTOMAKER 4.0{2SPACE3fl 

ODE: SAVE <045> 

1630 SYS ES+6:GOSUB 2050 <159> 

1640 ON VZ GOTO 1700,1850,1860,1710,1650,1 

870 <227 > 

1650 SYS ES:GOSUB 260:PRINT:SYS ES+3 <228> 

1660 F*="":INPUT“£1LENAME”;FT:IF F*=»"THEN 

30 <121> 

1670 F*=LEFT*<F*,16)+",P,W" <201> 

1680 GOSUB 220:GOSUB 680 <070> 

1690 SYS ES+24:GOSUB 690:CLOSE 15:GOTO 30 <229> 

1700 M=1:XA=43:YA=44:E0=39:GOTO 1720 <082> 

1710 M=6:XA=B7:YA=51:E0=33 <071> 

1720 MX=319-XA:MY=199—YA:SYS ES:GOTO 1770 <074> 

1730 SYS ES+27,X,Yj XA,YA <135> 

1740 GET X*:XX=ASC(X*+CHR*(0)) <078> 

1750 IF X*="X"THEN 30 <220> 

1760 IFtXX AND 127)=13 THEN F=(XX AND 128) 

/128:GOTO 1780 <189> 

1770 GOSUB 740:GOTO 1730 <108> 

1780 GOSUB 270:SYS ES+3:PRINT <033> 

1790 F*="":INPUT"£ILENAME";F*: IF F*=""THEN 

30 <251> 

1800 IF M=1 THEN F*=LEFT*<F*,15)+”,P,W":GO 

TO 1820 <097> 

1810 F*=LEFT*(FS,10)+".GRA,P,W" <211> 

1820 GOSUB 220:GOSUB 680 <212> 

1830 SYS ES+EO,F,X,Y <113> 

1840 GOSUB 690:CLOSE 15:GOTO 30 <164> 

1850 M=3:MX=230:MY=167:GOTO 1880 <203> 

1860 M=5:MX=239:MY=79:XA=239:YA=79:GOTO 18 

80 <228> 

1870 M=7:MX=319:MY=199:XA=31:YA=31:SP=8 <213> 

1880 SYS ES:GOSUB 740:GOSUB 920 <081> 

1890 GET X*:XX=ASC(X*+CHR:r<0) ) <230> 

1900 IFtXX AND 127)=13 THEN F=(XX AND 128) 

/128:GOTO 1920 <065> 

1910 GOSUB 880:GOTO 1890 <092> 

1920 ö.;SUB 270:SYS ES+3:PRINT <175> 

1930 FS= " " : I NPUT ” £.1 LENAME " ; F*: IF F*= " " THEN 

30 < 137 > 

1940 IF ,M=7 THEN FT=LEFTT(FT+"{13SPACE1",1 

3)+".GR,P,W" <149> 

1950 IF M=3 THEN F*=LEFTS("PH."+F*,11)+",P 

,W" <240> 

1960 IF M=5 THEN F*=LEFT*("BN."+F*,11)+",P 

,W" <249> 

1970 GOSUB 220:X2=X+XA:Y2=Y+YA:C=1 AND <(X 

AMD 7)>0) <150> 

1980 B= <INT<X/8)+C)*<Y+l) <063> 

1990 GOSUB 680 <068> 

2000 IF M=3 THEN SYS ES+45,F,X,Y,X2,Y2,B <127> 

2010 IF M=5 THEN SYS ES+54,F,X,Y,X2,Y2,B <193> 

2020 IF M=7 THEN SYS ES+63,F,X/8,Y/8,XA/8+ 

l.YA/8+1 <150> 

2030 GOSUB 690:CLOSE 15:GOTO 30 <098> 

2040 STOP <072> 

2050 PRINT: PRINT TAB■3) ; " f2DOWN) C1 3. . ..SRIN 

TSHOP <045> 

2060 PRINT TAB<8):"{DOWN3 C23. ..ÜEWSROOM £H 

OTO <083> 

2070 PRINT TAB(8);"<DOWN>C3I...ÜEWSROOM £A 

NNER <014> 

2080 PRINT TAB(8);“<DOWN> C4I...£RINTMASTER <103> 
2090 PRINT TAB(8);"<DOWN>C5J...STANDARD <132> 

2100 PRINT TAB(8);”<D0WN>t63...£TARPAINTER <118> 
2110 PRINT TAB(8>;"12D0WN>CXI... Ofi IN flENU <157> 

2120 GOSUB 260:IF XX=88 THEN 730 <123> 

2130 IF XX<49 OR XX>54 THEN 2120 <116> 

2140 VZ=VAL(X*):RETURN <130> 

2150 SYS ES:M=1 <115> 

2160 GET X#:GOSUB 740 <227> 

2170 IF X*<>"W"THEN 2160 <094> 

2180 MX=320:MY=200:GOSUB 920 <040> 

2190 GET X*:IF X*="W”THEN GOSUB 270:GOTO 2 

150 <083> 

2200 IF X*="I"THEN SYS ES+18,X,Y,X+XA,Y+YA <108> 
2210 IF X*="<CLR>"THEN SYS ES+15,X,Y,X+XA, 

V+YA <025> 

2220 GOSUB 880:GOTO 2190 <135> 

2230 PRINT"<CLR>";:SYS ES+6 <210> 

2240 PRINT"{2SPACE JÜISKCOMMAND: fiEVICE = " 
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! <040> 

2250 IF LD=SD THEN PRINT"SOURCE";:GOTO 227 

0 <072> 

2260 PRINT-SEST. ”;:LD=DD <218> 

2270 PRINT" #"LD <016> 

2280 SYS ES+6:PRINT:PRINT <067> 

2290 PRINT TABC8)"{DOWNJCl1_SCRATCH £IL 

E(S) <189> 

2300 PRINT TAB(0>"IDOWN> C21_&ENAMEC2SPA 

CE>£.ILECS) <166> 

2310 PRINT TAB(S)"IDOWNJ C31_ÜALIDATE £1 

SK"LD <129> 

2320 PRINT TAB(8)“IDOWN3£4I_£ORMAT £ATA 

DISK"LD <217> 

2330 PRINT TAB(8)"{D0WN>I5I-£ATALOG £IS 

K"LD <061> 

2340 PRINT TAB(8) ”(DOWN>C6J_£HANGE SCUR 

CE/SEST. <063> 

2350 PRINT TAB(8)"I2D0WN)CX]_HAIN flENU <125> 

2360 GOSUB 260:IF XX=88 THEN 30 <187> 

2370 ON VAL(X*>GOTO 2470,2550,2390,2420,26 

40,2660 <100> 

2380 GOTO 2360 <026> 

2390 GOSUB 230:GOSUB 170:IF X*="X"THEN 223 

0 <24S> 

2400 OPEN 15,LD,15,"V0":CLOSE 15 <058> 

2410 OPEN 15, LD, 15: GOSUB 690.-CLOSE 15:G0T0 

2230 <1S7> 

2420 GOSUB 230:GOSUB 170 <057> 

2430 INPUT"21SKNAME,J2";DNi,ID* <060> 

2440 GOSUB 630:IF X*="N"THEN 2230 <010> 

2450 GOSUB 170:PRINT TAB(10);"£LEASE HAITI 

UP>" <201> 

2460 OPEN 15,LD,15,"N:"+DN$+","+ID$:CLOSE 

15:GOTO 2410 <127> 

2470 M=8:GOSUB 230:PRINT”ICLRJ":GOSUB 280 <154> 

2480 IF N=0 THEN 2230 <237> 


2490 GOSUB 630:IF X*="N"THEN 2230 <060> 
2500 SYS ES+6:OPEN 15,LD,15:F0R 1=1 TO N <109> 
2510 : PRINT"SCRATCHING "DI*(I);TAB(32); <163> 
2520 PRINT#15,"S:"+DI*<I):INPUT#15,A:IF A= 

1 THEN PRINT"Si":GOTO 2540 <024> 
2530 PRINT"£RR”A <247> 
2540 NEXT:CLOSE 15:SYS ES+6:GOSUB 260:GOTO 

2230 <122> 
2550 M=8:GOSUB 230:PRINT"ICLR>":GOSUB 280 <234> 
2560 IF N=0 THEN 2230 <063> 
2570 GOSUB 630:IF X*="N"THEN 2230 <142> 
2580 SYS ES+6:OPEN 15,LD,15:F0R 1=1 TO N <191> 
2590 PRINT DI$(I);TAB(1B)"WIRD ZU”;:INPUT 

F * < 006 > 
2600 PRINTS15,"R:"+F$+"="+DI*(I>:INPUT#15, 

A <096> 
2610 IF A=0 THEN PRINT"<UP>" ; TAB(36)"ISPAC 

E,RVSON>fli":GOTO 2630 <23B> 
2620 PRINT"IUP>";TAB(36)"<SPACE,RVSON>£RR" <207> 
2630 NEXT:CLOSE 15:SYS ES+6:GOSUB 260:GOTO 

2230 <214> 
2640 GOSUB 230:PRINT”{CLRJ"::SYS ES+66,LD <115> 
2650 OPEN 15,LD,15:GOSUB 690:CLOSE 15:G0T0 

2230 <173> 
2660 IF LD=DD THEN LD=SD:GOTfl 2230 <172> 
2670 LD=DD:GOTO 2230 <007> 


Listing 2. (Schluß) 



Name 

pm 

-obj 




8000 8820 

8120 

c4 61 dO fo 60 £2 1 8 

68 

64 

8250 : 

60 

a2 

02 

20 

c6 

ff 

a9 

00 

99 


4c 

54 


4c 



4c 



8128 

a2 

fa 

9a 

48 

98 

48 

4c 

ae 

51 

8258 : 

85 

fb 

a9 

eO 

85 

fc 

20 

cf 

c 2 

8000 

81 

8d 

81 

o3 

fe 

8130 

a7 

78 

a9 

3e 

8d 

14 

03 

a9 

le 

8260 : 

ff 

20 

cf 

ff 

24 

90 

70 

13 

12 

8008 

80 

4c 

66 

81 

4c 

2b 

82 

4c 

39 

8138 

81 

8d 

15 

03 

58 

60 

a2 

07 

47 

8268 : 

20 

cf 

ff 

aO 

00 

91 

fb 

e6 

ce 

8010 

7e 

83 

4c 

89 

83 

4c 

51 

82 

79 

8140 

ee 

bO 

87 

ad 

bO 

87 

29 

03 

10 

8270 : 

fb 

dO 

fl 

e6 

fc 

a5 

fc 

c9 

bl 

8018 

4c 

83 

82 

4c 

ba 

82 

4c 

bb 

b8 

8148 

8d 

bO 

87 

9d 

27 

dO 

ca 

10 

07 

8278 : 

00 

dO 

e9 

20 

cc 

ff 

a9 

02 

d6 

8020 

83 

4c 

ec 

83 

4c 

3b 

84 

4c 

be 

8150 

fa 

4c 

31 

ea 

a9 

3b 

8d 

11 

e7 

8280 : 

4c 

c3 

ff 

a 2 

02 

20 

c9 

ff 

4a 

8028 

68 

84 

4c 

b6 

84 

4c 

25 

85 

06 

8158 

dO 

a9 

08 

8d 

18 

dO 

a9 

00 

5f 

8288 : 

a9 

00 

85 

fb 

a9 

eO 

85 

fc 

c4 

8030 

4c 

25 

81 

4c 

31 

81 

4c 

15 

73 

8160 

8d 

00 

dd 

4c 

79 

81 

a9 

eO 

fa 

8290 : 

a9 

00 

20 

d2 

ff 

a9 

20 

20 

aa 

8038 

85 

4c 

d7 

80 

4c 

bb 

86 

4c 

3f 

8168 

85 

04 

a9 

00 

85 

03 

a8 

91 

90 

8298 : 

d2 

ff 

aO 

00 

78 

a2 

35 

86 

10 

8040 

e6 

86 

4c 

45 

80 

a9 

24 

85 

16 

8170 

03 

c8 

dO 

fb 

e6 

04 

dO 

f7 

4d 

82 aO : 

01 

bl 

fb 

a2 

37 

86 

01 

58 

29 

8048 

fd 

a9 

fd 

85 

bb 

a9 

00 

85 

5e 

8178 

60 

a9 

10 

aO 

00 

99 

00 

cO 

13 

82a8 : 

20 

d2 

ff 

e6 

fb 

dO 

eb 

e6 

d2 

8050 

bc 

a9 

01 

85 

b7 

20 

70 

83 

17 

8180 

99 

00 

cl 

99 

00 

c2 

99 

00 

39 

82b0 : 

fc 

a5 

fc 

c9 

00 

dO 

e3 

4c 

a6 

8058 

86 

ba 

a9 

60 

85 

b9 

20 

d5 

04 

8188 

c3 

c8 

dO 

fl 

60 

a9 

lb 

8d 

fc 

82b8 : 

7b 

82 

a9 

00 

8d 

17 

dO 

8d 

cf 

8060 

f3 

a5 

ba 

20 

b4 

ff 

a5 

b9 

2e 

8190 

11 

dO 

a9 

17 

8d 

18 

dO 

a9 

87 

82c0 : 

ld 

dO 

8d 

lb 

dO 

20 

70 

83 

e3 

8068 

20 

96 

ff 

a9 

00 

85 

90 

aO 

b8 

8198 

07 

8d 

00 

dd 

60 

a9 

03 

2c 

d9 

82c8 : 

8e 

dO 

87 

8c 

dl 

87 

20 

70 

ec 

8070 

03 

84 

fd 

20 

a5 

ff 

85 

fe 

a7 

81 a 0 

a9 

02 

2c 

a9 

01 

2c 

a9 

00 

a3 

82d0 : 

83 

8e 

d8 

87 

20 

70 

83 

8e 

72 

8078 

a4 

90 

dO 

3e 

20 

a5 

ff 

a4 

d9 

81a8 

8d 

ca 

87 

ad 

d2 

87 

85 

14 

d9 

82d8 : 

d6 

87 

8c 

d7 

87 

20 

70 

83 

d2 

8080 

90 

dO 

37 

a4 

fd 

88 

dO 

e9 

16 

81b0 

ad 

d3 

87 

85 

15 

ae 

d9 

87 

17 

82e0 : 

8e 

da 

87 

ad 

dO 

87 

18 

69 

ef 

8088 

a6 

fe 

20 

cd 

bd 

a9 

20 

20 

59 

81b8 

8a 

4a 

4a 

4a 

Oa 

a8 

b9 

e4 

da 

82e8 : 

18 

8d 

d4 

87 

ad 

dl 

87 

69 

47 

8090 

d2 

ff 

20 

a5 

ff 

a6 

90 

dO 

38 

81c0 

87 

85 

fd 

b9 

e5 

87 

85 

fe 

6f 

82 fO : 

00 

8d 

d5 

87 

ad 

d8 

87 

18 

Od 

8098 

21 

aa 

fO 

06 

20 

d2 

ff 

4c 

3o 

81c8 

8a 

29 

07 

18 

65 

fd 

85 

fd 

04 

82f8 : 

69 

32 

8d 

01 

dO 

8d 

03 

dO 

25 

80a0 

92 

80 

a9 

Od 

20 

d2 

ff 

20 

57 

81d0 

a5 

14 

29 

f8 

8d 

ae 

87 

18 

85 

8300 : 

a9 

00 

20 

50 

83 

a9 

02 

20 

89 

80a8 

e4 

ff 

aa 

fO 

09 

20 

e4 

ff 

7a 

81d8 

a5 

fd 

6d 

ae 

87 

85 

fd 

a5 

95 

8308 : 

50 

83 

ad 

d8 

87 

18 

6d 

da 

45 

80b0 

fO 

fb 

c9 

58 

fO 

04 

a 0 

02 

dl 

81e0 

fe 

65 

15 

85 

fe 

a5 

14 

29 

47 

8310 : 

87 

18 

69 

le 

8d 

05 

dO 

8d 

21 

80b8 

dO 

b7 

20 

42 

f6 

20 

e4 

ff 

b8 

81e8 

07 

49 

07 

85 

14 

78 

a2 

35 

00 1 

8318 : 

07 

dO 

ad 

dO 

87 

18 

6d 

d6 

a9 

80c0 

fO 

fb 

60 

a9 

20 

20 

d2 

ff 

49 

81f0 

86 

01 

aO 

00 

bl 

fd 

a2 

37 

23 

8320 : 

87 

8d 

d4 

87 

ad 

dl 

87 

6d 

f6 

80c8 

a2 

25 

a9 

3d 

20 

d2 

ff 

ca 

3d 

81f8 

86 

01 

58 

a4 

14 

ae 

ca 

87 

9a 

8328 : 

d7 

87 

8d 

d5 

87 

ee 

d4 

87 

33 

80d0 

10 

fa 

a9 

Od 

4c 

d2 

ff 

a2 

0a 

8200 

fO 

Oe 

eO 

02 

fO 

18 

eO 

03 

c9 

8330 : 

dO 

03 

ee 

d5 

87 

a9 

01 

20 

02 

80d8 

02 

20 

c6 

ff 

a2 

00 

20 

cf 

e6 

8208 

fO 

Oc 

39 

bl 

87 

4c 

19 

82 

c7 

8338 : 

50 

83 

a9 

03 

20 

50 

83 

a9 

fa 

80e0 

ff 

c9 

aO 

fO 

14 

48 

29 

7f 

31 

8210 

19 

b9 

87 

4c 

19 

82 

59 

b9 

fO 

8340 : 

Of 

8d 

15 

dO 

a2 

07 

bd 

cl 

52 

80e8 

c9 

20 

bO 

04 

68 

a9 

3f 

48 

cf 

8218 

87 

aO 

00 

91 

fd 

60 

39 

b9 

5d 

8348 : 

87 

9d 

f8 

e3 

ca 

10 

f7 

60 

22 

80f0 

68 

9d 

ld 

88 

e8 

eO 

10 

dO 

f7 

8220 

87 

c9 

00 

dO 

03 

18 

90 

f5 

c5 

8350 : 

48 

Oa 

aa 

ad 

d4 

87 

9d 

00 

fe 

80f8 

e5 

8a 

48 

20 

cc 

ff 

20 

fd 

82 

8228 

38 

bO 

f2 

a9 

00 

85 

fb 

a9 

la 











8100 

ae 

20 

8b 

bO 

85 

49 

84 

4a 

00 

8230 

eO 

85 

fc 

78 

a2 

35 

86 

01 

11 











8108 

20 

a3 

b6 

68 

20 

75 

b4 

aO 

76 

8238 

aO 

00 

bl 

fb 

49 

ff 

91 

fb 

97 

Listing 3. 

Das Maschinen- 




8110 

02 

b9 

61 

00 

91 

49 

88 

10 

ed 

8240 

c8 

dO 

f7 

e6 

fc 

a5 

fc 

c9 

cf 

Programm 

»PM-OBJ 

<« wird 

mit 


8118 

f8 

c8 

b9 

ld 

88 

91 

62 

c8 

b7 

8248 

00 

dO 

ef 

a2 

37 

86 

01 

58 

5d 

dem MSE 

aul 

Seite 

159 eingegeben 


SONDERHEFT 45 


71 













LISTINGS 



8358 : 

dO 

68 

aa 

ad 

d5 

87 

4a 

ad 

db 

8360 : 

10 

dO 

90 

05 

ld 

b9 

87 

bO 

bc 

8368 : 

03 

3d 

bl 

87 

8d 

10 

dO 

60 

c4 

8370 : 

20 

fd 

ae 

20 

8a 

ad 

20 

f7 

c5 

8378 : 

b7 

a6 

14 

a4 

15 

60 

20 

9c 

2a 

8380 : 

83 

a2 

00 

8e 

cc 

87 

e8 

dO 

74 

8388 : 

08 

20 

9c 

83 

a2 

01 

8e 

cc 

3e 

8390 : 

87 

8e 

cd 

87 

a2 

00 

8e 

ce 

c5 

8398 : 

87 

4c 

c9 

85 

20 

70 

83 

8e 

19 

83a0 : 

d4 

87 

8c 

d5 

87 

20 

70 

83 

58 

83 a8 : 

8e 

d9 

87 

20 

70 

83 

8e 

db 

le 

83b0 : 

87 

8c 

de 

87 

20 

70 

83 

8e 

56 

83b8 : 

dd 

87 

60 

20 

70 

83 

8e 

cc 

6c 

83c0 : 

87 

20 

70 

83 

8e 

d4 

87 

8c 

ab 

83c8 : 

d5 

87 

20 

70 

83 

8e 

d9 

87 

9a 

83d0 : 

a2 

02 

20 

c6 

ff 

a2 

07 

20 

c6 

83d8 : 

cf 

ff 

ca 

dO 

fa 

a9 

00 

8d 

8c 

83e0 : 

cb 

87 

8d 

cd 

87 

a9 

01 

8d 

71 

83e8 : 

ce 

87 

dO 

32 

20 

70 

83 

8e 

a5 

83f0 : 

cc 

87 

20 

70 

83 

8e 

d4 

87 

a5 

83 f 8 : 

8c 

d5 

87 

20 

70 

83 

8e 

d9 

66 

8400 : 

87 

a2 

02 

20 

c9 

ff 

a2 

06 

90 

8408 : 

bd 

16 

88 

20 

d2 

ff 

ca 

10 

6f 

8410 : 

f7 

a9 

00 

8d 

cd 

87 

a9 

01 

4f 

8418 : 

8d 

cb 

87 

8d 

ce 

87 

ad 

d9 

b2 

8420 : 

87 

18 

69 

33 

8d 

dd 

87 

ad 

b5 

8428 : 

d4 

87 

18 

69 

57 

8d 

db 

87 

53 

8430 : 

ad 

dl 

87 

69 

00 

8d 

de 

87 

c4 

8438 : 

4c 

c9 

85 

20 

70 

83 

8e 

cc 

c5 

8440 : 

87 

20 

70 

83 

8e 

d4 

87 

8c 

2b 

8448 : 

d5 

87 

20 

70 

83 

8e 

d9 

87 

la 

8450 : 

a2 

02 

20 

c6 

ff 

20 

cf 

ff 

14 

8458 : 

20 

cf 

ff 

a9 

00 

8d 

cb 

87 

40 

8460 : 

8d 

cd 

87 

8d 

ce 

87 

fO 

31 

b7 

8468 : 

20 

70 

83 

8e 

cc 

87 

20 

70 

dd 

8470 : 

83 

8e 

d4 

87 

8c 

d5 

87 

20 

36 

8478 : 

70 

83 

8e 

d9 

87 

a2 

02 

20 

5e 

8480 : 

c9 

ff 

a9 

00 

20 

d2 

ff 

a9 

9f 

8488 : 

58 

20 

d2 

ff 

a9 

01 

8d 

cb 

15 

8490 : 

87 

a9 

00 

8d 

cd 

87 

8d 

ce 

8a 

8498 : 

87 

ad 

d9 

87 

18 

69 

2c 

8d 

f6 

84a0 : 

dd 

87 

ad 

d4 

87 

18 

69 

2b 

7c 

84a8 : 

8d 

db 

87 

ad 

d5 

87 

69 

00 

fa 

84b0 : 

8d 

de 

87 

4c 

c9 

85 

20 

70 

4l 

84b8 : 

83 

8e 

cc 

87 

20 

70 

83 

8e 

57 

84c0 : 

d4 

87 

8c 

d5 

87 

20 

70 

83 

78 

84c8 : 

8e 

d9 

87 

20 

70 

83 

8e 

db 

3e 

84d0 : 

87 

8c 

de 

87 

20 

70 

83 

8e 

76 

84d8 : 

dd 

87 

a2 

02 

20 

c6 

ff 

a2 

df 

£4e0 : 

08 

20 

cf 

ff 

ca 

10 

fa 

c9 

99 

84e8 : 

00 

fO 

15 

8d 

de 

87 

a9 

Od 

42 

84f0 : 

8d 

df 

37 

20 

cf 

ff 

ce 

df 

4b 

84f8 : 

87 

dO 

f8 

ce 

de 

87 

dO 

ee 

4a 

8500 : 

20 

cf 

ff 

c9 

ff 

dO 

f9 

a9 

03 

8508 : 

00 

8d 

cb 

87 

8d 

cd 

87 

8d 

33 

8510 : 

ce 

87 

4c 

c9 

85 

a9 

01 

8d 

b3 

8518 : 

cb 

87 

8d 

ce 

87 

a9 

00 

8d 

c5 

8520 : 

cd 

87 

4c 

32 

85 

a9 

01 

8d 

cf 

8528 : 

cb 

87 

a9 

00 

8d 

cd 

87 

8d 

a2 

8530 : 

ce 

87 

20 

70 

83 

8e 

cc 

87 

c7 

8538 : 

20 

70 

83 

8e 

d4 

87 

8c 

d5 

aa 

8540 : 

87 

20 

70 

83 

8e 

d9 

87 

20 

7a 


8548 : 

70 

83 

8e 

db 

87 

8c 

de 

87 

f8 

8550 : 

20 

70 

83 

8e 

dd 

87 

20 

70 

d6 

8558 : 

83 

8e 

de 

87 

8c 

df 

87 

a2 

f6 

8560 : 

02 

20 

c9 

ff 

a9 

00 

20 

d2 

a5 

8568 : 

ff 

a9 

aO 

20 

d2 

ff 

ad 

ce 

e9 

8570 : 

87 

fO 

17 

a9 

60 

20 

d2 

ff 

bd 

8578 : 

a9 

09 

20 

d2 

ff 

a9 

2b 

20 

42 

8580 : 

d2 

ff 

a9 

7a 

20 

d2 

ff 

4c 

3d 

8588 : 

a5 

85 

ad 

de 

87 

20 

d2 

ff 

fc 

8590 : 

ad 

df 

87 

20 

d2 

ff 

a9 

00 

e6 

8598 : 

20 

d2 

ff 

ad 

dd 

87 

38 

ed 

ae 

85a0 : 

d9 

87 

20 

d2 

ff 

a9 

08 

20 

4d 

85a8 : 

d2 

ff 

ad 

db 

87 

38 

ed 

d4 

fc 

85b0 : 

87 

18 

69 

08 

20 

d2 

ff 

a9 

8b 

85b8 : 

00 

20 

d2 

ff 

a9 

ff 

20 

d2 

3e 

85c0 : 

ff 

a9 

00 

8d 

ce 

87 

4c 

c9 

33 

85c8 : 

85 

ad 

d4 

87 

8d 

d2 

87 

ad 

33 

85d0 : 

d5 

87 

8d 

d3 

87 

a9 

00 

8d 

27 

85d8 : 

cf 

87 

8d 

de 

87 

ad 

ce 

87 

da 

85e0 : 

fO 

10 

ad 

cb 

87 

fO 

08 

a9 

31 

85e8 : 

8b 

20 

d2 

ff 

4c 

f2 

85 

20 

eb 

85f0 : 

cf 

ff 

ad 

cd 

87 

fO 

03 

4c 

88 

85f8 : 

aa 

86 

ad 

cb 

87 

fO 

25 

ad 

ba 

8600 : 

cf 

87 

c9 

08 

90 

03 

20 

94 

dl 

8608 : 

86 

20 

aO 

81 

90 

10 

a9 

07 

35 

8610 : 

38 

ed 

cf 

87 

aa 

ad 

de 

87 

c6 

8618 : 

ld 

b9 

87 

8d 

de 

87 

ee 

cf 

2b 

8620 : 

87 

4c 

56 

86 

ad 

cf 

87 

dO 

4d 

8628 : 

Od 

20 

cf 

ff 

ae 

cc 

87 

fO 

8a 

8630 : 

02 

49 

ff 

8d 

de 

87 

Oe 

de 

a8 

8638 : 

87 

90 

06 

20 

a6 

81 

4c 

44 

bd 

8640 : 

86 

20 

a3 

81 

ee 

cf 

87 

ad 

d6 

8648 : 

cf 

87 

c9 

08 

90 

08 

a9 

00 

3e 

8650 : 

8d 

de 

87 

8d 

cf 

87 

ad 

d3 

77 

8658 : 

87 

cd 

de 

87 

dO 

23 

ad 

d2 

70 

8660 : 
8668 : 

R7 






_ _ 

«-»/■? 

f2 

f2 

8 5 

d0 ; 08 ae 6b 87^ 

vU 

03 

8670 : 

20 

94 

86 

ad 

d9 

87 

cd 

dd 

fe 

8678 : 

87 

fO 

11 

ee 

d9 

87 

4c 

e9 

38 

8680 : 

85 

ee 

d2 

87 

dO 

03 

ee 

d3 

aa 

8688 : 

87 

4c 

f2 

85 

20 

cc 

ff 

a9 

5e 

8690 : 

02 

4c 

c3 

ff 

ad 

de 

87 

ae 

f6 

8698 : 

cc 

87 

fO 

02 

49 

ff 

20 

d2 

5f 

86a0 : 

ff 

a9 

00 

8d 

cf 

87 

8d 

de 

53 

86a8 : 

87 

60 

ae 

cc 

87 

fO 

06 

20 

fd 

86b0 : 

9d 

81 

4c 

56 

86 

20 

a3 

81 

e7 

86b8 : 

4c 

56 

86 

20 

70 

83 

8e 

cc 

cc 

86c0 : 

87 

20 

70 

83 

8e 

d2 

87 

20 

c2 

86c8 : 

70 

83 

8e 

d9 

87 

a2 

02 

20 

ae 

86d0 : 

c6 

ff 

20 

cf 

ff 

8d 

db 

87 

83 

86d8 : 

20 

cf 

ff 

8d 

dd 

87 

a9 

00 

52 

86e0 : 

8d 

cb 

87 

4c 

ld 

87 

20 

70 

2e 

86e8 : 

83 

8e 

cc 

87 

20 

70 

83 

8e 

87 

86f0 : 

d2 

87 

20 

70 

83 

8e 

d9 

87 

bf 

86f8 : 

20 

70 

83 

8e 

db 

87 

20 

70 

5e 

8700 : 

83 

8e 

dd 

87 

a2 

02 

20 

c9 

81 

8708 : 

ff 

a9 

01 

8d 

cb 

87 

ad 

db 

35 

8710 : 

87 

20 

d2 

ff 

ad 

dd 

87 

20 

84 

8718 : 

d2 

ff 

4c 

ld 

87 

a9 

00 

8d 

81 

8720 : 

d8 

87 

a2 

00 

8e 

d5 

87 

8e 

37 

8728 : 

dO 

87 

ad 

d8 

87 

18 

6d 

d9 

e5 

8730 : 

87 

Oa 

aa 

bd 

e4 

87 

85 

fb 

b7 

8738 : 

bd 

e5 

87 

85 

fc 

ad 

d2 

87 

12 

8740 : 

Oa 

Oa 

Oa 

2e 

d5 

87 

18 

65 

5c 

8748 : 

fb 

85 

fb 

ad 

d5 

87 

65 

fc 

e3 

8750 : 

85 

fc 

aO 

00 

ae 

cb 

87 

fO 

c5 

8758 : 

18 

a2 

35 

78 

86 

01 

bl 

fb 

4d 

8760 : 

a2 

37 

86 

01 

ae 

cc 

87 

fO 

bl 

8768 : 

02 

49 

ff 

20 

d2 

ff 

4c 

7d 

6c 

8770 : 

87 

20 

cf 

ff 

ae 

cc 

87 

fO 

4c 

8778 : 

02 

49 

ff 

91 

fb 

c8 

cO 

08 

6a 

8780 : 

90 

d2 

a5 

fb 

18 

69 

08 

85 

5a 

8788 : 

fb 

90 

02 

e6 

fc 

ee 

dO 

87 

c2 

8790 : 

ad 

dO 

87 

cd 

db 

87 

90 

ba 

f2 


8798 

: ee 

d8 

87 

ad 

d8 

87 

cd 

dd 

47 

87a0 

: 87 

bO 

03 

4c 

22 

87 

20 

cc 

42 

87a8 

: ff 

a9 

02 

4c 

c3 

ff 

00 

00 

c2 

87b0 

: 00 

fe 

fd 

fb 

f7 

ef 

df 

bf 

2c 

87b8 

: 7f 

01 

02 

04 

08 

10 

20 

40 

bb 

87c0 

: 80 

11 

12 

13 

14 

15 

16 

17 

20 

87c8 

: 11 

00 

00 

00 

00 

00 

00 

00 

da 

87d0 

: 00 

00 

00 

00 

00 

00 

00 

00 

dl 

87d8 

: 00 

00 

00 

00 

00 

00 

00 

00 

d9 

87e0 

: 00 

00 

00 

00 

00 

eO 

40 

el 

ac 

87e8 

: 80 

e2 

cO 

e3 

00 

e5 

40 

e6 

84 

87f0 

: 80 

e7 

cO 

e8 

00 

ea 

40 

eb 

el 

87f8 

: 80 

ec 

cO 

ed 

00 

ef 

40 

fO 

3e 

8800 

: 80 

fl 

cO 

f2 

00 

f4 

40 

f5 

9c 

8808 

: 80 

f6 

cO 

f7 

00 

f9 

40 

fa 

f9 

8810 

: 80 

fb 

cO 

fc 

00 

fe 

b4 

00 

28 

8818 

: 34 

00 

58 

77 

50 

00 

ff 

ff 

56 


Listing 3. (Schluß) 


Name : pm-sprite c440 c540 


c440 

: ff 

ff 

ff 

80 

00 

00 

80 

00 

51 

c448 : 

: 00 

80 

00 

00 

80 

00 

00 

80 

92 

c450 : 

: 00 

00 

80 

00 

00 

80 

00 

00 

75 

c458 : 

: 80 

00 

00 

80 

00 

00 

80 

00 

eb 

c460 : 

: 00 

80 

00 

00 

80 

00 

00 

80 

aa 

c468 : 

: 00 

00 

80 

00 

00 

80 

00 

00 

8d 

c470 : 

: 80 

00 

00 

80 

00 

00 

80 

00 

03 

c478 : 

: 00 

80 

00 

00 

80 

00 

00 

00 

cl 

c480 : 

: ff 

ff 

ff 

00 

00 

01 

00 

00 

87 

c488 : 

: 01 

00 

00 

01 

00 

00 

01 

00 

ae 

c490 : 

: 00 

01 

00 

00 

01 

00 

00 

01 

23 

c498 : 

: 00 

00 

01 

00 

00 

01 

00 

00 

el 

c4a0 : 

: 01 

00 

00 

01 

00 

00 

01 

00 

c6 

c4a8 : 

: 00 

01 

00 

00 

01 

00 

00 

01 

3b 

c4b0 : 

: 00 

00 

01 

00 

00 

01 

00 

00 

f9 

c4b8 : 

: 01 

00 

00 

01 

00 

00 

01 

00 

de 

c4c0 : 

: 80 

00 

00 

80 

00 

00 

80 

00 

53 

c4c8 : 

: 00 

80 

00 

00 

80 

00 

00 

80 

12 

c4dO : 

; 00 

00 

80 

00 

00 

80 

00 

00 

f5 

c4d8 : 

: 80 

00 

00 

80 

00 

00 

80 

00 

6b 

c4e0 : 

: 00 

80 

00 

00 

80 

00 

00 

80 

2a 

c4e8 : 

: 00 

00 

80 

00 

00 

80 

00 

00 

Od 

c4f0 : 

: 80 

00 

00 

80 

00 

00 

80 

00 

83 

c4f8 : 

: 00 

80 

00 

00 

ff 

ff 

ff 

00 

38 

C500 : 

: 00 

00 

01 

00 

00 

01 

00 

00 

49 

c508 : 

: 01 

00 

00 

01 

00 

00 

01 

00 

2e 

c510 : 

: 00 

01 

00 

00 

01 

00 

00 

01 

a3 

c518 : 

00 

00 

01 

00 

00 

01 

00 

00 

61 

c520 : 

: 01 

00 

00 

01 

00 

00 

01 

00 

46 

c528 : 

00 

01 

00 

00 

01 

00 

00 

01 

bb 

c530 : 

00 

00 

01 

00 

00 

01 

00 

00 

79 

C538 : 

01 

00 

00 

01 

ff 

ff 

ff 

00 

5a 


Listing 4. 

Sprites für das Fenster 
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E ine der gefragtesten 
Anwendungen mit dem 
Computer ist wohl das 
Arbeiten mit der hochauf¬ 
lösenden Grafik. Sei es 
nun, um sich künstlerisch 
mit farbigen Malprogram¬ 
men (Koala-Painter oder 
Paint Magic) zu betätigen oder sich Konstruktionszeich¬ 
nungen mit geeigneten Zeichenprogrammen (Hi-Eddi, 
Star-Painter oder Profi-Painter) zu erstellen. Doch auch die 
räumliche Darstellung dreidimensionaler Körper ist mit der 
geeigneten Software (z.B. Giga-CAD) kein Problem. 

Doch damit lassen sich 3D-Grafiken leider nur aus einem 
bestimmten Blickwinkel betrachten. Um einen Körper um 
eine Achse zu drehen, ist ein enormer Speicherplatz- und 
Rechenaufwand nötig, der sehr zeitaufwendig werden 


kann und den auch nicht je¬ 
des Programm beherrscht. 
Hier nun greift »3D-Grafik- 
Master« ein. 

Das Programm ermög¬ 
licht es, Körperdrehungen 
um beliebige Achsen fast in 
Echtzeit zu berechnen und 
anzuzeigen. Die Darstellung wird nur durch die Menge der 
im Körper enthaltenen Eckpunkte und Begrenzungslinien 
gebremst. Je weniger Linien zu zeichnen sind, desto 
schneller wird die Drehung. Bei bis zu etwa 40 Linien ist ei¬ 
ne Rotation in Echtzeit möglich. Damit lassen sich bereits 
komplexe Körper darstellen (der Körper in Bild 1 ist bei¬ 
spielsweise aus 43 Punkten und 80 Linien aufgebaut). Mit 
steigender Zahl der Linien läßt sich bei der Rotation eine 
Zeitverzögerung nicht vermeiden. 

73 


Endlich können Sie dreidimensionale Körper 
komfortabel eingeben und ohne jeglichen Re¬ 
chenaufwand auf dem Bildschirm darstellen. 
Jeder plastische Körper läßt sich in Echtzeit ma¬ 
nuell oder automatisch in jede beliebige Richtung 
und jede gewünschte Achse drehen. 
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Bild 1. Drahtgittermodell eines dreidimensionalen Körpers 


Die Menüpunkte 


Nach dem Start des Programms mit 
LOAD"3D-GRAFIK-MASTER",8: RUN 
stehen nach dem Laden der einzelnen Programmteile und 
einer Initialisierungszeit von etwa 50 Sekunden (Aufbau ei¬ 
ner Tabelle) folgende Menüpunkte zur Auswahl, die sich 
entweder mit den Cursortasten oder durch direkte Anwahl 
mit den Zifferntasten <1 > bis <8> ansprechen lassen: 

<1 > Eingeben als 3D-Zeichnung 

Dieser Punkt dient zum Eingeben eines dreidimensiona¬ 
len Körpers. Sollte vorher bereits ein Körper im Speicher 
existieren, wird dieser zuerst vom Programm gezeichnet. 
Damit ist es möglich, neue Verbindungen an bereits existie¬ 
renden Körpern anzubringen. 

Mit den Tasten <X>, <Y>, <Z>, <SHIFT+X>, 
<SHIFT+Y>, <SHIFT+Z> und den beiden Cursor- 
Tasten kann nun eine Linie frei im Raum bewegt werden. 
< RETURN> übernimmt die gezeichnete Linie in den 
Speicher. <SHIFT+CLR/HOME> löscht das Bild, <CLR/ 
HOME> positioniert den Grafik-Cursor auf den Koordina¬ 
tennullpunkt. Durch Drücken der < * >-Taste kann der sich 
bewegende Endpunkt der Linie gewechselt werden. Auf 
Wunsch blendet <K> ein Koordinatenkreuz in die Grafik 
ein oder aus. < L> setzt den Grafik-Cursor auf den zuletzt 
mit <RETURN> übernommenen Punkt. <P> vereinigt 
Anfangs- und Endpunkt der Linie miteinander in der aktuel¬ 
len Position des Grafik-Cursors (ab hier startet eine neue Li¬ 
nie). Mit der Taste <A> läßt sich die X-, Y-undZ-Koordina- 
te des Grafik-Cursors abfragen. Der Grafik-Cursor bewegt 
sich in Schritten, die jeweils einen Abstand von fünf Bild¬ 
punkten haben. Eine Änderung ist mit den Tasten < 0 > bis 
<9> möglich, wobei <0> einer Schrittweite von 10 Pixel 
(Bildschirmpunkten) entspricht. 

Mit den Tasten < + > und <—> wird der Sichtwinkel, 
unter dem der Körper erscheint, verändert. 


Ist der Körper fertig gezeichnet, erfolgt die Rückkehr zum 
Hauptmenü mit den Tasten < — > oder <M>. 

<2> Eingeben als Koordinatentripel 

Hier kann die Eingabe der Koordinaten eines Körpers in 
numerischer Form erfolgen (Bild 2). Die Koordinaten dürfen 
Werte von —40 bis +40 annehmen. Eine Überprüfung fin¬ 
det im Programm statt. <CLR/HOME> setzt den Grafik- 
Cursor in die erste Spalte der ersten Zeile, <SHIFT+CLR/ 
HOME> löscht den Speicher. Mit den Cursortasten kann 
der Speicher durchgeblättert werden. Sollte sich der Cur¬ 
sor in der Zeile befinden, in der der letzte Punkt angezeigt 
wird, läßt sich der Punktespeicher mit < RETURN > um ei¬ 
nen Punkt erweitern, und neue Koordinaten können einge¬ 
geben werden. Die maximale Anzahl einzugebender Punk¬ 
te und Verbindungslinien beträgt jeweils 255. 

<SHIFT+INST/DEL> schafft ebenfalls Platz für einen 
weiteren Punkt, <INST/DEL> löscht einen Punkt. Ist ein 
zu löschender Punkt mit einem anderen Punkt durch eine 
Linie verbunden, läßt sich dieser Punkt nicht löschen! 

Mit <F7> gelangt man in den Linien-Eingabemodus. 
Hier gibt man die Punktenummern des Anfangs- wie auch 


Koordinatentripel 

eingeben : 

Anzahl der 

Punkte 

: 43 

Anzahl der 

Linien 

: 80 

Kr, 

I = = > 

x=-40 

y= 0 

Kr , 

2 = = > 

x=-3G 

y = 39 

Kr, 

3 = = > 

x = -2Ö 

y= 24 

#: 

4 = = > 

5 = = > 

x= 20 
x= 40 

y= 3 
y= 0 

Kr. 

6 = = > 

x= 35 

y= 29 

Kr . 

7 = = > 

x = -25 

y= 0 

Kr . 

8 = = > 

x = -30 

y= 32 

Kr . 

3 = = > 

x - - 2 O 

y= 20 

Kr . 

IO = = > 

x= 20 

y= 8 

Kr . 

11 = = > 

x= 35 

y= 24 

Kr . 

12 = = > 

x = - 3 0 

y= 12 

Kr . 

13 = = > 

x = -20 

y= 7 

Kr . 

14 = = > 

x= 20 

y = 3 

Kr . 

15 = = > 

x — 35 

y= 9 

Kr . 

16 = = > 

X = -10 

y=-±3 


Bild 2. Auch die direkte Eingabe und Änderung von Raumkoordin 
durch direkte Zahleneingabe möglich 

des Endpunktes ein. <SHIFT+INST/DEL> schafft Platz 
für eine neue Verbindungslinie, <INST/DEL> löscht eine 
Verbindungslinie. 

Mit <F7> gelangt man wieder in den Punkte-Eingabe- 
modus. Von hier aus kann auch wieder mit < — > oder 
<M> in das Hauptmenü zurückgesprungen werden. 

<3> Eingeben von Rotationskörpern 

Nach der Anwahl dieses Menüpunkts wird man gefragt, 
ob die Koordinaten eines möglicherweise im Speicher ste¬ 
henden Körpers gelöscht werden sollen. Beantwortet man 
diese Frage mit < N >, zeichnet das Programm den näch¬ 
sten erstellten Körper zu dem bestehenden dazu. Nach Klä¬ 
rung dieser Frage erfolgt das Zeichnen eines 80 x 40 Punk¬ 
te großen Eingabefeldes. Das Programm erstellt nun inner¬ 
halb dieses Eingabefeldes eine Hilfsmaske (Bild 3) mit ei¬ 
nem Punktabstand von fünf Pixel. 

Innerhalb dieses Eingabefeldes kann nun eine Konturen¬ 
linie des Kör-pers erstellt werden, die um eine Drehachse 
(hier das Maßband) gedreht wird (Bild 3). Wie oft dies zu ge- 
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Bild 3. Die Hilfsmaske beim Erstellen von Rotationskörpern 
mit angedeutetem Körper 

schehen hat, ist nach Ab¬ 
schluß des Konturenlinien¬ 
zeichnens anzugeben. Das 
Programm verbindet an¬ 
schließend die entspre¬ 
chenden Knickpunkte der 
gedrehten Konturenlinie mit¬ 
einander, so daß ein ge¬ 
schlossener Körper entsteht 
(Bild 4). 

Das Eingeben der Kon¬ 
turenlinie geschieht mit 
den Tasten <X>, <Y>, 
<CRSR>-hoch/unten, 
<CRSR>-rechts/links, 

< RETURN >, <*>, 

<SHIFT+CLR/HOME>, 

<CLR/HOME>, <L> und 
<P>. Mit <X> und <Y> 
sowie den Cursortasten 
kann man den Grafik-Cur¬ 
sor bewegen. Die Übernah¬ 
me einer Linie erfolgt mit 

< RETURN >. Durch Druck 
auf <*> kann der sich 
bewegende Punkt der Linie 
gewechselt werden. 

<SHIFT+CLR/HOME> löscht das Eingabefeld und den 
Punktespeicher und baut das Eingabefeld wieder neu auf. 
<CLR/HOME> setzt den Grafik-Cursor auf den geometri¬ 
schen Nullpunkt des Körpers, <L> setzt ihn auf den zu¬ 
letzt übernommenen Punkt und <P> vereinigt Anfangs¬ 
und Endpunkt der Linie in der momentanen Position des 
Grafik-Cursors. Die Schrittweite läßt sich mit den Zahlenta¬ 
sten <0> bis <9> pixelweise verändern, wobei <0> ei¬ 
ner Schrittweite von 10 Pixel entspricht. Ist die Konturen- 



aten ist bequem 


Kurzinfo: 3D-Grafik 


Programmart: Grafikprogramm zur Darstellung von dreidimensio¬ 
nalen Körpern 

Laden: LOAD "3D-GRAFIK-MASTER" ,8 
Start: Mit RUN 

Besonderheiten: Körperdrehungen um beliebige Achsen. Anzeige 
fast in Echtzeit. Hilfsmaske bei Erstellen von Rotationskörpern. 
Floppy-Schnell-Lader müssen abgeschaltet sein. 

Programmautor: Jesko Schwarzer 


linie fertiggestellt, beendet < SPACE > die Eingabe. 

Nun fragt das Programm, bis zu welchem Winkel der Kör¬ 
per berechnet werden soll. Hierbei entsprechen 360 Grad 
einem kompletten Körper, 180 Grad wären genau ein halber 
Körper. 

Das Programm wartet jetzt darauf, daß die Anzahl der Fa¬ 
cetten eingegeben wird. Hier gilt: Je höher die Facetten¬ 
zahl, desto runder erscheint der Körper, desto langsamer 
erfolgt aber dann auch die Drehung. 

Soll z.B. ein halbierter Körper entstehen, der sonst aber 
»rund« sein soll, so muß ein Winkel von 180 Grad und eine 
Facettenzahl von etwa 20 angegeben werden. 

Ist alles korrekt, ist die Frage »Alles ok?« mit < RE¬ 
TURN > zu beantworten, ansonsten geben Sie bitte <N> 
ein. 

Der Computer berechnet nun die einzelnen Teilstücke 
und Verbindungslinien der Figur. Danach kehrt das Pro¬ 
gramm automatisch in das Hauptmenü zurück. 

<4>/<5> Koordinaten laden und speichern 

In diesen Menüpunkten darf ein höchstens 13 Zeichen 
langer Name angegeben werden, an den das Programm 
noch ».3D« anhängt (dies dient der Wiedererkennung der 
einzelnen Dateien auf Diskette). 

<6> Directory 

Hier lassen sich alle sequentiellen Disketten-Files anzei- 
gen, die als Datendateien (Name.3D) gekennzeichnet sind. 



Bild 4. So sieht der mit der Funktion »Rotation« erstellte 
Körper plastisch aus 


Durch Druck auf eine beliebige Taste wird die Ausgabe an¬ 
gehalten. Nach der Anzeige aller berechtigten Dateien 
zeigt das Programm den Fehlerkanal des Disketten-Lauf- 
werksan. Im Normalfall also »00,OK,00,00«. Ein weiterer Ta¬ 
stendruck führt zurück ins Hauptmenü. 

<7> Drehen 

Dies ist einer der letzten und wichtigsten Menüpunkte. Er 
erlaubt das Drehen einer 3D-Figur fast in Echtzeit (bei nicht 
zu vielen Linien; je mehr Linien, desto langsamer wird die 
Drehung). 

Beim Start befindet man sich im »Demo-Modus«. Hier 
wird ein Körper um alle drei Achsen (X-, Y- und Z-Achse) 
gleichzeitig gedreht. Abschalten kann man die selbstän¬ 
dige Drehung mit <E>. Mittels <X>, <Y> und <Z> 
bzw. <SHIFT+X>, <SHIFT+Y> und <SHIFT+Z> läßt 
sich ein Körper von Hand in jede Lage drehen. < + > und 
<-> verändern dabei den Sichtwinkel (von 0 bis 92 Grad). 
Der Demo-Modus läßt sich durch Druck auf <D> erneut 
starten. Die Tastaturabfrage ist so gestaltet, daß auch alle 
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Tasten gleichzeitig gedrückt werden dürfen. < RETURN > 
führt wieder zurück ins Hauptmenü. 

<8> Exit 

Zu diesem Punkt ist nicht viel zu sagen. Hiermit wird der 
Editor verlassen. Ein Warmstart ist mit der Eingabe von 
GOTO 60030 möglich. 

Eingabehinweise 

Bitte geben Sie zuerst Listing 1 ein und speichern es un¬ 
ter dem Namen »3D-Grafik-Master«. Dies ist das spätere 
Ladeprogramm, das die anderen Teile automatisch nach 
dem Start mit RUN nachlädt. 

Doch vor dem Start tippen Sie bitte noch die Listings 2 
und 3 (beide mit dem MSE) sowie Listing 4 und 5 ein und 
speichern diese. 

Listing 3 (»3D.SPRT«) enthält die Form des Cursorsprites. 
Sie kann beliebig verändert werden. Es ist nur darauf zu 
achten, daß die Figur auf die rechte untere Ecke zeigt und 
die Anfangsadresse $5BC0 (26368) lautet. Das Listing 4 
muß unter dem Namen »3D.EDIT« gespeichert werden. Be¬ 
achten Sie unbedingt, daß in diesen Listings die Zeilen 
»20330« und »21630« nur mit Basic-Abkürzungen (siehe 
Handbuch) einzugeben sind. Im anderen Fall würden die 
Zeilen zu lang und nicht vom C64 akzeptiert werden. 

Das Maschinenprogramm (Listing 2) läuft ohne weiteres 
auch ohne den Editor (Listing 4). Wie ein eigenes Pro¬ 
gramm aussieht, das mit Unterstützung von Listing 2 be¬ 
wegte Grafiken darstellt, können Sie mit Hilfe des Demo- 
Programms (Listing 5) sehen. Fertige Konstruktionen (z.B. 
Bild 6 u. 7) finden Sie auf der Service-Diskette zum Heft. 

Das Programm 

Der Hauptteil des Programms ist sicher die Drehroutine. 
Sie dreht einen Körper und stellt ihn in Parallelprojektion 
dar. Dabei wird mit zwei Grafikbildschirmen gearbeitet. Der 
erste liegt bei $6000 (Farbspeicher bei $5C00) und der 
zweite bei $E000 (Farbspeicher im RAM unter dem I/O-Be- 
reich ab $DC00). 

Die LINE-Routine ist eine der schnellsten uns bekann¬ 
ten. Sie setzt nahezu 13000 Punkte pro Sekunde. Sollte der 
Sonderfall einer Horizontal- oder Vertikal-Linie eintreten, 
verzweigt das Programm zu noch schnelleren Unterrouti¬ 
nen. Nach dem Umschalten zwischen den Grafikbildschir¬ 
men wird der andere, nicht sichtbare Grafikbildschirm ge¬ 
löscht (nur der Ausschnitt vom 64. Pixel bis zum 255. Pixel, 
da ausschließlich in diesem Bereich gezeichnet wird). 

Koordinaten und Verbindungslinien 

Jeder Punkt wird im Format X/Y/Z im RAM gespeichert. 
Hierbei liegen die X-Koordinaten ab $4C00 (19456), die Y- 
Werte ab $4D00 (19712) und die der Z-Punkte ab $4E00 
(19968). Es können maximal 255 Punkte abgelegt werden. 
Die Anzahl steht in Speicherstelle 3. Ein Beispiel: Die Koor¬ 
dinaten eines Würfels (Bild 5): 

Zu negativen Zahlen muß der Wert 256 addiert werden! 


19456 

X 

19712 

Y 

19968 

Z 

+0 

226 

+0 

226 

+0 

226 

+1 

30 

+1 

226 

+1 

226 

+2 

30 

+2 

226 

+2 

30 

+3 

226 

+3 

226 

+3 

30 

+4 

226 

+4 

30 

+4 

226 

+5 

30 

+5 

30 

+5 

226 

+6 

30 

+6 

30 

+6 

30 

+7 

226 

+7 

30 

+7 

30 


Die Zahl der Punkte beträgt 8, also POKE 3,8 
Die Verbindungsvorschrift liegt ab $5100 (20736) für den 
Startpunkt (PS) und ab $5200 (20992) für den Endpunkt 
(PE). Es wird dann beim späteren Drehen eine Linie von PS 
nach PE gezeichnet, wenn sich die entsprechenden Punkt¬ 



nummern in den Speicherzellen befinden. Z.B. der Würfel 
aus Bild 5 von oben: 


Nr. 

PS 

PE 


0 

0 

1 

Da 12 Linien gezeichnet wer- 

1 

1 

2 

den sollen (0 bis 11), muß 

2 

2 

3 

Speicherstelle 4 eine 12 

Lim 3 

0 

enthalten. 

4 

4 

5 

(POKE 4,12) 

5 

5 

6 


6 

6 

7 


7 

7 

4 


8 

0 

4 


9 

1 

5 


12 

2 

6 


11 

3 

7 



Im RAM sieht das dann so aus: 


20736 (PS) 

Inhalt 

20992 (PE) 

Inhalt 

+0 

0 

+0 

1 

+1 

1 

+1 

2 

+2 

2 

+2 

3 

+3 

3 

+3 

0 

+4 

4 

+4 

5 

+5 

5 

+5 

6 

+6 

6 

+6 

7 

+7 

7 

+7 

4 

+8 

0 

+8 

4 

+9 

1 

+9 

5 

+10 

2 

+10 

6 

+11 

3 

+11 

7 


Maschinenprogramm (Funktion) 

Damit doppelt eingegebene Punkte nicht doppelt be¬ 
rechnet werden müssen, existiert eine Maschinenroutine, 
die die Koordinaten selbständig im Speicher ablegt und die 
Punktenummer an den Benutzer zurückgibt. Die Routine, 
die diese Aufgabe übernimmt, heißt PSEARCH und liegt ab 
$400C. Sie hat das Format »SYS 2 t 14+12,X,Y,Z«. 

X, Y und Z sind die Koordinaten eines jeden Punktes. Die 
Punktenummer wird in Speicherstelle 782 übergeben. Eine 
praktische Anwendung findet sie im Basic-Listing ab Zeile 
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Bild 5. 
Ein 

Würfel 


P0(- 

-30, 

-30, 

-30) 

im Koor¬ 
dinaten¬ 

P1( 

30, 

-30, 

-30) 

system 

P2( 

30, 

-30, 

30) 


P3(- 

-30, 

-30, 

30) 


P4(- 

-30, 

30, 

-30) 


P5( 

30, 

30, 

-30) 


P6( 

30, 

30, 

30) 


P7(- 

-30, 

30, 

30) 




30630. Die Adresse der PSEARCH-Routine ist in der Varia¬ 
blen SE gespeichert. Hier, im Rotationskörper-Berech¬ 
nungsprogramm, kann es Vorkommen, daß zwei Punkte 
gleiche Koordinaten haben. Um zu verhindern, daß unnöti¬ 
gerweise beide berechnet und gezeichnet werden, existiert 
diese Routine. 

Ein ähnliches Programm existiertauch für Verbindungs¬ 
linien. Damit keine Linie doppelt gezeichnet wird, können 
die Punktenummern der LSEARCH-Routine ab $400F (im 
Basic-Programm die Routine mit der Variablen VP) überge¬ 
ben werden. Syntax: »SYS 2t 14+15,PS,PE«. Speicherzelle 
4 (Anzahl der Linien) wird in jedem Fall angepaßt. 

Sollte in eine bestehende Punktetabelle ein weiterer 
Punkt mit einer ganz bestimmten Punktnummer eingefügt 
werden, dann benutzt man die INSTP-Routine ab $401E. 
Sie schafft Platz für weitere Punkte durch: »SYS 2114+ 
30,PN«. PN stellt die Nummer des einzusetzenden Punktes 
dar. Die Tabelle der Verbindungslinien wird dabei ange¬ 


paßt. Das ist wichtig, da der Körper sonst nicht mehr korrekt 
gezeichnet werden kann. 

Ab $4021 existiert noch die PDEL-Funktion. Sie entfernt 
einen Punkt aus dem Speicher, wenn dieser Punkt nicht mit 
einem anderen durch eine Linie verbunden ist. Das bedeu¬ 
tet im Klartext: Existiert in der PS- oder PE-Tabelle diese 
Punktnummer, wird der Punkt nicht gelöscht. Das Format 
lautet: »SYS 2t14+33,PN«. Speicherzelle 3 paßt sich ent¬ 
sprechend an. Praktische Anwendung finden beide Routi¬ 
nen (PINST und PDEL) ab Zeile 20320 in Listing 4. 



Bild 6 und 7. Diese beiden Konstruktionen finden Sie auf 
der Service-Diskette zum Heft 


Verbindungslinien können mit der VINST-Routine 
($4024) eingesetzt werden. Das Format: »SYS 2114+ 
36,LN«. Speicherzelle 4 (Anzahl der Linien) paßt sich auto¬ 
matisch an. 

Die VDEL-Routine ($4027) löscht Verbindungsroutinen. 
Format: »SYS 2t 14+39,LN«. Speicherstelle 4 wird automa¬ 
tisch erniedrigt. Das Basic-Listing benutzt beide Routinen 
ab Zeile 21620. 

Sind alle Koordinaten im Speicher abgelegt und die Spei¬ 
cherstellen 3 und 4 richtig gesetzt, darf die Initialisierungs- 
($4000) und dann die Drehroutine ($042A) aufgerufen wer¬ 
den. Die INIT-Routine überprüft, ob alle internen Tabellen 
aufgestellt wurden. Wenn nicht (erster Aufruf oder Spei¬ 
cherstelle 10023< >0), holt sie das nach. Sie schaltet die 
$E000-Grafik ein, löscht diese und setzt den Farbspeicher. 
Danach wird die LINE-Routine auf die richtige Grafikseite 
(page) bei $6000 gelenkt und ins Basic zurückgesprungen. 

Die Drehroutine fragt die Tastatur ab, berechnet die Dre¬ 
hung, die 2D-Koordinaten für den Bildschirm und zeichnet 
die Figur, bis < RETURN > gedrückt wird. Z.B.: »SYS 2114: 
SYS 2114+42« - Siehe auch Zeile 60020 in Listing 4. 

Sollte jemand Lust verspüren, den Körper zu speichern, 
muß erst die Speicherstelle 3 und dann 4 ausgelesen wer¬ 
den. Nun folgt das Senden der X-, Y- und Z-Koordinaten 
des ersten Punktes, danach die des zweiten usw. Anschlie¬ 
ßend kommt die Verbindungsvorschrift. PS/PE der ersten 
Linie usw., bis die in Speicherstelle 4 enthaltene Anzahl der 
Linien erreicht ist. Für die Besitzer eines Disketten-Lauf- 
werks übernimmt die Routine ab $4018 das Speichern: 
»SYS 2114+24,1,8,1,"NAME,S":CLOSE1«. 

Für das Laden ist das Maschinenprogramm ab $401B zu¬ 
ständig: »SYS 2114+27,1,8,0,"NAME,S":CLOSE1«. 
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Besitzer eines (möglicherweise nicht kompatiblen) 
Schnelladers können dafür den Programmteil ab Zeile 
40000 in Listing 4 verwenden. 

Da im Editor auch Linien gezogen und Punkte gesetzt 
werden, müssen die Einsprünge für diese Routinen auch 
vorhanden sein: 

$4012 - PLOT: »SYS 2t14+18,X,Y« (2D-Koordinaten) 
$4003 - LINE: »SYS 2114+3,XI,X2,Y1,Y2« 

$4006 - INV: »SYS 2114+6« (Ein) 

$4015 - NRM: »SYS 2114+21« (Aus) 

Schulung des 
Vorstellungsvermögen 


Die Grafikbefehle beziehen sich auf die Grafik ab $6000, 
wenn vorder Benutzung »SYS 2t14:POKE 56576,2« einge¬ 
geben wurde. 

Eine OLD-Funktion ist auch noch vorhanden. Sie wird 
mit »SYS 2114+9« aufgerufen und rettet ein mit Reset oder 
NEW gelöschtes Programm. 

Ein Tip noch am Rande: 

Sollen Linien zwar gezeichnet, aber nicht gedreht wer¬ 
den, müssen diese Punkte (deren Koordinaten) in der 
Punktetabelle »hinten« liegen. Die Speicherstelle 3 gibt 
weiterhin die Anzahl der Punkte an, die gedreht werden sol¬ 
len. Punkte, die weiter »hinten« in der Tabelle liegen, kön¬ 


nen zwar mit Linien verbunden werden, sind aber beim 
Drehen nicht relevant. 

Der 3D-Grafik-Master (der sich übrigens auch in eigene 
Programme einbinden läßt) ist sehr gut geeignet, um das 
räumliche Erkennungsvermögen und die Vorstellungskraft 
zu schulen und zu unterstützen. Ein Beispiel dafür wäre 
etwa der Einsatz in der Schule, wenn es darum geht, im Zei¬ 
chenunterricht plastische Körper den Schülern verständ¬ 
lich darzustellen. Doch auch für das eigene Vorstellungs¬ 
vermögen ist es eine wertvolle Stütze. 

Das Programm benutzt zur Darstellung das Drahtgitter¬ 
modell (Bild 1). Aus Geschwindigkeitsgründen wurde auf 
eine Möglichkeit zum Verbergen verdeckter Kanten (Hid- 
den-Line) verzichtet, da die Routinen sonst in ihrer Verar¬ 
beitungsgeschwindigkeit sehr stark verlangsamt würden. 

Nach der Eingabe der Körper, die über direktes Zeichnen 
im Raum bis zur Eingabe über Koordination reicht (Bild 2), 
baut das Programm innerhalb kürzester Zeit die nötigen 
Verbindungen im Speicher auf. Gleich danach kann der fer¬ 
tige Körper dreidimensional dargestellt werden. Es ist au¬ 
ßerdem jederzeit möglich, bestehende Verbindungen und 
Punkte zu löschen oder neue hinzuzufügen. Der zeitliche 
Aufwand dafür belastet den Anwender nur sehr gering, so 
daß ein effektives Arbeiten mit dem 3D-Grafik-Master mög¬ 
lich ist. 

Einmal damit gearbeitet, werden Sie nicht so schnell die 
Freude an diesem gelungenen Programm verlieren. 

(Jesko Schwarzer/ag) 


100 REM"******************************* <086> 
110 REM"******************************* <096> 
120 REM"**{27SPACE}** <077> 
130 REM"** tSSPACE>3D - MASTER{85PACE1 ** <204> 

150 REM"** <2SPACE >VON ; JESKO SCHWARZER I4S 

PACE>** <217> 
160 REM"**I27SPACE>** <117> 
230 REM"******************************* <012> 
290 REM"******************************* <022> 
300 : <022> 
330 A=A+l:ON A GOTO 1000,2000,3000 <244> 
1000 PRINT"1.MASCHINENPROGRAMM <106> 
1010 L0AD"3D.CODE",8,1 <167> 


1020 : 

<234> 

2000 PRINT"2.SPRITE 

<152> 

2010 LOAD"3D.SPRT",9,1 

<248> 

_ NT " 3. ED I TOR 

<218> 
< 112> 

3010 L0AD"3D.EDIT",8 

<032> 

3020 : 

<202> 

Listing 1. Das Ladeprogramm 



»3D-Grafik-Master«. 

Beachten Sie bitte die Eingabehinweise 
auf Seite 159. 


Name : 3d.code 4000 4bc8 


4000 : 

: 4c 

50 

43 

4c 

fc 

4a 

4c 

de 

eO 

4008 : 

: 40 

4c 

b2 

4b 

4c 

3e 

40 

4c 

d5 

4010 : 

: 92 

40 

4c 

e4 

4a 

4c 

db 

40 

69 

4018 : 

: 4c 

ed 

40 

4c 

39 

4l 

4c 

85 

ce 

4020 : 

: 41 

4c 

cc 

41 

4c 

25 

42 

4c 

72 

4028 : 

: 4b 

42 

20 

db 

40 

78 

a9 

30 

e7 

4030 : 

: 85 

01 

20 

01 

44 

20 

a4 

45 

cO 

4038 : 

: 20 

82 

42 

4c 

2e 

40 

20 

fd 

15 

4040 : 

: ae 

20 

9e 

b7 

86 

05 

20 

fd 

aa 

4048 : 

: ae 

20 

9e 

b7 

86 

06 

20 

fd 

ba 

4050 

: ae 

20 

9e 

b7 

86 

0a 

8a 

a4 

d9 

4058 : 

: 03 

fO 

0c 

aO 

00 

d9 

00 

4e 

56 

4060 

: fO 

ld 

c8 

c4 

03 

90 

f6 

99 

6d 

4068 : 

: 00 

4e 

a5 

05 

99 

00 

4c 

a5 

af 

4070 : 

: 06 

99 

00 

4d 

e6 

03 

a9 

80 

lb 

4078 : 

: 85 

05 

85 

06 

85 

0a 

60 

a5 

17 

4080 : 

: 05 

(19 

00 

4c 

dO 

07 

a5 

06 

e3 

4088 : 

: d9 

00 

4d 

fO 

e9 

a5 

0a 

4c 

5f 

4090 : 

: 62 

40 

20 

fd 

ae 

20 

9e 

b7 

bO 

4098 : 

: 86 

05 

20 

fd 

ae 

20 

9e 

b7 

3e 

40a0 : 

: 8a 

a4 

04 

fO 

11 

aO 

00 

d9 

65 

40a8 : 

: 00 

51 

fO 

19 

d9 

00 

52 

fO 

79 

40b0 : 

: lf 

c8 

c4 

04 

90 

fl 

99 

00 

e4 


40b8 : 

51 

a5 

05 

99 

00 

52 

e6 

04 

87 

40c0 : 

a9 

SO 

85 

05 

60 

a5 

05 

d9 

a6 

40c8 : 

00 

52 

fO 

f4 

Sa 

4c 

bl 

40 

le 

40d0 : 

a5 

05 

d9 

00 

51 

fO 

e9 

8a 

c8 

40d8 : 

4c 

bl 

40 

a9 

05 

2c 

ä9 

45 

25 

40e0 : 

8d 

41 

49 

8d 

47 

49 

8d 

f4 

fl 

40e8 : 

48 

8d 

fd 

48 

60 

20 

fd 

ae 

de 

40f0 : 

: 20 

be 

el 

a6 

b8 

86 

13 

20 

09 

40f8 : 

: 13 

el 

a5 

03 

20 

d2 

ff 

a5 

a9 

4100 : 

: 04 

20 

d2 

ff 

aO 

00 

b9 

00 

ba 

4108 : 

: 4c 

20 

d2 

ff 

b9 

00 

4d 

20 

2a 

4110 : 

: d2 

ff 

b9 

00 

4e 

20 

d2 

ff 

81 

4118 ; 

: c8 

c4 

03 

90 

e9 

aO 

00 

b9 

2c 

4120 : 

: 00 

51 

20 

d2 

ff 

b9 

00 

52 

9e 

4128 : 

: 20 

d2 

ff 

c8 

c4 

04 

90 

ef 

59 

4130 : 

: a9 

00 

85 

13 

85 

99 

4c 

cc 

8d 

4138 : 

: ff 

20 

fd 

ae 

20 

be 

el 

a6 

69 

4140 : 

: b8 

86 

13 

20 

le 

el 

20 

24 

be 

4148 : 

: el 

85 

03 

20 

24 

el 

85 

04 

20 

4150 : 

: aO 

00 

20 

13 

ee 

99 

00 

4c 

af 

4158 : 

: 20 

13 

ee 

99 

00 

4d 

20 

13 

02 

4160 : 

: ee 

99 

00 

4e 

c8 

c4 

03 

90 

c5 

4168 : 

: e9 

aO 

00 

20 

13 

ee 

99 

00 

b5 

4170 : 

: 51 

20 

13 

ee 

99 

00 

52 

c8 

e8 

4178 : 

: c4 

04 

90 

ef 

a9 

00 

85 

13 

37 


4180 : 

85 

99 

4c 

cc 

ff 

20 

fd 

ae 

d5 

4188 : 

20 

9e 

b7 

eO 

ff 

dO 

01 

60 

4c 

4190 : 

86 

3f 

a6 

03 

a4 

03 

ca 

bd 

c9 

4198 : 

00 

4c 

99 

00 

4c 

bd 

00 

4d 

72 

4la0 : 

99 

00 

4d 

bd 

00 

4e 

99 

00 

ld 

4la8 : 

4e 

88 

c4 

3f 

dO 

e8 

e6 

03 

49 

4lb0 : 

a6 

04 

8a 

fO 

da 

ca 

bd 

00 

14 

4lb8 : 

: 51 

c5 

3f 

90 

03 

fe 

00 

51 

99 

4lc0 : 

: bd 

00 

52 

c5 

3f 

90 

eb 

fe 

fl 

4lc8 : 

: 00 

52 

bO 

e6 

20 

fd 

ae 

20 

e7 

4ld0 : 

: 9e 

b7 

e4 

03 

90 

01 

60 

8a 

8b 

4ld8 : 

; a6 

04 

fO 

fa 

ca 

dd 

00 

51 

5a 

4le0 : 

: fO 

f4 

dd 

00 

52 

fO 

ef 

eO 

fO 

4le8 : 

: 00 

dO 

fl 

85 

3f 

a8 

aa 

e8 

33 

4lf0 : 

: bd 

00 

4c 

99 

00 

4c 

bd 

00 

4d 

4lf8 : 

: 4d 

99 

00 

4d 

bd 

00 

4e 

99 

04 

4200 : 

: 00 

4e 

c8 

c4 

03 

dO 

e8 

c6 

da 

4208 : 

: 03 

a2 

00 

bd 

00 

51 

c5 

3f 

34 


Listing 2. »3D-CODE« - 

Maschinenroutinen zur schnellen 

Grafik-Animation 

(bitte mit dem MSE eingeben) 


78 


SONDERHEFT 45 
















LISTINGS 


4210 : 90 

03 

de 

00 

51 

bd 

00 

52 

81 

4458 

: 85 

f8 

c9 

c3 

90 

02 e9 

5b 

bc 

46a0 : 

e9 

46 

20 

e9 

46 

85 

63 

20 

50 

4218 : o5 

3f 

90 

03 

de 

00 

52 

e8 

Oa 

4460 

: 69 

17 

85 

fa 

a4 

cl bl 

f9 

28 

46a8 : 

e9 

46 

85 

62 

a2 

90 

38 

20 

32 

4220 : e4 

04 

90 

e7 

60 

20 

fd 

ae 

84 

4468 

: a4 

fd 

71 

f7 

85 

fd 38 

bl 

f3 

46b 0 : 

49 

bc 

20 

df 

bd 

a8 

b9 

00 

63 

4228 : 20 

9e 

b7 

e4 

04 

90 

01 

60 

ab 

4470 

: f9 

a4 

cl 

fl 

f7 

18 a8 

b9 

cO 

46b8 : 

01 

fO 

06 

99 

81 

4b 

c8 

dO 

ld 

4230 : 86 

3f 

a6 

04 

a4 

04 

88 

b9 

80 

4478 

: 00 

db 

a8 

b9 

00 

ff 65 

fd 

59 

46c 0 : 

f5 

a9 

20 

99 

81 

4b 

c8 

84 

64 

4238 : 00 

51 

9d 

00 

51 

b9 

00 

52 

dO 

4480 

: 18 

69 

aO 

9d 

00 

4f 38 

a9 

d7 

46c8 : 

f7 

20 

e9 

46 

fO 

09 

a4 

f7 

ec 

4240 : 9d 

00 

52 

ca 

c4 

3f 

dO 

ee 

33 

4488 

: 64 

e5 

c2 

38 

f9 

00 ff 

9d 

71 

46d0 : 

99 

81 

4b 

e6 

f7 

dO 

f2 

a9 

ff 

4248 : e6 

04 

60 

20 

fd 

ae 

20 

9e 

5f 

4490 

: 00 

50 

e8 

e4 

03 

bO 03 

4c 

e9 

46d8 : 

Od 

a4 

f7 

99 

81 

4b 

20 

ld 

96 

4250 : b7 

e4 

04 

90 

01 

60 

8a 

a8 

lb 

4498 

: 07 

44 

a9 

00 

85 

3f 8.6 

3f 

97 

46e0 : 

47 

a5 

cb 

c9 

40 

fO 

b5 

dO 

2a 

4258 : 08 

b9 

00 

51 

9d 

00 

51 

b9 

ba 

44a0 

: bd 

00 

51 

a8 

b9 

00 4f 

85 

ab 

46e8 : 

f8 

20 

a5 

ff 

48 

a5 

90 

dO 

ef 

4260 : 00 

52 

9d 

00 

52 

e8 

c4 

04 

78 

44a8 

: ac 

b9 

00 

50 

85 

ae bd 

00 

00 

46f0 : 

02 

68 

60 

68 

68 

68 

20 

42 

la 

4268 : dO 

ee 

c6 

04 

60 

58 

68 

68 

ld 

44b0 

: 52 

a8 

b9 

00 

4f 

85 bb 

b9 

48 

46f8 : 

f6 

a9 

Od 

20 

d2 

ff 

a9 

08 

ee 

4270 : 68 

68 

a9 

15 

8d 

18 

dO 

a9 

4a 

44b8 

: 00 

50 

85 

bd 

a9 

00 85 

ad 

05 

4700 : 

85 

ba 

20 

b4 

ff 

a9 

6f 

85 

97 

4278 : lb 

8d 

11 

dO 

a9 

03 

8d 

00 

al 

44c0 

: 85 

bc 

20 

24 

48 

e6 3f 

a5 

34 

4708 : 
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8a 

6a 

31 

4a60 

: 4a 

4a 

aa 

18 

68 

11 

f7 

2c 

c4 

4a68 . 

: a9 

ff 

91 

f7 

a5 

f7 

69 

08 

44 

4a70 ; 

: 85 

f7 

90 

03 

e6 

f8 

18 

ca 

al 

4a78 ; 

: dO 

ee 

a6 

02 

bd 

4d 

4b 

11 

3f 

4a80 : 

: f7 

91 

f7 

60 

a5 

bd 

c5 

ae 

06 

4a88 : 

: bO 

08 

a4 

ae 

85 

ae 

84 

bd 

97 

4a90 : 

: 38 

98 

e5 

ae 

48 

a5 

ae 

29 

22 

4a98 : 

: 07 

a8 

a5 

ae 

29 

f8 

aa 

20 

78 

4aa0 : 

: c8 

4a 

68 

aa 

e8 

a5 

b6 

11 

b5 

4aa8 : 

: f7 

91 

f7 

ca 

fO 

17 

c8 

cO 

2b 

4ab0 : 

: 08 

90 

f2 

a5 

f7 

69 

3f 

85 

44 

4ab8 : 

: f7 

a5 

f8 

69 

01 

85 

f8 

a5 

59 

4acO : 

: b6 

aO 

00 

fO 

eO 

60 

a6 

ae 

ed 

4ac8 : 

: 18 

a5 

ac 

29 

f8 

7d 

00 

58 

2f 

4adO : 

: 85 

f7 

a5 

ad 

7d 

00 

56 

85 

ae 

4ad8 : 

f8 

a5 

ac 

29 

07 

aa 

bd 

3d 

2a 

4ae0 : 

4b 

85 

b6 

60 

20 

fd 

ae 

20 

94 

4ae8 : 

eb 

b7 

a5 

14 

a4 

15 

85 

ac 

fd 

4a fO : 

84 

ad 

20 

c8 

4a 

aO 

00 

11 

38 

4af8 : 

f7 

91 

f7 

60 

20 

fd 

ae 

20 

af 

4b00 : 

eb 

b7 

86 

bd 

a5 

14 

a4 

15 

d8 

4b08 : 

85 

bb 

84 

bc 

20 

fd 

ae 

20 

10 

4bl0 : 

eb 

b7 

86 

ae 

a4 

ae 

a6 

15 

d3 

4bl8 : 

aS 14 86 

ad 85 ac 

am. 

bc 

e9 

4b20 : 

dO 

07 

c5 

bb 

20 

5c 

48 

58 

13 

4b28 : 

60 

20 

3c 

48 

58 

60 

00 

00 

39 

4b30 : 

00 

00 

00 

7b 

Oe 

fa 

35 

Of 

4c 


4b38 

: 81 

4c 

cc 

cc 

cd 

80 

40 

20 

ce 

4b40 

: 10 

08 

04 

02 

01 

ff 

7f 

3f 

22 

4b48 

: lf 

Of 

07 

03 

01 

80 

cO 

eO 

ea 

4b50 

: fO 

f8 

fc 

fe 

ff 

02 

01 

08 

ff 

4b58 

: 04 

40 

80 

02 

10 

80 

10 

fe 

20 

4b60 

: df 

df 

fb 

fd 

fb 

f7 

fd 

fd 

61 

4b68 

: bf 

6d 

42 

27 

43 

35 

43 

ld 

78 

4b70 

: 43 

22 

43 

cf 

42 

e9 

42 

03 

12 

4b78 

: 43 

ca 

42 

ca 

42 

24 

2e 

33 

6f 

4b80 

: 44 

20 

20 

20 

20 

20 

20 

20 

a4 

4b88 

: 20 

20 

20 

20 

20 

20 

20 

20 

88 

4b90 

: 20 

20 

20 

20 

20 

20 

20 

20 

90 

4b98 

: 20 

20 

20 

20 

20 

20 

20 

20 

98 

4b aO 

: 20 

20 

c9 

04 

19 

05 

69 

05 

2d 

4b a8 

: b9 

05 

09 

06 

59 

06 

a9 

06 

5f 

4bb0 

: f9 

06 

a9 

01 

a8 

91 

2b 

20 

3b 

4bb8 

: 33 

a5 

18 

a5 

22 

69 

02 

85 

f9 

4bc0 

: 2d 

a5 

23 

69 

00 

85 

2e 

60 

5c 

Listing 2. 

(Schluß) 







Name : 3d.sprt 5bcO 5c02 


5be0 : 

: 18 

00 

00 

lc 

00 

00 

Oe 

00 

94 

5bc8 : 

: 00 

07 

00 

00 

03 

80 

00 

01 

82 

5bd0 : 

: cO 

00 

00 

eO 

00 

00 

70 

00 

6e 

5bd8 : 

: 00 38 

00 

00 

lc 

00 

00 

Oe 

d2 

5beO : 

: 00 

00 

07 

00 

00 

03 

80 

00 

bc 

5be8 : 

: 01 cO 

00 

00 

fO 

00 

00 

78 

49 

5bfO : 

: 00 

00 

7e 

00 

00 

3f 

00 

00 

8a 

5bf8 : 

: lf 

00 

00 

lc 

00 

00 

Oc 

00 

cb 

5e00 : 

; 01 

08 

ff 

ff 

ff 

ff 

00 

00 

05 


Listing 3. »3D-SPRT« - Spritedaten 

des Grafik-Cursors 

(bitte mit dem MSE eingeben) 


0 REM" Kt i i n t t 11 r i r in r ttt rrrrrrrrG 

< 176> 

1030 

PRINT"<3D0WN,RIGHT,SPACE >1{SPACE,RED > 


1 REM 11 —ffC7SPACE >3D - MASTER {9SPACEJ5- 

< 1S9> 



<073> 

2 REM 11 —K{5SPACE >VON J. SCHWARZER {7SPACE}G 

<064> 

1040 

PRINT W*“2{SPACE,ORANGE>... EINGEBEN 


5 REM" r t rir tt i t ri ttt ttt r rrrrrrrn 

<071 > 


ALS KOORDINATENTRIPEL 

<086> 

10 : 

<242> 

1050 

PRINT WS"3{SPACE,YELLOWJ... EINGEBEN 


100 SYS 2T14+9.-SYS 2T14:P0KE 3,0:POKE 4,0 

<233> 


VON ROTATIONSKOERPERN 

<074> 

110 POKE 650,128:PDKE 53281,0 

<105> 

1060 

PRINT WS"4{SPACE,GREEN>. 


120 POKE 56,64:CLR:LO=l:DW=45 

<046 > 


-. KOORDINATEN LADEN 

<203> 

130 V=53248:P=±/180 

< 157> 

1070 

PRINT WS"5{SPACE,GREY 1>. 


140 S=5:M=40:XM=160:YM=100:W=30 

< 1B5> 


KOORDINATEN SPEICHERN 

<126> 

150 BA=2tl4:L=BA+3:IN=BA+6:SE=BA+12:VP=BA+ 


1080 

PRINT WS"6{SPACE,BLUE>. 


15:PL=BA+1B:NR=BA+21 

< 164> 



<082> 

160 SQ=BA+24:LQ=BA+27:IP=BA+30:DP=BA+33 

<233> 

1085 

PRINT WS"7{SPACE,LIG.BLUET. 


170 IL=BA+36:DL=BA+39:DR=BA+42 

<083> 



<044> 

180 BDBUB 10850 

<226> 

1090 

FRINT"<2RIGHT,WHITE,32SPACE > 

<071 > 

190 P1=20736:P2=20992 

<057> 

1100 

PRINT" {R IGHT,SPACE >8. 


200 XS=19456:YS=19712:Z8=19968 

<011> 



<230> 

210 POKE 191,DW/4 

<033> 

1110 

SYS BA+1646 

<090> 

220 DIM X(128),Y(128) 

<042> 

1230 

POKE 198,0:ON PEEK(2)G0T0 10000,20000 


230 D=256:R=127:RIS=CHRS(13):WS="CDOWM,RIG 



,30000,50010,40010,50100,60020,60000 

<222> 

HT,WHITE,SPACE >":HS="{HOME>":Cf="{CLR > 

<253> 

1240 

POKE V+24,21:POKE V+17,27:P0KE 56576, 


240 CUS="{17D0WN> 

<075> 


3:RETURN 

< 191 > 

250 SSS="- 


1250 

POKE V+24,120:POKE V+17,59:P0KE 56576 



<162> 


,2:RETURN 

<202> 

260 SPS="{39SPACEJ":DS="{DOWN>":US="{UP>": 


1260 

POKE 1146+Z*80,Q 

<086> 

L *="{LEFT >": RS= "{RIGHT > 

<213> 

1270 

QC=PEEK(55420+Z*80) 

<040> 

270 PRINT Cf:REM - 

<054> 

1280 

IF Q=QR THEN QC=1 

< 168> 

280 POKE 24568,111:POKE V+39,2 

<219> 

1290 

POKE 5541B+Z*S0,QC:RETURN 

<001> 

1000 REM MENUE 

< 170> 




1010 GOSUB 1240:Z=1:QS=81:0R=87:POKE 53280 





,0:POKE V+21,0 

<073> 




1020 PRINT "{HOME,DOWN,RIGHT,WHITE,CTRL-N, 


Listing 4. 


CTRL—HTEINGABE—MENUE: 

<073> 

Der Basic-Editor »3D.Edit« 
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LISTINGS 


1300 


<066> 

10650 IF AS="+"0R AS="M"GOTO 60030 

<222> 

10000 

POKE V+21,0:SYS BA:PDKE 56576,2:X=0: 


10660 RETURN 

<048> 


Y=0:Z=0 

<123> 

10670 - 

<036> 

10010 

GOSUB 10820 

<213> 

10680 REM KOORDINATEN SPEICHERN 

<049> 

10020 

IF LO THEN LQ=0:AP=0:AL=0:POKE 3,0:P 


10690 IF AP=255 OR AL=255 THEN RETURN 

<230> 


OKE 4,0:GOTO 10140 

<125> 

10700 X=X1:Y=Y1:Z=Z1:GOSUB 10760 

<250> 

10030 

IF(AP OR AL)=0 GOTO 10140 

•ÜB0> 

10710 PP=P 

<032> 

10040 

SYS NR:FOR 1=0 TO AL-1 

<021 > 

10720 X=X2:Y=Y2:Z=Z2:GOSUB 10760 

< 179> 

10050 

X=PEEK (XS+PEEK (P1 +1>):X=X+D* C X >R> 

< 1 71 > 

10730 SYS VP,PP,P 

<250> 

10060 

Y=PEEK(YS+PEEK(P1+1 > > :Y=Y+D*(Y >R) 

<015> 

10740 AL=PEEK(4):RETURN 

1043> 

10070 

Z =PEEK < ZS+PEEK < P1 +1)>:Z=Z +D* < Z >R > 

< 115> 

10750 - 

< U6> 

10080 

GOSUB 10350:XA=XX:YA=YY 

<094> 

10760 SYS SE,X-256*<X<0),Y-256*(Y<0),Z—256 


10090 

X=PEEK(XS+PEEK <P2+I> >:X=X+D*(X >R> 

< 227 > 

*'Z<0) 

<011> 

10100 

Y=PEEK (YS+PEEK (P2+I > > : Y=Y+D* (Y >R > 

<071 > 

10770 AP=PEEK(3):P=PEEK(782):RETURN 

<12B> 

10110 

Z=PEEK(ZS+PEEK(P2+I>):Z=Z+D*(Z>R) 

< 171 > 

10780 - 

< 148> 

10120 

GOSUB 10350:SYS L,XA,YA,XX,YY:NEXT 

<110> 

10790 POKE V+21,0 

< 012 > 

10130 

SYS IN 

< 136> 

10800 POKE 191,DW/4: SYS BA.-SYS D3:P0KE 565 


10140 

XA=160:YA=100:XB=XA:YB=YA:X=0:Y=0:Z= 


76,2 

<047> 


0 

<225> 

10810 POKE V+21,1 

<033> 

10150 

GOSUB 10850:POKE V+21,1 

<037> 

10820 CO=COS(P*DW):SI=SIN(P*DW> 

<01B> 

10160 

GOSUB 60050 

< 083 > 

10830 RETURN 

< 220 > 

10170 

IF AS< >""GOTO 10220 

<100> 

10B40 - 

<208> 

10180 

GOSUB 10320 

<222> 

10850 POKE V,XA+1 AND 255:P0KE V+1,YA+30:R 


10190 

GOSUB 60050 

< 113> 

ETURN 

< 013 > 

10200 

GOSUB 10320 

<242> 

10860 - 

<22B> 

10210 

IF AS=""GOTO 10160 

<054> 

10870 XD=X:YD=Y:ZD=Z 

< 162> 

10220 

GOSUB 10490 

<232> 

10880 X=-M:Y=0:Z=0:GOSUB 10340:X0=XX:YQ=YY 

< 194> 

10230 

XR=XA:YR=YA:XP=XB:YP=YB 

< 121 > 

10890 X=M:GOSUB 10340:SYS L,XX,YY,XQ,YO 

<237> 

10240 

GOSUB 10320:GOSUB 10250:SYS L,XR,YR, 


10900 X=0:Y=-M:GOSUB 10340:XO=XX:YQ=YY 

< 139> 


XP,YP:DN MM+1 GOTO 10160,10000 

<100> 

10910 Y=M:GOSUB 10340:SYS L,XX,YY,XO,YO 

<005> 

10250 

IF Q=1 THEN X1 =X: Y1 =Y: Z1 =Z: GOSUB 103 


10920 Y=0:Z=-M:GOSUB 10340:XB=XX:YB=YY 

<227> 


40:XA=XX:YA=YY:GOSUB 10850 

<1B0> 

10930 Z=M:GOSUB 10340:SYS L,XX,YY,X0,YQ 

<029> 

10260 

IF A$="*”THEN GOSUB 10410:GOSUB 1034 
0:GOSUB 10850 

<051 > 

10940 X=XD:Y=YD:Z=ZD:RETURN 

10950 PRINT"CCLR,DOWN,RIGHTJKOORDINATEN AN 

< 157> 

10270 

IF AS=RISTHEN GOSUB 10320:GOSUB 1068 


ZEIGEN: 

<106> 


0:GOSUB 10410:GOTO 10290 

<194> 

10960 PRINT"{DOWN,2RIGHT>X = "X 

<164> 

10280 

RETURN 

<178> 

10970 PRINT"{DOWN,2RIGHT>Y="Y 

<050> 

10290 

XL=X1:YL=Y1:ZL=Z1:X1=X2:Y1=Y2:Z1=Z2: 


10980 PRINT"{DOWN,2RIGHT>Z="Z 

<193> 

10300 

X=X1:Y=Y1:Z=Z1:XA=XB:YA=YB:RETURN 

<186> 

<176> 

10990 POKE V+21,0:GOSUB 1240 

11000 PDKE 198,0:WAIT 19B,1:P0KE 198,0 

< 188 > 

< 179 > 

10310 

REM LINIE ZIEHEN g. 


11«,;.? POKE V+21,1: GOTO 1250 

<227> 

10320 

SYS L,XA,YA,XB,YB:RETURN 

1702b- 

<134> 

10330 


<206 > 

20000 ZE=0:GOSUB 1240:ZZ=1280 

< 178> 

10340 

REM 3D NACH 2D KOORDINATEN 

<220> 

20010 GOSUB 1240:ZZ=1280:PRINT C* 

<186> 

10350 

YT=Y/1.6 

< 184 > 

20020 ZU=0:IF AP=0 GOTO 20050 

<042> 

10360 

YY=YM—Z—YT*SI 

<179> 

20030 IF AP>ZE+15 THEN ZU=15:G0T0 20050 

< 003 > 

10370 

XX=XM+X+YT*CO 

<140> 

20040 ZU=(AP—1)AND 15:IF AP=0 THEN ZU=-1 

<133> 

10380 

RETURN 

<022> 

20050 Yi=0 

<013> 

10390 

— 

<010> 

20060 GOSUB 21120 

<156> 

10400 

REM 2.PUNKT SUCHEN 

<19B> 

20070 FOR I=ZE TO ZE+ZU 

<032> 

10410 

XX=X1:YY=Y1:ZZ=Z1 

<162> 

20080 GOSUB 21190 

< 114> 

10420 

X1=X2:Y1=Y2:Z1=Z2 

<226> 

20090 NEXT:X1=0:XA=0:Y1=ZU:IF Q=5 THEN Yl= 


10430 

X2=XX:Y2=YY:Z2=ZZ 

<020> 

T:IF Y1>ZU THEN Y1=ZU 

< 145 > 

10440 

XX=XA:YY=YA:XA=XB 

<249> 

20100 PRINT SSS 

<217> 

10450 

YA=YB:XB=XX:YB=YY 

< 008 > 

20110 : 

<01B> 

10460 

X=X1:Y=Y1:Z=Z1 

<041 > 

20120 GOSUB 60050 

< 137> 

10470 

RETURN 

< 112> 

20130 IF AS<>""GOTO 20190 

< 111 > 

10430 


<100> 

20140 GOSUB 21080 

<07B> 

10490 

0=0:MM=0 

< 121 > 

20150 GOSUB 60050 

< 167 > 

10500 

IF A*="X"OR AS=RSTHEN X=X+S:0=1:IF X 


20160 GOSUB 21080 

<098> 


>M THEN X=M 

<042> 

20170 IF AS=""GOTO 20120 

<046> 

10510 

IF A*="Z1"0R AS=LSTHEN X = X-S:Q=1:IF X 


20180 : 

<083> 


<-M THEN X=-M 

<065> 

20190 GOSUB 21080 

<128> 

10520 

IF A*="Y”THEN Y=Y+S:0=1:IF Y>M THEN 


20200 0=0 

<097> 

10530 

Y=M 

IF AS="£"THEN Y=Y-S:0=1:IF Y<-M THEN 

< 129> 

20210 GOSUB 20260 

20220 DN Q GOTO 20000,20120,20050,21280,20 

<067> 


Y=—M 

<006> 

010 

<009> 

10540 

IF A*="Z"OR AS=USTHEN Z=Z+S:0=1:IF Z 


20230 PDKE A,C 

<054> 


>M THEN Z=M 

<206 > 

20240 GOTO 20120 

<050> 

10550 

IF AS=”^"OR A$=DSTHEN Z=Z-S:Q=1:IF Z 


20250 : 

< 160> 


<-M THEN Z=-M 

< 133> 

20260 IF AS=D*GOTO 20870 

< 156> 

10560 

IF A$=CSTHEN L0=1:G0T0 10000 

<122> 

20270 IF AS=USGOTD 20940 

<194> 

10570 

IF A*=HSTHEN X=0:Y=0:Z=0:0=1 

<014> 

202B0 IF Af=R*GOTO 20980 

<075> 

10580 

IF A*="+"THEN IF DW<90-S THEN DW=DW+ 


20290 IF AS=LSGOTO 21030 

<064> 


S:POKE 191,DW/4:MM=1:GOTO 10820 

<016> 

20300 IF AS=C*THEN AP=0:POKE 3,0:A*=HS:0=1 

<204 > 

10590 

IF AS=”-"THEN IF DW>S THEN DW=DW-S:P 
OKE 191,DW/4:MM=1:GOTO 10820 

< 180> 

20310 IF AS=HSTHEN X1=0:Y1=0 

20320 IF AS=CHRS (148) AND AP0255 THEN SYS 

<226> 

10600 

10610 

IF AS="K"GOTO 10870 

IF AS="P“THEN X1=X:Y1=Y:Z1=Z:XB=XA:Y 
B=YA:X2=X:Y2=Y:Z2=Z 

< 166> 

<106> 

IP,ZE+Yl:AP=PEEK(3):0=5:T=Y1:RETURN 
20330 IF AS=CHRS (20) THEN IF APO0 THEN SYS 
DP,ZE+Y1:AP=PEEK< 3 >:0=5:T=Y1:IF AP 

< 178> 

10620 

10630 

10640 

IF AS="L"THEN X=XL:Y=YL:Z=ZL:Q=1 

IF Aä="A"THEN GOSUB 10950 

IF AS>"/”AND A$<":"THEN S=ASC(A*)-48 
:IF S=0 THEN S=10 

<071 > 
<143> 

<087> 

AND 15=15 GOTO 20543 

Listing 4. (Fortsetzung) 
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LISTINGS 


20340 

IF A*»="0"AND A*< 11 : "GOTO 20680 

<012> 

21030 

REM LEFT 

<155> 

20350 

IF A*="+"OR A*=" "OR A*="-"GOTO 2079 


21040 

IF XI=8 OR Xl=16 THEN XA=XA-1:X1=XA* 



0 

<249> 


8:RETURN 

<178> 

20360 

IF A*="+"OR A*="M"THEN POKE 3,AP:GOT 


21050 

IF XI>0 THEN X1=X1-1 

<016> 


0 60030 

<014> 

21060 

RETURN 

<034> 

20370 

IF A*=“{F7)"THEN Q=4:P0KE 3,AP:RETUR 


21070 

— 

<022> 


N 

<199> 

210B0 

A=ZZ+X1+Y1*40:C=PEEK(A) 

< 118> 

20390 

IF ASORISTHEN RETURN 

<09B> 

21090 

POKE A, CC OR 128) — <C AND 128) 

<063> 

20390 

: 

<044 > 

21100 

RETURN 

<074> 

20400 

REM RETURN TASTE 

<252> 

21110 

— 

<062> 

20410 

X1=0:XA=0:POKE A,C 

< 177> 

21120 

PRINT"{GREY 11 

< 020> 

20420 

IF Y1<ZU THEN Y1=Y1+1 .-RETURN 

<041 > 

21130 

PRINT" {HOME,CTRL-N,RIGHT>JtOORDINATEN 


20430 

IF ZU<>15 GOTO 20500 

<049> 


TRIPEL EINEEBEN:{DOWN» 

<133> 

20440 

IF ZE<240 THEN ZE=ZE+16 

< 177 > 

21140 

PRINT" {RIGHT,SPACE)ANZAHL DER JLUNKTE 


20450 

PRINT"£CLR>":Y1=0 

< 004 > 


: "AP 

<214> 

20460 

IF ZE=AP THEN ZU=0:Q=3:AP=AP+1:POKE 


21150 

PRINT" {RIGHT,SPACE) ANZAHL DER L.INIEN 



3,AP:RETURN 

< 023 > 


: "AL 

<223> 

20470 

IF APCZE+17 THEN ZU=AP-1 AND 15 

<224> 

21160 

PPINT D*SS* 

< 102 > 

204B0 

Q=3:RETURN 

< 151 > 

21170 

PRINT USLEFT*(CU*,Y1>:RETURN 

< 144 > 

20490 

5 

<150> 

211 80 

— 

<132> 

20500 

ZU=ZU+1:AP=AP+1:POKE 3,AP:IF AP=1 TH 


21190 

REM INHALT DES PUNKTESPEICHERS 

<027> 


EN ZU=0:0=3:RETURN 

< 154> 

21200 

REM ANZEIGEN 

<234» 

20505 

GOSUB 21120 

<093> 

21210 

PRINT"AR-”1 + 1"{LEFT,SPACE>"TAB <8) 

<132» 

20510 

I=AP-1:PRINT D*SP*U* 

<205> 

21220 

X=PEEK < XS+1):X=X+D*(X >R) 

<019» 

20520 

GOSUB 21190 

<046> 

21230 

Y=PEEK(YS+1):Y=Y+D*(Y >R) 

< 1B5> 

20530 

Y1=Y1+1 

<232> 

21240 

Z=PEEK(ZS+I):Z=Z+D*(Z>R> 

<095» 

20540 

PRINT SS*:Q=2:RETURN 

<061 > 

21250 

PRINT"== >{RVOFF,2SPACE >X=”X"{LEFT,SP 


20541 

— 

<001> 


ACE»"TAB(21)"Y="Y"CLEFT,SPACE)"TAB(2 


20542 

REM DELETE POINT 

< 112> 


9)”Z="Z"{LEFT,2SPACE>" 

<166» 

20543 

IF ZU=0 THEN IF ZE>15 AND AP=ZE THEN 


21260 

RETURN 

<236> 


ZE=ZE-16:T=15 

<019> 

21270 


<224» 

205^4 

RETURN 

<026> 

21280 

POKE 3,AP:ZE=0 

<242» 

20550 

-, 

<010> 

21290 

ZU=15:IF AL<ZE+16 THEN ZU=AL-1 AND 1 


20560 

REM ZEILE UEBEPNEHMEN 

<183> 


5 

<216> 

20570 

Q=ZZ+Y1*40:XS="Y*=X$:Z*=X* 

<249> 

21300 

IF AL=0 THEN ZU=0 

<090» 

20580 

FOR 1=0 TO 2 

<199> 

21310 

ZZ=1285 

<077» 

20590 

X*=X*+CHR*(PEEK(E!-1 + I> ) 

<241 > 

21320 

Y1=0:X=0:PRINT"{CLR,YELLOW)":GOSUB 2 


20600 

YS=Y*+CHR*1PEEK(Q+7+I)) 

<128> 


1130 

<004 > 

20610 

Z*=Z*+CHR*(PEEK(0+15+1)>:NEXT 

<079> 

21330 

FOR I=ZE TO ZE+ZU 

<022» 

20620 

0=ZE+Y1 

<218> 

21340 

GOSUB 22140 

<055> 

20630 

X=VAL(X*):POKE XS+Q,X-D*(X<0) 

<069> 

i^lSSC . M EXT:Y=ZU: IF 0=2 THEN Y=T:IF Y>ZU TH 


20640 

Y=VAL <Y*):POKE YS+G,Y-D*(Y<0) 



t.N Y=ZU 

<034» 

20650 

Z=VAL(ZS);PGKE ZS+O,Z-D*(Z<0) 

<051 > 

21360 

PRINT SS* 

<207> 

20660 

0=0:RETURN 

<027> 

21370 

GOSUB 60050 

< 117» 

20670 


<130> 

213B0 

GOSUB 21520 

<078> 

20680 

REM ZAHL EINGEBEN 

<213> 

21390 

IF A*<>""GOTO 21450 

<028> 

20690 

X2=ZZ+X1+Y1*40 

<192> 

21400 

GOSUB 60050 

<147» 

20700 

I=ZZ+(X1 AND 24>+Yl*40-l 

<102> 

21410 

IF A*<>""GOTO 21450 

<048> 

20710 

X*="":FOR N=I TO 1+2 

< 131 > 

21420 

GOSUB 21520 

<118» 

20720 

T=PEEK(N)AND 127:IF N=X2 THEN T=ASC( 


21430 

GOTO 21370 

< 113» 


A*> 

< 127> 

21440 

s 

<078> 

20730 

X*=X*+CHR*(T):NEXT 

<084> 

21450 

0=0 

<077» 

20740 

T=VAL(X*):IF ABS(T)>M THEN RETURN 

<153> 

21460 

GOSUB 21570 

<223» 

20750 

C=ASC <A$):T=T-D*(T<0> 

< 122> 

21470 

ON 0 GOTO 21320,21290,20000 

<131» 

20760 

POKE XS+((X1 AND 24)/8)»D+ZE+Yl,T 

<223> 

21480 

POKE K,J 

<081 > 

20770 

GOTO 20990 

<0U> 

21490 

GOTO 21370 

<173» 

20780 


<242> 

21500 

s 

<138» 

20790 

IF A*="+"THEN A*=" " 

<083> 

21510 

REM INVERTIEREN 

<008» 

20800 

X2=ZZ+(X1 AND 24)—1+Y1+40 

<230> 

21520 

K=ZZ+X+Y*40 

<242> 

20810 

POKE X2,ASC(A*> 

< 166> 

21530 

J=PEEK(K> 

<023» 

20820 

X2=XS+((X1 AND 24)/8)*D+ZE+Y1 

< 161 > 

21540 

POKE K,(J OR 128)—(J AND 12B) 

<217» 

20830 

T=PEEK<X2):T=-T-D*(T>R> 

<061 > 

21550 

RETURN 

<016» 

20840 

T=T-D*(T<0):POKE X2,T:RETURN 

< 174> 

21560 

s 

< 200 > 

20850 


< 056 > 

21570 

IF A*=D*GOTO 21B00 

<088» 

20860 

REM DOWN 

<239> 

21580 

IF A*=U*GOTO 21860 

<006» 

20870 

IF Y1<ZU THEN Y1=Y1+1:Q=0:RETURN 

<051 > 

21590 

IF A*=R*GOTO 21910 

<007> 

20880 

IF ZU< >15 OR AP<ZE + 17 THEN RETURN 

<251 > 

21600 

IF A*=L*GOTO 21960 

<224> 

20890 

IF ZE<240 THEN ZE=ZE+16 

<119> 

21610 

IF A*=H*GOTO 21990 

<025» 

20900 

ZU=15:IF AP<ZE+16 THEN ZU=AP-1 AND 1 


21611 

IF A*=C*THEN AL=0:POKE 4,0:0=2:RETUR 



5 

<095> 


N 

<065» 

20910 

Q=3:Y1=0:PRINT C*:RETURN 

<229> 

21620 

IF A*=CHR*(14B) AND AL0255 THEN SYS 


20920 


< 126> 


11., ZE+Y: AL=PEEK (4): 0=2: T=Y: RETURN 

<189> 

20930 

REM UP 

<081 > 

21630 

IF A*=CHR*(20)AND AL< >0 THEN SYS DL, 


20940 

IF Y1>0 THEN Y1=Y1-1:RETURN 

<092> 


ZE+Y:AL=PEEK(4):0=2:T=Y:IF AL AND 15 


20950 

IF ZE>0 THEN ZE=ZE-16:0=3:ZU=15:PRIN 



=15 THEN 21791 

<009> 


T C* 

< 115> 

21640 

IF A*="{F7)”THEN Q=3:P0KE 4,AL:RETUR 


20960 

RETURN 

< 188> 


N 

<040> 

20970 


<176> 

21650 

IF A*>"/"AND At<":"GOTO 22010 

<029> 

20980 

REM RIGHT 

<030> 

21660 

IF A*="M"OR A*=”+"THEN POKE 4,AL:G0T 


20990 

IF Xl=l OR XI=9 THEN XA=XA+1:X1=XA*8 



0 60030 

<042» 


:RETURN 

<057> 

21670 

IF A*ORI*THEN RETURN 

< 118» 

21000 

IF X1<17 THEN X1=X1+1 

< 169> 

21680 

s 

< 064 > 

21010 

RETURN 

<240> 

21690 

POKE K,J:X=0 

<241» 

21020 


<228> 

1 21700 

IF Y< ZU THEN Y=Y+1:RETURN 

<135» 
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21710 

AL=AL+1:P0KE 4,AL 

<057> 

30220 

GOSUB 10320 

< 196 > 

21720 

2F ZU=15 BDTO 21780 

<004> 

30230 

GOSUB 302B0 

<064 > 

21730 

7U=ZU+1:Y1=ZU:IF AL=1 THEN ZU=0:Y1=0 


30240 

SYS L,XR,YR,XP,YP 

< 089 > 


:60T0 21750 

< 107> 

30250 

IF 0=1 THEN GOSUB 30470:XA=XX:YA=YY: 


21740 

PRINT US5PS 

< 11B> 


GOSUB 10850:0=4 

<213> 

21750 

GOSUB 21130 

<130> 

30260 

ON 0-1 GOTO 30040,30490,30140 

< 042> 

21760 

I=AL-l:BOSUB 22140:Y=ZU 

< 196 > 

30270 

POKE 53280,1:STOP 

<202> 

21770 

PRINT SSt:RETURN 

< 066 > 

30280 

IF At="X"OR At=RtTHEN X=X+S:Q=1:IF X 


21780 

IF ZE<240 THEN ZE=ZE+16 

<249> 


>M THEN X=M 

<00B> 

21790 

ZU=0:0=1:RETURN 

< 17B> 

30290 

IF AS="Ä"OR At=LtTHEN X=X-S:Q=1:IF X 


21791 

REM DELETE LINE 

<073> 


<-M THEN X=-M 

<031 > 

21792 

IF ZU=0 THEN IF ZE>15 AND AL=ZE THEN 


30300 

IF A*="Y"OR AS=U*THEN Y=Y+S:Q=1:IF Y 



ZE=ZE-16:T=15 

<22B> 


>M THEN Y=M 

<137> 

21793 

RETURN 

<005> 

30310 

IF AS="Y."OR A*=D*THEN Y=Y-S:Q=1:IF Y 


21800 

REM DOWN 

< 163> 


<0 THEN Y=0 

<252> 

21810 

IF Y<ZU THEN Y=Y+1:RETURN 

<247> 

30320 

IF At="L"THEN X=X2:Y=Y2:0=1 

<250> 

21820 

IF ZU<>15 OR AL<ZE+17 THEN RETURN 

< 143> 

30330 

IF A*="P"THEN X1=X:Y1=Y:XB=XA:YB=YA 

<244> 

21830 

IF ZE<240 THEN ZE=ZE+16 

<043> 

30340 

IF At=CtTHEN Q=2 

<198> 

21840 

ZU=15:IF AL<ZE+16 THEN ZU=AL~1 AND 1 


30350 

IF At=H*THEN X=0:Y=0:Q=1 

<209> 


5 

<002> 

30360 

IF A*="*"GOTO 30450 

< 104> 

21850 

0=1:RETURN 

<219> 

30370 

IF At=" "THEN 0=3:S=5:RETURN 

<077> 

21060 

REM UP 

<251 > 

30380 

IF A*="M"OR AS="+"GOTO 60030 

<005> 

21870 

IF Y>0 THEN Y=Y-1:RETURN 

<213> 

30390 

IF At>”/"AND At<":"THEN S=ASC(A*>-48 


21880 

IF ZE=0 THEN RETURN 

<057> 


:IF S=0 THEN S=10 

<023> 

21890 

ZU=15:IF ZE>0 THEN ZE=ZE-16 

<187> 

30400 

IF AtORItTHEN RETURN 

<212> 

21900 

0=1:RETURN 

<013> 

30410 

s 

<158> 

21910 

REM RIEHT 

<200> 

30420 

X <ZA)=X1:Y(ZA)=Y1:ZA=ZA+1:X(ZA)=X:Y( 


21920 

IF X<14 THEN X=X+1:IF X=3 THEN X=12 

< 171 > 


ZA)=Y:ZA=ZA+1:X2=X1:Y2=Y1 

< 126 > 

21930 

IF PEEK f ZZ+X+Y*40> < >32 THEN RETURN 

<055> 

30430 

X1=X : Y1=Y: GOSUB 30470.-GOSUB 10320:XB 


21940 

IF X>12 THEN X=X—1:RETURN 

<102> 


=XX:YB=YY:RETURN 

<173> 

21950 

GOTO 21920 

<253> 

30440 

: 

<18B> 

21960 

REM LEFT 

<067> 

30450 

0=1:XX=X:YY=Y:X=X1:Y=Y1:X1=XX:Y1=YY: 


21970 

IF X>0 THEN X=X-1:IF X=ll THEN X=0 

<226> 


XB=XA:YB=YA:RETURN 

<073> 

21980 

RETURN 

<192> 

30460 

; 

<208> 

21990 

REM HOME 

<254> 

30470 

XX=XM+X*2:YY=YM+M/2-Y*2:RETURN 

< 191 > 

22000 

Y=0:X=0:RETURN 

<043> 

30480 

; 

<230> 

22010 

REM ZAHL EINGEBEN 

<017> 

30490 

GOSUB 1240 

<124> 

22020 

Z=ZZ+Y*40;IF X>1! THEN Z=Z+12 

<061 > 

30500 

PRINT"<CLR>":POKE V+21,0 

<035> 

22030 

XS="":FOR I=Z TO Z+2 

<087> 

30510 

PRINT GS:POKE 19,64 

< 204 > 

22040 

XS=XS+CHRS(PEEK(I)AND 127):NEXT 

<182> 

30520 

INPUT"{DOWN,RIGHTTVON 0 SRAD - 360 £ 


22050 

Z=X+1:IF X>11 THEN Z=Z-12 -<4 ! 49>. r . | 

in . 

RAD I2SPACE , 10LEFT3- ” ; GRS : GR= I NT (ABS (V 


22060 

XS=LEFTS<XS,Z-1)+AS+MIDS<XS,Z+1> 

kit0> 

i« 

AL(GRS))) 

<107> 

22070 

Z=VAL(Xt):IF Z>AP OR Z=0 THEN RETURN 

<089> 

30530 

PRINT:IF GR>360 GOTO 30500 

< 236 > 

22080 

QQ=P1+ZE+Y:IF X>11 THEN Q0=0Q+D 

<063> 

30540 

POKE 19,0 

<069> 

22090 

POKE Q0,Z-1 

<020> 

30550 

INPUT"{DOWN,RIGHT}ANZAHL DER fACETTE 


22100 

J=ASC<At>:IF X=14 THEN RETURN 

<221 > 


N: AN 

<034> 

22110 

IF X=2 THEN X=12:RETURN 

<021 > 

30560 

IF AN<3 THEN PRINT"<2UP>";:GOTO 3055 


22120 

X=X+1:RETURN 

<219> 


0 

<028> 

22130 


<066> 

30570 

INPUT"{DOWN,RIGHT>fiLLES OK.";AS 

< 141 > 

22140 

PRINT"ÜR. : "I+l TAB (9) "==>'•; 

< 147> 

30580 

IF AS< >"N"GOTO 30630 

<205> 

22150 

PA=PEEK(P1+I)+1:IF PA>AP THEN PA=1:P 


30590 

INPUT"<DOWN,RIGHT>ÜEU ZEICHNEN";AS 

<064> 


OKE Pl+I,l 

<087> 

30600 

IF AS="J"GOTO 30000 

< 138> 

22160 

PB=PEEK(P2+I)+1:IF PB>AP THEN PB=1:P 


30610 

GOTO 30500 

<012> 


OKE P2+I,1 

<013> 

30620 

: 

< 114> 

22170 

PRINT" VON £R."PA"<LEFT,2SPACE>"TAB< 


30630 

AP=PEEK(3):AL=PEEK(4):N=AL 

<244> 


25)"BIS ÜR."PB"ILEFT,3SPACE}" 

<022> 

30640 

A*="{DOWN,RIGHT)ANZAHL DER AACETTEN 


221B0 

RETURN 

<138> 


ZU GROSS ! " 

<047> 

22190 


<126> 

30650 

PRINT"{DOWN,RIGHT >1. FACETTEN{DOWN} 

<013> 

30000 

G*="<HOME,DOWN,RIGHT,CTRL-N,WHITE)RO 


30660 

FOR 1=0 T0(GR-1)*P STEP(BR/AN)*P 

<218> 


T ATIONSKOERPER:" 

<213> 

30670 

FOR J=0 TO ZA—1 STEP 2:PRINT N-AL+1" 


30010 

PRINT"{CLR>"GS 

<251 > 


{UFJ" 

< 186> 

30020 

At="N": INPUT" {DOWN, RIGHT>£LTE JLOORDI 


30680 

FOR K=0 TO 1:T=K+J 

<01 7> 


NATEN LOESCHEN ? N<3LEFT>";AS:IF At= 


30690 

X=X(T> —D* <X(T)<0) 

<009> 


"N"GOTO 30040 

<017> 

30700 

Y=INT(Y < T)»COS(I)):Y=Y—D*(Y< 0 > 

<062> 

30030 

PQKE 3,0:POKE 4,0:AP=0:AL=0 

<212> 

30710 

Z=INT(Y(T)*SIN(I>):Z=Z-D*(Z<0> 

<095> 

30040 

POKE V+21,0:SYS BA:POKE 56576,2:ZA=0 


30720 

SYS SE,X,Y,Z 

<035> 


: LO=0 

<070> 

30730 

POKE P1+N+K*D,PEEK(782) 

<222> 

30050 

X=0:Y=0:X1=X:Y1=Y 

<052> 

30740 

NEXT K:N=N+1:NEXT J:IF 1=0 THEN F=N- 


30060 

XA=XM-M*2:YA=YM+M/2:YB=YA 

<001> 


AL 

<204> 

30070 

FOR 1=0 TO 4*M STEP 4 

<177> 

30750 

NEXT I 

< 098> 

30080 

H=6:IF I/5=INT(I/5)THEN H=12 

<021 > 

30760 

: 

<000> 

30090 

SYS L,XA+I,YA+1,XA+I,YA+H:NEXT 

< 191 > 

30770 

IF N>255 THEN PRINT AS:POKE 3,AP:P0K 


30100 

XA=XM:XB=XA:GOSUB 10850:POKE V+21,1 

<142> 


E 4.AL:GOTO 30510 

<099> 

30110 

FOR I=XM-M*2 TO XM+M*2 STEP 10 

< 137> 

30780 

: 

<020> 

30120 

FOR J=YA-M*2 TO YA STEP 10 

<231 > 

30790 

POKE 4,N:AP=PEEK(3):PRINT"{2UP>" 

<061 > 

30130 

SYS PL,I,J:NEXT J,I 

<078> 

30800 

: 

<040> 

30140 

GOSUB 60050 

<251 > 

30810 

T=N—F—1—AL 

<222> 

30150 

IF At<>""GOTO 30210 

<244> 

30820 

PRINT"{DOWN,RIGHT}2. VERBINDUNGEN 1 

< 107> 

30160 

GOSUB 10320 

<134> 

30830 

FOR I=AL TO T+AL STEP F 

<216> 

30170 

GOSUB 60050 

<025> 




30180 

GOSUB 10320 

< 154> 




30190 

IF At=""GOTO 30140 

<194> 




30200 

; 

<202> 




30210 

XR=XA:YR=YA:XP=XB:YP=YB:0=4 

<180> 
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30040 

30850 

30060 

30870 

30880 

30890 

30900 

30910 

30920 

30930 

30940 

30950 

30960 

30970 

30980 

30990 

31000 

31010 

31020 

31030 

31040 

31050 

31060 

31070 

31080 

31090 

40000 

40010 

40020 

40030 

40040 

40050 

40060 

40070 

40080 

40090 

40100 

40110 

40120 

40130 

40140 

50000 

50010 

50015 

50020 

50030 

50040 


FOR J=m TO F-l 

PA=PEEK tPl + I+J):PB=PEEK(PI+I+J+F) 

IF PA=PB GOTO 30880 

SYS VP,PA,PB:IF PEEK<41=255 THEN N=2 
56:GOTO 30770 
NEXT J,I 

IF GRO360 GOTO 30950 
FOR K=0 TO F-l 

PA=PEEK< P1 +1+K):PB=PEEK < P1+K+AL) 

IF PA=PB GOTO 30940 

SYS VP,PA,PB:IF PEEK<4)=255 THEN N=2 
56:GOTO 30770 
NEXT K 

PRINT"{DOWN,RIGHT>3. VERBINDUNGEN 2 
FOR I=AL TO T+AL STEP F 
FOR J=0 TO F-l 

PA=PEEK< P2+1+J1:PB-PEEK(P2+1+J +F > 

IF PA=PB GOTO 31010 

SYS VP,PA,PB:IF PEEK<41=255 THEN N=2 
56:GOTO 30770 
NEXT J,I 

IF GRO360 GOTO 60030 
FOR K=0 TO F-l 

PA=PEEK(P2+I+K1:PB=PEEK(P2+K+AL) 

IF PA=PB GOTO 31070 

SYS VP,PA,PB:IF PEEK<4)=255 THEN N=2 
56:GOTO 30770 
NEXT K 

GOTO 60030 

-SPEICHERN- 

GOSUB 50040 

OPEN 1,8,1,Bf 

PR I NT# 1 , CHRf < PEEK <3)1; 

PRINT#1,CHR*<PEEK<4>1; 

FOR 1=0 TO PEEK(31-1 
PRINT#1,CHRf'PEEK<XS+I>1; 

PRINT#1,CHRf(PEEK <YS+111; 

PRINT#I,CHRf<PEEK'2S+I> >; 

NEXT 

FOR 1=0 TO PEEK<41-1 
PRINT#1,CHR*< PEEK < P1+111; 

PRINT#1,CHRf(PEEK(P2+I)1; 

NEXT 

CLOSE I:GOTO 60030 
-LADEN- 

IF PEEK(10231=0 THEN SYS BA:GOSUB 12 
40 

GOSUB 50040:LO=0 

SYS LQ,l,B,0,Bf:CLOSE 1:GOTO 60030 
-FI LEN AME- 

Bf="":INPUT"{DOWN,RIGHT}FILENAME";Bf 
:IF Bf="OF( Bf="M"OR Bf='"'GOTO 6003 
0 


<074> 

50050 

Bf=LEFTf(Bf,13)+".3B,S":RETURN 


<018> 

<009 > 

50060 

-DIREC TO RY- 


<189 •> 

<196> 

50100 

50110 

PRINT:SYS BA+1649 

WAIT 198,1:POKE 198,0:GOTO 60030 


<126> 

<235> 

< 125 > 

59999 

-EX IT- 


< 164> 

<215> 

60000 

END 


■ 055> 

<134> 

60010 

— 


<099> 

< 142> 

<080> 

60020 

IF(AP OR AL)< >0 THEN PRINT Cf:SYS 
:SYS DR 

SA 

<051 > 

< 200 > 

60030 

POKE V+21 ,0: POKE 198,0: CLR: AP=F'EEK (3 
):AL=PEEK<4):DW=PEEK(191>*4:GOTO 130 

<158> 

< 185 > 

60040 

— 


< 129> 

<048> 
<061 > 

60050 

FOR 1=0 TO W:BET Af:IF Af="“THEN 

T 

NEX 

< 184> 

<090> 

<204> 

< 174> 
<156> 

60060 RETURN 

Listing 4. »3D-EDIT« (Schluß) 


< 171 > 


<001 > 
<091 > 

< 128> 
<018> 
<245> 
<056 > 

<061 > 

< 180 > 
<066> 

< 040 > 
<168> 

< 1 44> 
<064> 
<213> 
<22S> 
<088> 
<223> 
<235> 
<247> 
<221 > 

<<m* 

< 134 > 
<005> 
<223> 
<166> 

< 050> 
<154> ( 
<099>’ 

< 115> 


i 087 > 


100 POKE 3,0:PDKE 4,0:SYS 2tl4 <063> 
130 V=53248:P=£/40:D=256:H=40 <110> 
150 BA=2tl4:L=BA+3:IN=BA+6:SE=BA+12:VP=BA+ 

15:PL=BA+18:NR=BA+21 <164> 
160 SQ=BA+24:LD=BA+27:1P=BA+30:DP=BA+33 <233> 
170 IL=BA+36:DL=BA+39:DR=BA+42 <083> 
190 P1=20736:P2=20992 <057> 
200 XS=19456:YS=19712:ZS=19968 <011> 
210 SX=11:SY=10 <246> 
1000 MM=M/2 <229> 
1010 FOR I=-M TO M STEP INT(2*M/(SY-111:FO 

R J=—M TO M STEP INT(2*M/(SX—111 <219> 
1020 Z=INT(SIN(J*P)*MM+SIN(I*P>*MM> <222> 
1030 Z=Z—D*(Z<0) <074> 
1040 SYS SE,J-D*(J<0>,I-D*(I<01,Z <075> 
1050 NEXT J,I <105> 
1060 : <020> 
1070 : , <030> 
1080 : <040 > 

aBaerwjR 1=0 to sy-i <i65> 

2010 FÖR J=0 TO SX—2 <186> 
2020 SYS VP,J+I*SX,J+I*SX+1 <180> 
2030 NEXT J,I <067> 
2040 : <238> 
2100 FOR 1=0 TO SY—2 <015> 
2110 FOR J=0 TO SX-1 <028> 
2120 SYS VP,J+I*SX,J+(I+1>*SX <100> 
2130 NEXT J,I <169> 
2140 : <084> 
3000 SYS BA:SYS DR <20B> 

Listing 5. Demo-Programm zur Grafik-Animation 
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So werden 
Intros programmiert 

Wer kennt sie nicht, die fantastischen Intros und Demos, 
die vor allem Cracker immer wieder abliefern. Der gewöhnliche Anwender glaubt an 
Zauberei, wenn er sich das bunte Treiben auf dem Bildschirm ansieht. Wir wollen 
ein wenig hinter die Kulissen solcher Programme blicken. 


I n unserem kleinen Kurs werden Sie in einige der Ge¬ 
heimnisse der Intro-Programmierung eingeweiht. Für 
Einsteiger ist dieser Artikel weniger geeignet, Sie sollten 
bereits fundierte Kenntnisse in Maschinensprache besit¬ 
zen und sich mit der Grafik-Programmierung und der dazu¬ 
gehörigen Fachsprache auskennen. 

Wir können und wollen hier keineswegs Patentrezepte 
zur Intro-Programmierung mitteilen. Es geht vielmehr da¬ 
rum, Ihnen Anregungen zu geben, damit Sie anschließend 
selbst loslegen können. Unsere Betrachtungen beziehen 
sich auf ein fertiges Intro, das Sie als Listing 1 abgedruckt 
finden. Es wurde von Dirk Swienty programmiert, und ge¬ 
meinsam wollen wir es ein wenig zerlegen. 

Bitte geben Sie es zunächst einmal mit dem MSE (siehe 
Seite 159) ein. Dieses Listing ist zwar nicht ganz kurz; das, 
was es leistet, kann sich jedoch sehen lassen. Damit Sie 
nicht mehr als notwendig abtippen müssen, haben wir das 
Listing außerdem noch gepackt. So schrumpft es von 43 
auf 21 Blocks. Laden Sie das File mit dem Befehl 
LOAD"64'ER INTRO",8 
und starten Sie es mit 
RUN 

Nach kurzer Zeit ist das Programm entpackt und startet 
automatisch. Ganz oben sehen Sie ein stilisiertes 64’er- 
Logo, darunter einen kurzen Text: »64’er proudly presents: 
the 64’er intro«, das langsam nach links und rechts scrollt. 
Daneben findet sich sogar eine vertikale Laufschrift, das 
Wort »64’er« wandert von unten nach oben. Der Trick ist ein¬ 
fach: Es wird einfach der Zeichensatz so geändert, daß der 
Eindruck entsteht, als ob das Wort nach oben wandert. 
Sprites werden für dieses Wort nicht verwendet! 

Trickreiche Programmierung 


Sprites sind aber dafür zuständig, daß sich die Hintergrund¬ 
farbe der Texte in der Mitte des Bildschirmes wellenförmig 
ändert. Da für die Darstellung reverse Zeichen verwendet 
werden, überdeckt das, was Sie als Hintergrund der Zei¬ 
chen wahrnehmen (gesetzte Pixel im Zeichensatz), die wel- 


Kurzinfo: Intro 


Programmart: Demo-Programm 
Laden: LOAD "64'ER INTRO",8,1 
Start: Mit RUN 

Besonderheiten: Nach einem <RUN/STOP> <RESTORE> oder 
Reset läßt sich das Intro mit SYS 4094 wieder starten. Die Lauf¬ 
schrift wird mit einem Joystick in Port 1 gesteuert. 

Programmautor: Dirk Swienty 


lenförmigen Sprites, die sich hinter dem Text verbergen. 
Letztere können Sie sich sogar »nackt« ansehen: Steigen 
Sie mit einem Reset aus und geben folgenden Befehl im Di¬ 
rektmodus ein: 

SYS 3416 

Sofort werden die Sprites sichtbar. Das Intro kann nach 
einem Ausstieg übrigens mit 

SYS 4096 

neu gestartet werden. Sie können und sollten also einen 
Monitor in den Bereich ab $8000 oder ab $c000 laden, und 
das Intro genau untersuchen. Dabei wird Ihnen die Tabelle 
1 hilfreich sein, in der alle wichtigen Routinen verzeichnet 
sind. 

Schrift am laufenden Band 


Ganz unten sehen Sie eine Laufschrift. Genauer gesagt se¬ 
hen Sie momentan nur den Hinweis, daß Sie einen Joystick 
in Port 1 zur Steuerung verwenden können. Drücken Sie 
diesen Joystick nach links. Die Schrift erscheint. Mit dem 
Steuerknüppel läßt sich jetzt die Geschwindkeit in vier Stu¬ 
fen beeinflussen. Drücken Sie nach links, wird der Text 
schneller. Bewegen Sie den Stick nach rechts, nimmt die 
Geschwindigkeit ab. Ein Druck nach unten stoppt das Lauf¬ 
band, wenn Sie den Joystick nach oben bewegen, startet 
es wieder (sehr langsam). Wenn Sie den Feuerknopf 
drücken, wird eine »Selbstmord-Routine« bei $1a00 aufge¬ 
rufen. Diese löscht den gesamten Speicher und beendet 
das Intro. Es muß dann neu geladen werden, wenn Sie es 
weiter ansehen möchten. Daher sollten Sie, wenn Sie das 
Intro analysieren möchten, erst einmal aussteigen und 
P0KE 3136,0 

eingeben, damit der Feuerknopf keine Wirkung mehr hat. 
Sonst passiert es leicht, daß man etwa die SPACE-Taste be¬ 
rührt und das Intro neu laden muß. Oder Sie verbiegen den 
Sprung bei $c66 auf eine Reset-Routine: 

$0c66 JMP fce2 

Wenn Sie nun < SPACE > oder den Feuerknopf drük- 
ken, wird nur ein Reset ausgeführt, ohne daß der Speicher 
gelöscht wird. 

Hinter den Kulissen 


Nun wollen wir noch genauer die interne Arbeitsweise un¬ 
tersuchen. Eine wichtige Rolle wird dabei die Speicherstel¬ 
le $d011 spielen. Diese wird dazu genutzt, Rastersplits, 
Hires-Grafik und weitere Hintergrundfarben darzustellen. 
Es handelt sich um das VIC-Register 17 (Adresse 53265), 
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das erste Kontrollregister. Hier kann unter anderem zwi¬ 
schen Grafik und Text umgeschaltet werden, der ECM- 
Modus (wird weiter unten genau erklärt) läßt sich über ein 
Bit dieser Zelle aktivieren, und die vertikale Positionierung 
des Bildschirms erfolgt über dieses Register. 

Zunächst eine Begriffserklärung. Was ist der Unterschied 
zwischen einem »Intro« und einem »Demo«? Es handelt 
sich grundsätzlich um eine ähnliche Art von Programmen, 
der Programmierer zeigt, was er kann. Während Demos 
aber ein reiner Selbstzweck sind und in der Szene üblicher¬ 
weise auch unabhängig von anderen Programmen weiter¬ 
gegeben werden (können), wird ein Intro vor ein fremdes 
(gecracktes?) Programm gestellt. Nach Druck etwa auf 
< SPACE> wird dann das Hauptprogramm, z. B. ein Spiel, 
nachgeladen und gestartet. Das Intro zeigt nur auf ein¬ 
drucksvolle Weise, wer das Spiel geknackt hat. In der Regel 
sind Intros viel kürzer als Demos. 

Ein Intro besteht aus mehreren Komponenten, die mei¬ 
stens sogar von verschiedenen Leuten erarbeitet werden: 

- Grafik (hier etwa das 64’er-Logo) 

- Musik 

- Laufschrift (hier ganz unten am Bildschirm) 

- Effekte (z. B. die senkrechte Laufschrift oder die interes¬ 
santen Farbeffekte) 

Auf Musik haben wir in diesem Demo aus Platzgründen 
verzichtet. Wenn Sie wollen, können Sie noch ein mit dem 
Soundmonitor komponiertes Musikstück dazufügen, dies 
kann dann irgendwo in der Routine ab $1000 mit 
xxxx JSR $c000 
aufgerufen werden. 

Als erstes sollte man sich ein Konzept machen, wie das 
Demo überhaupt aussehen soll. Z. B. wo sich die Grafik und 
die Laufschrift befinden sollen, welche Effekte verwendet 
werden. Es gibt unzählige Möglichkeiten dafür. Oft pro¬ 
grammieren findige Freaks neue Tools, wie etwa zum Öff¬ 
nen des Randes, für Rastersplits, Scroll durch Border und 
vieles mehr. Da sind dem Programmierer fast keine Gren¬ 
zen gesetzt. Oder wer hätte vor drei Jahren schon Demos 
mit einer Qualität für möglich gehalten, wie sie heute von 
sehr vielen Freaks aus der Szene geschrieben werden. 


Adresse Inhalt/Funktion 

$0a50 

Text 'proudly presents...' 

$0a70 

vier Farbtabellen 

$0b00 

aktiviert neuen IRQ 

$0b0d 

neue IRQ-Routine 

$ 0 c 2 c 

Joystickabfrage 

$0c66 

Sprung nach $1a00 (Selbstmord) 

Text 'Joystick In Port 1' 

$0cd8 

$0d58 

Sprites initialisieren 

$1000 

Start des Hauptprogrammes, Intro einschalten 

$1100 

Waagerechtes Hin- und Herschieben der Schrift 
»64'er proudly presents« usw. in der Bildschirm¬ 
mitte 

$1114 

Blinken bestimmter Buchstaben in der Scroll-Line 
ganz unten 

$1134 

Farbeffekte hinter der Scrollzeile (Jalousie) in den 
Bildschirm schreiben 

$114b 

senkrechtes Scrolling »64'er« in der Bildschirm¬ 
mitte 

$115f 

Farbeffekt hinter der Scrolt-Zeile (Jalousie, 
erstreckt sich über die ganze Bildschirmbreite) 

$1a00 

Selbstmordroutine, wenn der Feuerknopf 
gedrückt wird 

$ 1 abe 

erzeugt die Scroll-Zeile ganz unten: 

$1abe 

horizontales Softscrolling 

$1ad2 

Zeile scrollen 

$ 1 adf 

neues Zeichen an den rechten Rand 

$1b00 

Textspeicher 

$2000 

Hires-Grafik (64'er Logo ganz oben), 

Zeichensatz 


Tabelle 1. Übersicht über den internen Aufbau des Intros 


Beginnen wir mit der Hires-Grafik. Folgendes muß dabei 
beachtet werden: Vor dem Einschalten des Grafikmodus 
müssen noch der Bild- und Farbspeicher initialisiert wer¬ 
den. Nehmen wir als Beispiel eine Grafik des weit verbreite¬ 
ten Malprogramms »Koala Painter«. Laden wir ein Bild die¬ 
ses Programmes nach $2000, so liegt die Bitmap von 
$2000 bis $3f40, der Farbspeicher I von $3f40 bis $4328, 
und das Farb-RAM von $4328 bis $4710. Also müssen die 

Das Wichtigste ist ein gutes Bild 


Bereiche ab $3f40 nach $0400 und von $4328 nach $d800 
ins Farb-RAM kopiert werden. Die entsprechende Aufbau¬ 
routine unseres Demos beginnt bei $1000. 

Folgende Befehle werden für den oberen Bildschirmbe¬ 
reich ausgeführt: 

0bl4 lda # ld 
Ob16 sta $d018 
0B19 lda #18 
0B1B sta $d0l6 
0B1E lda #3b 
0B20 sta $d011 

Diese Befehle entsprechen den Basic-Befehlen 

P0KE 53272,29 
P0KE 53270,24 
P0KE 53265,59 

und dienen dazu, den Grafikspeicher nach $2000 zu legen, 
den Zeichensatz an Adresse $3000 beginnen zu lassen, 
den Multicolor-Modus und die Grafik einzuschalten. 

Nun wollen wir uns mit der Programmierung von Ra¬ 
stersplits auseinandersetzen. Jeder von Ihnen, der schon 
einmal ein Demo gesehen oder sogar programmiert hat, 
wird wiss, >n, wie ein »Rasterbalken« aussieht: Er wird durch 
mehrmaliges Einlesen von Farbdaten auf den Bildschirm 
bzw. in den Bildschirmrahmen dargestellt. In unserem Bei¬ 
spiel finden Sie zwei dieser Balken, die den Bereich ein¬ 
grenzen, in dem sich die senkrechten Scrolltexte befinden. 

Wir erläutern nun, wie es möglich ist, in einer Rasterzeile 
mehrere Farben darzustellen. 


0B6D 

ldx 

#00 

Zähler 

0B6F 

lda 

$D012 

Rasterzeile laden 

0B72 

and 

#07 

vertikale Position bestimmen 

OB 74 

sta 

$D011 

und fixieren 

0B77 

lda 

$0A70,x 

Farbwerte aus einer Tabelle 
lesen und 

0B7A 

sta 

$D020 

auf den Bildschirm und 

0B7D 

lda 

$0A86,x 

in den Rahmen schreiben 

0B80 

sta 

$D021 


0B83 

sta 

$D021 


0B86 

lda 

$0A9c,x 


0B89 

sta 

$D020 


0B8C 

sta 

$D021 


0B8F 

lda 

$0AB2,x 


0B92 

sta 

$D020 


0B95 

inx 


X-Register erhöhen 

0B96 

cpx 

#16 

und für 22 Farbbalken 

0B98 

bne 

0B6F 

fortfahren 


Da der Bildschirmhintergrund breiter ist als der linke oder 
rechte Bildschirmrahmen, muß der entsprechende Farb¬ 
wert aus Timing-Gründen zweimal gesetzt werden ($0b80). 
Mit dieser Routine werden aus den entsprechenden Berei¬ 
chen Farben eingelesen (22 Farbwerte) und nach $d020 
(Bildschirmrahmen) und $d021 (Bildschirm) geladen. Ge¬ 
schickt gewählt ergeben diese Farbkombinationen den 
Rundungseffekt eines Balkens: Es scheint so, als würde 
sich der Balken aus dem Bildschirm herauswölben (zumin¬ 
dest mit ein wenig gutem Willen). Durch Verschieben der 
Farben lassen sich weitere interessante Effekte erzielen. 
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Die drei Befehle ab $b6f dienen zur Synchronisation des 
gesamten Intros und sorgen dafür, daß praktisch nichts 
flimmert. Steigen Sie einmal aus und machen Sie den Be¬ 
fehl ab $b74 unwirksam, indem Sie eingeben: 

POKE 2932,205 

(Der normale Inhalt ist 141). Starten Sie jetzt das Intro wie¬ 
der, wird es Ihnen wohl nicht mehr so gut gefallen: Der ge¬ 
samte Bildschirm flimmert. 

Die Farbwerte, die in den vier Tabellen ab $a70, $a86, 
$a9c, $ab2 gespeichert sind, liefern wir Ihnen natürlich 
auch mit. Sie können sie aber frei wählen. In unserem Intro 
wurden folgende Farbwerte verwendet: 

0a70 .byte $f,0,6,e,f,6,e,3,f,6,e,3,l,f,6,e,3,l,3, 
e,6,0 

0a86 .byte $f,0,2,a,f,2,a,7,f,2,a,7,l,f,2,a,7,l,a, 

2 , 2,0 

0a9c .byte $f,0,9,5,f,9,5,d,f,9,5,d,l,f,9,5,cl,l,d, 
5,9,0 

0 ab2 .byte $f,0,b,c,f,b,c,f,f,b,c,f,l,f,b,c,f,l,f, 
c,b,0 

Diese Werte sind hexadezimal angegeben, entspre¬ 
chend den Farbcodes im Handbuch, also 0 = Schwarz, 1 
= Weiß, a = 10 = Hellrot, f = 15 = Hellgrau etc. 

Neuartige Rasterinterrupts 


Sie konnten in Ausgabe 43 des Sonderheftes nachlesen, 
was Rasterinterrupts sind. Damals haben wir die übliche 
Methode beschrieben, sie zu erzeugen: IRQ-gesteuert; bei 
bestimmten Rasterzeilen wird ein IRQ ausgelöst, der dann 
z. B. die Farbe umschaltet. Auch im 64’er-lntro werden Ra- 
ster-IRQs verwendet, die hier allerdings auf eine andere Art 
und Weise erreicht werden. Nehmen wir an, Sie wollen die 
deutsche Fahne auf dem Bildschirm erzeugen. Dazu ge¬ 
hen Sie bei der neuen Technik wie folgt vor: 
sei 

11 lda $d012 
cmp #1 

bne 11 (warten, bis Rasterstrahl bei 
Zeile 1 ist) 

lda #0 
sta $d020 

sta $d021 (in Zeile 1 Bildschirm auf Schwarz 
schalten) 

12 lda $d012 
cmp # $56 

bne 12 (warten, bis Rasterstrahl bei Zeile 
86 ist) 

lda #2 
sta $d020 

sta $d021 (in Zeile 86 Bildschirm auf Rot 
schalten) 

13 lda $d012 
cmp #$aa 

bne 13 (warten, bis Rasterstrahl bei 
Zeile 170 ist) 

lda #7 
sta $d020 

sta $d021 (in Zeile 170 Bildschirm auf Gelb 
schalten) 

jmp 11 (Endlosschleife) 

Man kann wohl schon ganz gut erkennen, wie diese Me¬ 
thode funktioniert: Der Computer tut eigentlich kaum mehr 
etwas anderes, als auf den Rasterstrahl zu warten. Ist er in 
Zeile 1, also ganz oben angekommen, wird der Bildschirm 
auf Schwarz geschaltet. Jetzt wartet der Computer auf die 
Bearbeitung der Rasterzeile 85, die etwa am Ende des obe¬ 
ren Drittels liegt. Hier wird von Schwarz auf Rot umgeschal¬ 


tet. Dasselbe geschieht dann ganz unten mit der gelben Zo¬ 
ne. Auf diese Weise wird die deutsche Flagge erzeugt... 
Nach der gelben Farbzone springt das kleine Programm an 
den Anfang zurück, um wieder auf Zeile 1 zu warten und die 
Fahne von neuem zu erzeugen. 

Diese Routine kommt in dieser Form im 64'er-lntro nicht 
vor. Aber im Prinzip arbeitet auch es nach dieser Methode, 
um ganz oben am Bildschirm Multicolor-Grafik (das 64’er- 
Logo) darzustellen. Weiter unten kommen die Rastersplits, 
danach der kurze Text, der nach rechts und links gescrollt 
wird, dann wieder ein Split, und schließlich ganz unten das 
Schriftband. Die entsprechenden Routinen, die in der Tat 
vom Prinzip her wie das Flaggenprogramm aufgebaut sind, 

Der Textmarker 


finden Sie im Intro ab Speicherzelle $0b0d (neue IRQ- 
Routine). Die IRQ-Routine läuft hier in einer Endlos¬ 
schleife. 

Beispielsweise wird ganz oben am Bildschirm die Hinter¬ 
grundfarbe auf Schwarz gestellt. Das läßt sich freilich än¬ 
dern: Stoppen Sie das Intro, geben Sie folgendes ein: 

POKE 2852,11:SYS 4096 

(der normale Inhalt ist 0) und bewundern Sie die neue 
Farbe. 

Die Routine, die das Bild selbst aufbaut, beginnt direkt 
bei $1000. Wenn Sie nach einem Ausstieg eingeben: 

POKE 4274,96:SYS 4096 

(der normale Inhalt ist 76), können Sie das gut erkennen: 
nur das Bild ohne Effekte erscheint. 

Kommen wir nun aber wieder auf die Speicherstelle 
$D011 zurück und widmen uns dem Modus, in dem man 
mern •. Is eine Hintergrundfarbe benutzen kann. Man nennt 
ihn »Extended Color Mode«, abgekürzt »ECM«. Es können 
jetzt nur noch 64 Zeichen aus dem Zeichensatz verwendet 
werden; die beiden höchsten Bits im Bildschirmcode be¬ 
stimmen die Farbquelle für die Hintergrundfarbe: Zu der 
üblichen Bildschirmfarbe ($d021) haben wir nun eine weite¬ 
re ($d024). In der Laufschrift im Demo sehen Sie, daß die 
Zeichen in drei verschiedenen Farbtönen blinken, als ob 
man bestimmte Textteile mit einem Textmarker (Leuchtstift) 
markiert hätte. Dieser Modus wird im Intro ab $0c04 einge¬ 
schaltet, indem der Wert $5b in das VIC-Kontrollregister 
$d011 geschrieben wird. Normal eingegebene Zeichen be¬ 
halten den Farbwert von $0286 (Cursorfarbe) bzw. die Far¬ 
be des entsprechenden Wertes aus dem Farbspeicher. 
GeSHIFTete Zeichen erhalten den Farbwert, der in $d022 
steht. Reverse Zeichen erhalten die Farbe aus $d023 und 
reverse geSHIFTete Zeichen den Farbwert der Adresse 
$d024. Um einen Blinkeffekt wie in der Laufschrift in dem 
Demo zu erreichen, müssen nur diese drei Farbwerte konti¬ 
nuierlich verändert werden. Diese Routine finden Sie im 
Demo ab $1114. 

Die Laufschrift 


Wie das Textband am unteren Bildschirmrand funktioniert, 
ist schnell erklärt. Es handelt sich um Buchstaben, die im 
Lores-Modus in die zweitunterste Bildschirmzeile geschrie¬ 
ben werden (nach dem Start des Intros). Soll nun die Bewe¬ 
gung nach links stattfinden, erfolgt zunächst das »Soft¬ 
scrolling«. Das heißt, im VIC-Register $d016 werden die un¬ 
tersten 3 Bit, die die waagerechte Position des Bildschirm¬ 
fensters in Pixelschritten festlegen, langsam von Null bis 
sieben durchgezählt. Die Routine befindet sich ab $1abe. 
Danach erfolgt ein »Hardscrolling«, die 40 Buchstaben der 
Zeile werden im Bildschirmspeicher um ein Zeichen nach 
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links geschoben (ab $1ad2). Genau gleichzeitig werden die 
3 Bit im VIC wieder auf Null gesetzt, damit die Schrift sich 
zitterfrei bewegt. An den rechten Rand wird das neue Zei¬ 
chen des Textes geschrieben ($1adf). So erfolgt je nach 
Scroll-Geschwindigkeit immer wieder nach einer bestimm¬ 
ten Anzahl IRQs das Softscrolling, und nach jeweils acht 
Softscroll-Vorgängen führt der C64 das Hardscrolling 
durch. 

farbeffekte 


Hinsichtlich der Rasterfarben-Programmierung sehen wir 
uns nun einmal eine Routine an, die durch entsprechende 
Farbwertverschiebung einen netten Effekt ergibt (im Hinter¬ 
grund der Laufschrift). In einem Bereich verschieben wir ei¬ 
ne beliebige Anzahl von Farbwerten jeweils in einem Kreis¬ 
lauf um einen Wert nach rechts. Der ehemals erste Farb¬ 
wert wird zum neuen letzten Wert. Im 64’er-lntro funktio¬ 
niert das wie folgt: Wir verschieben die Inhalte der Spei¬ 
cherzellen $e00 bis $e30 untereinander im Kreis herum 


und laden den Bereich von $e00 bis $e04 nach $ae4, $ae8 
und $aec. Dies sieht nun so aus, als ob eine Jalousie auf 
und zugeht. In $ae4 bis $aef stehen die Werte, die dann 
später als Rasterfarben eingelesen werden (die entspre¬ 
chende Routine findet sich ab Adresse $1134). Das Ver¬ 
schieben selbst findet bei $115f statt. 

Einen kleinen Tip wollen wir Ihnen noch mitgeben. Wie 
bereits erwähnt, können Sie durch Druck auf den Joystick- 
Feuerknopf das Intro verlassen. Wenn Sie anstelle der 
Selbstmord-Routine, die bei $1a00 beginnt, von $0c66 auf¬ 
gerufen wird, den gesamten Intro-Speicher löscht und 
dann zum Basic-Warmstart springt, eine eigene Routine 
einbauen, die ein bestimmtes Programm von Diskette 
nachlädt und startet, haben Sie ein echtes, praktisches und 
sinnvolles Intro. 

Nach diesen vielfältigen Anregungen wird es Ihnen si¬ 
cher nicht mehr schwerfallen, eigene Demos in noch bes¬ 
serer Qualität zu programmieren. Wenn Sie eigene Werke 
an uns einschicken, würden wir uns sehr freuen. 

(Dirk Swienty/Nikolaus Heusler/ef) 
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Auf der Suche nach der Grafik 


Egal, wo Ihre Hires-Grafik liegt, »Hardmaker« fin¬ 
det sie. Multi-Color-Grafiken können auf Wunsch 
in Graustufen umgerechnet und auf dem MPS 801 
und mit den entsprechenden Anpassungen mit 
9- oder 24-Nadel-Druckern gedruckt werden. 

D er »Hardmaker« erlaubt es, Hires-Grafiken aus fast al¬ 
len Programmen aufs Papier zu bringen. Dazu stehen 
umfangreiche Routinen zur Verfügung, die dem Be¬ 
nutzer fast alle Arbeiten abnehmen. Nur das Papier müs¬ 
sen Sie noch von Hand einspannen. Das Programm, das 
ursprünglich für MPS-Drucker geschrieben war, unterstützt 
mit zwei Erweiterungen jetzt auch Epson-kompatible 9- 
oder 24-Nadel-Drucker. 

Eingabehinweise 

Geben Sie den »Hardmaker« (Listing 1) für den MPS 801/ 
803 bitte mit dem MSE ein, und speichern Sie ihn. Der Pro¬ 
grammstart erfolgt durch RUN. 

Danach sehen Sie auf dem Bildschirm (meistens) ein wü¬ 
stes Durcheinander von Punkten. Das ist der Bereich von 
$2000 bis $4000 als Multicolor-Grafik dargestellt. Das 
könnte z. B. Teil eines Computerspiels sein, das vorher im 
Computer war. Wenn Sie nun ein Programm auf Bilder un¬ 
tersuchen wollen, müßten Sie im »Diskworkmodus« dieses 
Programm laden, die Grafik finden, eventuell speichern 
und ausdrucken. Dazu stehen Ihnen folgende Funktionen 
zur Verfügung. 

Speicherbereiche 

Computergrafiken können nur an bestimmten Stellen im 
Speicher stehen, um vom VIC ausgelesen werden zu kön¬ 
nen. Ein solcher Bereich ist der von $2000 bis $3FFF. Die¬ 
sen Bereich sehen Sie grundsätzlich auf dem Bildschirm; 
er wird vom Programm als Grafik-RAM benutzt. Wollen Sie 
den Inhalt eines anderen Bereiches sehen, muß er nach 
$2000 transportiert werden. Dazu dienen die Tasten <1 > 
bis <6> und < — >: 

<1> : $4000 bis $5FFF 
<2> : $6000 bis $7FFF 
<3> : $8000 bis $9FFF 
<4> : $A000 bis $BFFF (RAM unterm Basic) 


<5> : $C000 bis $DFFF ($D000 bis $DFFF; RAM 
unter I/O) 

<6> : $E000 bis $FFFF (RAM unterm Kernel) 

< — > : $0000 bis $1FFF. Dieser Bereich ist nur der 
Vollständigkeit halber per Taste erreichbar. 
Benutzen können Sie ihn nicht, da dort Zero¬ 
page, Stack, Video-RAM und der Hardmaker 
selbst liegen! 


Wenn Sie auf eine dieser Tasten ohne <SHIFT>, 
<CTRL> oder < CBM > drücken, wird der entsprechende 
Speicherbereich nach $2000 transportiert und ist damit auf 
dem Bildschirm sichtbar. Drücken Sie jedoch <SHIFT> 
und eine dieser Tasten, wird der entsprechende Bereich mit 
dem ab $2000 ODER-verknüpft. So können zwei Bilder zu¬ 
sammengemischt werden. Das Ergebnis liegt wieder ab 
$2000 im Speicher. 


Folgende Kombinationen bewirken also: 


<-> bis <6> 

<SHIFT> 

<CBM > 

<SHIFT CBM> 
<CTRL> 

<CTRL SHIFT> 
oder < CTRL CBM > 


^ jeweiligen Bereich nach 
$2000 kopieren 
= ODER-Verknüpfen 
= EX-OR-Verknüpfen 
=£= UND-Verknüpfen 
= Bereich mit dem ab 
$2000 vertauschen 
& $2000 bis $3FFF in 
entsprechenden Bereich 
kopieren 


Wenn Sie eine Kombination mit <CTRL> drücken, wird 
der entsprechende Speicherplatz verändert! Auf diese Wei¬ 
se können Sie z.B. den Inhalt von $2000 bis $3FFF Zwi¬ 
schenspeichern, wenn Sie ihn danach weiterbearbeiten 
wollen (z. B. bei schwierigen Korrekturen). 

Bilder »schneiden« 

Manchmal kommt es vor, daß nicht der gesamte Inhalt 
des Bildschirms zu einer Grafik gehört und man den Rest 
»wegschneiden« möchte. Z. B. wollen Sie am rechten Rand 
etwas entfernen. Dazu drücken Sie die Taste <R>. Der 
Rahmen wechselt seine Farbe und an der rechten Seite er¬ 
scheint eine flackernde Linie, die Sie mit < CURSOR-Iinks/ 
-rechts> hin- und herbewegen können. 
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Wenn Sie die Linie richtig positioniert haben, drücken 
Sie auf < SPACE>; der Bereich rechts der Linie wird ge¬ 
löscht (oder gefüllt, wenn Sie <SHIFT SPACE > drücken). 
Möchten Sie nichts löschen, dann drücken Sie <Q>, und 
die flackernde Linie ist verschwunden. 


<R> : rechts 
<L> : links 
<0> : oben 
<U> : unten 


Randfarbe: orange 
Randfarbe: blau 
Randfarbe: hellrot 
Randfarbe: grün 


Im Schneidemodus stehen folgende Funktionen zur Ver¬ 
fügung: 

-Cursor nach oben/unten (nur <0>, <U>) 

-Cursor nach oben links/rechts (nur <L>, <R>) 

- < SPACE >, <SHIFT SPACE > 

- <Q> (wie quit) 


Bilder verschieben 

Wenn die Grafik nicht genau oben links beginnt, muß sie 
verschoben werden. Eine Möglichkeit ist das Scrollen: 

MitCBM-Taste + Cursor-Taste wird die Grafik um 1 Byte 
nach links oder rechts verschoben. 

Die andere Möglichkeit sind die Tasten <A> und <E>. 
Positionieren Sie den Cursor irgendwo mitten auf dem Bild¬ 
schirm und drücken Sie < A>: Die Grafik wird so verscho¬ 
ben, daß die Cursorposition nun den Anfang der Grafik bil¬ 
det. Analog funktioniert hier die Taste < E >: Die Cursorpo¬ 
sition bildet jetzt das Ende der Grafik. Diese Funktionen er¬ 
möglichen ein bequemes Positionieren einer Bitmap, die ir¬ 
gendwo im Speicher liegt. 


Farbe 

Mit den Funktionstasten kann die Farbe der Grafik geän¬ 
dert werden, wenn die Ausgangsbelegung (die sich für 
Schwarzweiß-Femseher übrigens gut eignet) nicht gefällt: 


<F1 >/< F2> 
<F3>/<F4> 
<F5>/< F6> 
< F7 >/ < F8 > 


Farbe 1 Hires/Multi 
Farbe 2 Hires/Multi 
Farbe 3 Multi 
Farbe 4 Multi 


Die Funktionstaste blättert die Farben vorwärts, geSHIF- 
Tet blättert die Farben zurück. Für Multi und Hires sind ge¬ 
trennte Farb-Speicher vorhanden. 


Folgende Tasten bewegen den Cursor: 


Cursortasten 
<RETURN> 

<SHIFT 

CLEAR/HOME> 

<CLEAR/HOME> 

<£> 


< SPACE > 
<SHIFT SPACE > 


<CBM SPACE> 


gewohnte Cursor-Bewegung 
bewegt ihn in die erste Spalte der 
nächsten Zeile 
löscht die Grafik 

Cursor links oben 
(Gegenteil von <HOME>: 
Cursor in letzte Spalte letzte 
Zeile) 

Cursor rechts 
löschen 
Cursor rechts 
mit Farbe 3 
Cursor rechts 
mit Farbe 1 


+ Cursorfeld 
+ Cursorfeld füllen 
+ Cursorfeld füllen 


<CTRLSPACE> Cursor rechts + Cursorfeld füllen 
mit Farbe 2 

<INST/DEL> genauso wie <SPACE>, bloß mit 

Cursor nach links (also kein 
echtes DEL!) 

Sonderfunktionen 

< H > schaltet Hires-Modus ein; genauso wie Sie 

die Grafik nun sehen, wird sie von einem 
Matrixdrucker ausgegeben werden. 

< M > schaltet Multicolor an. 

<T> ist eine sehr praktische Sache, wenn man 

einen der unter »Hardcopy« erwähnten 
Matrixdrucker besitzt. Diese geben die 
Multicolor-Grafiken nämlich so aus, daß die 
Farben 1 und 2 als charakteristische Linien 
erscheinen. <T> verwandelt diese Farben 
nun in Graustufen, die der Drucker ausgeben 
kann (siehe auch Textkasten). <T> funktio¬ 
niert nur, wenn Multicolor eingeschaltet ist, 
und schaltet dann auf Hires um! 

< I > invertiert die Grafik 

<S> spiegelt die Grafik an der Vertikalen, und 
vertauscht die Farben 1 und 2, die ja 
ebenfalls gespiegelt werden. Spiegeln an der 
Horizontalen ist nicht nötig, da man ja die 
Hardcopy einfach umdrehen kann! 

<X> kehrt ins Basic zurück. 

Funktionsweise des T-Befehls beim Hardmaker 

Im Multicolor-Modus stellen immer je 2 Bit eines Bytes 

die Information für einen Bildpunkt zur Verfügung, so daß 

die Auflösung gegenüber dem Hires-Modus halbiert wird. 

Farbige Grafiken in Graustufen umsetzen 


Dafür hat man vier Farben statt zwei zur Auswahl, die durch 
die Bitkombinationen 00, 01, 10 und 11 repräsentiert wer¬ 
den. Ein normaler Matrixdrucker hat hingegen keinen 
Multicolor-Modus und stellt die Bitmuster genauso dar, wie 
sie im Grafik-ROM stehen. Das führt bei Flächen, die aus 
den Farben 1 und 2 bzw. den Bitmustern 01 oder 10 beste¬ 
hen, zu den bekannten Streifenmustern. Um diese in Grau¬ 
stufen umzuwandeln, geht der Computer folgendermaßen 
vor: Die vier 2-Bit-Kombinationen eines jeden der 8000 
Byte des Grafik-RAMs werden nach den Bitkombinationen 
01 und 10 untersucht. 

1. Fall: 2-Bit-Kombination = 00 oder 11: nichts wird verän¬ 
dert. 

2. Fall: 2-Bit-Kombination = 01: In diesem Fall werden die 
2 Bit invertiert, also durch 10 ersetzt, aber nur dann, wenn 
die 2 Bit Bestandteil des 1., 3., 5. etc. Bytes des Grafik- 
RAMs sind. Dadurch wird das Bitmuster in jeder zweiten 
Grafikzeile um 1 Bit nach links versetzt. Wenn die ersten 3 
Byte also 


01 

01 

00 

01 

10 

10 

00 

10 

01 

01 

11 

01 lauten, so wird daraus 

01 

01 

11 

01 

01 

01 

01 

01 

10 

10 

10 

10 


Kurzinfo: Hardmaker 


Programmart: Hardcopy-Routine für Hires-Grafiken. 

Laden: LOAD "HARDMAKER",8 
Start: Nach dem Laden RUN eingeben. 

Besonderheiten: Mit dem Zusatzprogramm .MULTIPRINT« wird 
das Programm an 9-Nadel-Drucker, mit »HARDMAKER 24.0BJ« an 
24-Nadel-Drucker angepaßt. Beachten Sie bitte die genauen 
Installationshinweise am Ende des Artikels. 

Programmautor: C. Kurts 


und der Drucker gibt ein gleichmäßig graues Feld aus. 
3. Fall: Bit-Kombination = 10 
Hierbei würde aus den ersten 3 Byte 
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10 

00 

10 

01 

10 

00 
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10folgendes werden: 
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01 

11 
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Also ein etwas gröberes Graufeld. Das wird dadurch er¬ 
reicht, daß eine 2-Bit-Kombination invertiert wird, wenn sie 
entweder im 1., 3., 5.Byte die 1. oder 3. 2-Bit-Kombina- 



92 


SONDERHEFT 45 












LISTINGS 


tion oder im 2., 4., 6.Byte die 2. oder 4. 2-Bit-Kombina- 

tion ist. 

Diskworkmodus 

Wird mit < D > aktiviert. Die Grafik wird dann ausgeblen¬ 
det und Sie haben den normalen Kernel-Editor vor sich. Fol¬ 
gende Befehle wurden hier implementiert: 

$ Directory 

@ Kommandokanal des Laufwerks abfragen 

@i initialisieren (analoges gilt für SCRATCH, 

RENAME, FORMAT etc.) 
n gibt die aktuelle Geräteadresse aus 
(voreingestellt 8) 

n9 schaltet auf Geräteadresse 9 um 

? arbeitet wie der normale Basic-PRINT-Befehl, 

kann aber hier für Berechnung genutzt werden 
Q schaltet den Grafikmodus wieder an 

X Rückkehr zum Basic 

- Mit - kann aus dem Hardmaker heraus eine 

Grafik gespeichert werden; z.B. »—Bild 1 
<RETURN>« speichert den Bereich $2000 
bis $3FFF (genauer bis $3F40) auf Diskette 
unter dem Namen »Bild 1« ab. Das erzeugte 
Programmfile ist 32 Blöcke lang. 

£ Um ein Programm nach Grafiken zu durch¬ 
suchen, muß man es irgendwie in den 
Computer bekommen. Die eine Möglichkeit ist, 
das Programm zu laden, zu starten, mit Reset 
auszusteigen und dann den Hardmaker nach¬ 
zuladen. Dies empfiehlt sich immer dann, 
wenn das Programm die Grafik erst erzeugt. 
Außerdem liegt diese dann meist an der 
richtigen Stelle im Speicher, so daß man nicht 
mehr zu verschieben braucht. Die andere 
Möglichkeit ist, erst den Hardmaker zu laden 
und dann mit dem £-Befehl das betreffende 
Programm (mit £ Name < RETURN >). Dies 
wird dann in den Bereich ab $2000 geladen, 
so daß ein Autostart entfällt. Diese Methode 
kann zu Problemen führen, wenn das 
betreffende File länger als 178 Blöcke ist, weil 
dann in die Register der I/O-Bausteine 
geladen wird. Diese Methode ist aber dann 
nötig, wenn ein Programm sich nicht durch 
Reset stoppen läßt. 

Hardcopy 

Dieser Programmteil ist der wichtigste wie auch der pro¬ 
blematischste. Eine Hardcopy-Routine muß an die meisten 
Drucker speziell angepaßt werden. Die im »Hardmaker« in¬ 
tegrierte Hardcopy-Routine spricht Drucker mit sieben Na¬ 
deln an, also den MPS 801, den MPS 803, und Epson- 
Drucker mit entsprechendem Interface. Aktiviert wird die 
Hardcopy mit der Taste < P>. Daraufhin färbt sich der Rah¬ 
men schwarz, und der C 64 beginnt mit der Hardcopy. Da¬ 
nach wird in den Grafikmodus zurückgesprungen. 

Warum soll man sich mit einem Epson-Drucker auf die 
Grafikfähigkeiten eines MPS 801/803 beschränken? Die 
grafischen Möglichkeiten eines Epson-kompatiblen Druk- 
kers erlauben es außerdem, Multicolor-Grafiken durch Zu¬ 
ordnung von Graustufen auszugeben. Dadurch kann eine 
noch realistischere Wiedergabe in Graustufen (»T-Befehl«) 
geboten werden. 

Für die Ausgabe von Hires-Grafiken wurde bei »Multi¬ 
print« darauf Wert gelegt, daß sowohl Bilder im Hires- 
Modus als auch Grafiken im Multicolor-Modus gedruckt 
werden können. Um eine möglichst große Flexibilität zu er¬ 
reichen, wurden Hardcopy-Routinen gewählt, die sowohl 
Drucker über den seriellen lEC-Bus als auch über eine 
Centronics-Schnittstelle bedienen können. 


An der Bedienung hat sich nichts geändert. Der Start des 
Druckerprogramms erfolgt durch Drücken der Taste < P >. 
Dabei erfolgt der Ausdruck im Hires-Modus, wenn die Bild¬ 
schirm-Darstellung ebenfalls Hires darstellt. Wurde zuvor 
mit Taste < M > Multicolor angewählt, so wird eine Umset¬ 
zung der Bildschirm-Darstellung in Graustufen durchge¬ 
führt. Dabei wird der Helligkeitseindruck des momentan 
angezeigten Bildes zugrundegelegt. Die Parameter für die 
Hardcopy ermittelt das Programm automatisch. Jeder der 
16 möglichen Farben ist über eine Tabelle der Wert 0 (weiß), 
1 (hellgrau), 2 (dunkelgrau) und 3 (schwarz) zugeordnet. 
Aus diesem Grund empfiehlt es sich, das Bild auf einem 
monochromen Monitor oder einem Schwarzweiß-Fern¬ 
seher zu betrachten (Farbmonitor: Farbintensität zurück¬ 
drehen). 

Hinweise zum Eintippen und zur Drucker-Anpassung 

Geben Sie das neue Druckprogramm (Listing 2) bitte mit 
dem MSE ein und speichern Sie es. Laden Sie dann den 
»Hardmaker«. Danach laden Sie das neue Druckprogramm 
mit LOAD »MULTIPRINT«,8,1. Jetzt müssen Sie noch die 
Zeiger für den Programmbeginn und das neue Programm- 
Ende korrigieren. Dies erreichen Sie mit folgenden POKE- 
Befehlen im Direktmodus: 

P0KE 43,1:P0KE 44,8:P0KE 45,30:P0KE 46,23 

In der abgedruckten Form arbeitet das Programm mit 
Druckern zusammen, die am seriellen Port des Commodo- 
re 64 angeschlossen und über Geräteadresse 4, Sekundär¬ 
adresse 1, im Linearmodus betrieben werden. Die Geräte¬ 
adresse ist im Programm in der Speicherstelle 5866 
($16EA) abgelegt. Die Sekundäradresse steht in Speicher¬ 
stelle 5867 ($16EB). 

Wollen Sie dagegen einen Drucker mit Parallelschnitt¬ 
stelle direkt am User-Port betreiben, so geben Sie bitte 
»POKc! 5410,0« ein. Dadurch wird der ebenfalls im Pro¬ 
gramm enthaltene Centronics-Druckertreiber aktiviert. 

Wenn Sie noch ein übriges tun wollen, so sollten Sie die 
Voreinstellungen für die Multicolor-Farben ändern, damit 
Sie auch auf einem Farbmonitor eine Darstellung in Grau¬ 
werten erhalten. Sie müssen dazu lediglich zwei POKE- 
Befehle geben: 

P0KE 2088,1:P0KE 2100,252 

Jetzt speichern Sie die neue Version mit SAVE " HARD¬ 
MAKER",8. 

Auch für 24-Nadel-Drucker 


Listing 3 paßt auf ähnliche Art und Weise den Hardmaker 
an 24-Nadel-Drucker an. Grafiken kann ein Plotter kaum 
besser zeichnen. Mit diesen hochwertigen Druckern nutzt 
man seinen C64 erst richtig aus. 

Für die Installation der Hardcopy-Routine gehen Sie fol¬ 
gendermaßen vor: 

1. Geben Sie Listing 1 »HARDMAKER 24.0BJ« mit dem 
MSE ein und speichern das Programm auf Diskette. 

2. Laden Sie den Hardmaker wie gewohnt: 

LOAD "HARDMAKER",8 

3. Laden Sie die neue Hardcopy-Routine HARDMAKER 
24.0BJ absolut in den Speicher: 

LOAD "HARDMAKER 24.OBJ",8,1 

4. Speichern Sie nun den neuen Hardmaker auf Diskette: 

SAVE "HARDMAKER 24", 8 

Nun ist die Installation beendet. Die Bedienung der modi¬ 
fizierten Version ist mit der alten Version völlig identisch. 
Der Druckvorgang wird nach wie vor mit <P> gestartet. 
Anschließend färbt sich der Bildschirmrahmen schwarz 
und das Drucken beginnt... 

Ein paar Tricks sollen Ihnen nun die Anpassung an Ihren 
Drucker, falls notwendig, erleichtern. 
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Die Druckroutine arbeitet auf allen gängigen 24-Nadel- 
Druckern, die mit »ESC * 39« die Grafikpunktdichte 180 dpi 
(Dots per Inch = Punkte pro Zoll) ansteuern. Für ein korrek¬ 
tes Untereinanderliegen der einzelnen Druckzeilen sorgt 
der »ESC 3 n = 24«-Befehl, der den Zeilenabstand auf 
24/180 Zoll festlegt. Weiterhin ist die Hardcopy so program¬ 
miert, daß Interface-Fehler, wie sie unter anderem das Mer- 
lin-Face C verursacht, ausgeschlossen sind. Das beruht 
auf der Tatsache, daß die teuflische Fehler verursachenden 
Bitkombinationen nicht mehr Vorkommen. Für einen kor¬ 
rekten Ausdruck muß natürlich die Sekundäradresse auf 
Linearkanal geschalten werden, damit die Daten unverän¬ 
dert das Interface passieren. Voreingestellt ist die Sekun¬ 
däradresse 1. Benötigen Sie eine andere Adresse, dann ge¬ 
hen Sie wie folgt vor: 

1. Laden Sie den für 24-Nadler angepaßten Hardmaker: 

LOAD"HARDMAKER 24" ,8 

2. Geben Sie folgenden Befehl ein: 

POKE 5029, Sekundäradresse 


3. Für die Einstellung des linken Randes ist 
POKE 5094, Anzahl der Space am linken Rand 
zuständig. Speichern Sie nun die an Drucker und Inter¬ 
face angepaßte Hardmaker-Version mit: SAVE "HARD¬ 
MAKER 24.SA" ,8. 

Mit Hilfe des linken Randes kann man gleichzeitig festle¬ 
gen, ob ein Linefeed vom Drucker gesendet werden muß, 
Wird vom Drucker nach »CR« (Carriage Return, CHR$(13)) 
zusätzlich in »LF« (Linefeed, CHR$(10)) benötigt, genügt 
es, zum Wert des linken Randes 80 hinzuaddieren. 

Funktionsweise: Vor jeder Grafiksequenz wird eine An¬ 
zahl von Space zum Drucker gesandt. Ubersteigt diese An¬ 
zahl Leerzeichen den Wert 80, führt der Drucker einen Wa¬ 
genrücklauf samt Zeilenvorschub aus. Anschließend 
druckt er den Rest der Spaces, die nun den linken Rand 
charakterisieren, und die Grafikzeile. Vorsicht! Der Wert 
des linken Randes darf nicht Null sein, da der Computer sie 
als 256 interpretieren würde. Der kleinste Wert für den lin¬ 
ken Rand ist 1. (C. Kurts/M. Wilhelm/T. Lipp/ef) 
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b9 

20 

e3 

Hfl 

: 96 

ff 

20 

a5 

ff 

24 

90 

70 

88 

llf9 

: 05 

20 

d2 

ff 

dO 

f4 

20 

ab 

4f 

1201 

: ff 

20 

44 

12 

20 

44 

12 

60 

91 

1209 

: ad 

e2 

03 

85 

ba 

20 

bl 

ff 

Oc 

1211 : 

: a9 

6f 

85 

b9 

20 

93 

ff 

20 

e9 

1219 : 

: 79 

00 

20 

a8 

ff 

20 

73 

00 

7e 

1221 : 

: c9 

00 

dO 

f6 

20 

ae 

ff 

18 

a5 

1229 : 

: 60 

ad 

e2 

03 

85 

ba 

a2 

00 

32 

1231 : 

: 86 

90 

20 

b4 

ff 

20 

ab 

ff 

4e 

1239 : 

: a5 

90 

fO 

eb 

a2 

Oa 

20 

f4 

c5 

1241 : 

: 10 

38 

60 

48 

a9 

Od 

20 

d2 

b8 

1249 : 

: ff 

68 

60 

20 

9b 

b7 

8e 

e2 

10 

1251 : 

: 03 

4c 

al 

10 

20 

79 

a5 

20 

89 

1259■: 

: 73 

00 

20 

73 

00 

20 

aO 

aa 

lc 

1261 : 

: 4c 

al 

10 

aO 

00 

bl 

7a 

fO 

ef 

1269 : 

: 05 

c8 

cO 

28 

90 

f7 

60 

20 

92 

1271 : 

: 2a 

12 

bO 

34 

a9 

20 

8d 

eO 

eb 

1279 : 

: 03 

a9 

00 

8d 

df 

03 

20 

73 

80 

1281 : 

: 00 

a5 

7b 

85 

bc 

a5 

7a 

85 

dl 

1289 : 

: bb 

20 

64 

12 

84 

b7 

ad 

e2 

32 

1291 : 

: 03 

85 

ba 

a9 

00 

85 

b9 

a2 

93 

1299 : 

: 00 

86 

Oa 

aO 

20 

20 

d5 

ff 

cd 

12al : 

: bO 

09 

20 

44 

12 

20 

eO 

11 

2e 

12a9 : 

: 4c 

al 

10 

20 

e8 

12 

20 

eO 

2f 

12b 1 : 

: 11 

4c 

al 

10 

20 

2a 

12 

bO 

50 

12b9 : 

: ef 

20 

73 

00 

a5 

7b 

85 

bc 

5b 

12cl : 

: a5 

7a 

85 

bb 

20 

64 

12 

84 

f3 

12c9 : 

: b7 

a9 

00 

ae 

e2 

03 

a8 

20 

54 

12dl : 

: ba 

ff 

a9 

00 

85 

69 

a9 

20 

80 

12d9 : 

85 

6a 

a2 

43 

aO 

3f 

a9 

69 

cl 

12el : 

: 20 

d8 

ff 

90 

bd 

bO 

c4 

a2 

39 

12e9 : 

00 

bd 

f6 

12 

fO 

06 

20 

d2 

2d 

12fl : 

ff 

e8 

dO 

f5 

60 

Od 

4f 

50 

a3 

12 f 9 : 

45 

52 

41 

54 

49 

4f 

4e 

20 

cb 

1301 : 

53 

54 

4f 

50 

50 

45 

44 

Od 

b7 

1309 : 

00 

ad 

16 

dO 

29 

10 

fO 

11 

78 

1311 : 

a9 

3f 

85 

3c 

a9 

25 

8d 

Od 

57 

1319 : 

Oa 

a9 

13 

8d 

Oe 

Oa 

20 

fa 

16 

1321 : 

09 

4c 

3f 

Od 

a2 

03 

bl 

3b 

41 

1329 : 

3d 

68 

13 

fO 

34 

48 

3d 

6c 

dl 

1331 : 

13 

fO 

13 

66 

3d 

70 

13 

dO 

d3 

1339 : 

28 

98 

4a 

bO 

24 

bl 

3b 

5d 

cd 

1341 : 

68 

13 

91 

3b 

dO 

lb 

68 

84 

8f 

1349 : 

fd 

8a 

45 

fd 

4a 

bO 

09 

bd 

66 

1351 : 

68 

13 

11 

3b 

91 

3b 

dO 

09 

37 

1359 : 

bd 

68 

13 

49 

ff 

31 

3b 

91 

d2 

1361 : 

3b 

ca 

10 

c2 

4c 

Of 

Oa 

cO 

45 

1369 : 

30 

Oc 

03 

40 

10 

04 

01 

80 

8e 

1371 : 

20 

08 

02 

a9 

00 

8d 

20 

dO 

da 

1379 : 

20 

aO 

13 

4c 

76 

08 

ea 

ea 

61 

1381 : 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

80 

1389 : 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

88 


Listing 1. »Hardmaker« erzeugt 
Hardcopys mit MPS 801/803. 
Bitte mit dem MSE 
(Seite 159) eingeben. 


SONDERHEFT 45 


95 









LISTINGS 


1391 : 

ea 

ea 

ea 

ea 

ea 

ea 

56 

f2 

4d 

1399 : 

df 

2d 

00 

52 

d3 

eb 

e7 

a9 

e9 

13al : 

20 

8d 

f5 

14 

a9 

04 

85 

ba 

ce 

13a9 : 

a2 

00 

86 

90 

86 

fe 

20 

bl 

43 

13bl : 

ff 

20 

ae 

ff 

a6 

90 

fO 

01 

21 

13b9 : 

60 

86 

b9 

86 

b7 

e8 

86 

b8 

ea 

13 ol : 

20 

cO 

ff 

a6 

b8 

20 

c9 

ff 

ca 

13 c9 : 

a9 

ff 

85 

61 

a9 

07 

8d 

f6 

f6 

13dl : 

14 

a9 

lc 

85 

97 

a9 

00 

8d 

'52 

13d9 : 

fl 

14 

a9 

28 

8d 

f3 

14 

a2 

13el : 

04 

bd 

ce 

14 

20 

d2 

ff 

ca 

28 

13e9 : 

10 

f7 

a9 

00 

85 

63 

85 

64 

b2 

13 fl : 

ad 

fl 

14 

85 

65 

a9 

00 

8d 

Ob 

13f9 : 

f7 

14 

a5 

63 

a6 

64 

a4 

65 

bb 

1401 : 

20 

93 

14 

ae 

f7 

14 

a5 

ad 

d8 

1409 : 

aO 

00 

bl 

ac 

ae 

f7 

14 

9d 

el 

1411 : 

f8 

14 

e6 

65 

e8 

8e 

f7 

14 

85 

1419 : 

ec 

f6 

14 

dO 

dd 

a9 

00 

aO 

Oc 

1421 : 

07 

dO 

02 

dO 

b5 

ae 

f6 

14 

00 

1429 : 

le 

f8 

14 

2a 

ca 

10 

f9 

25 

6d 

1431 : 

61 

09 

80 

20 

d2 

ff 

ad 

8d 

3a 

1439 : 

02 

29 

01 

dO 

f9 

a5 

91 

10 

5d 

1441 : 

3d 

88 

10 

el 

a5 

63 

18 

69 

ab 

1449 : 

08 

85 

63 

90 

02 

e6 

64 

ce 

85 

1451 : 

f3 

14 

dO 

9c 

a9 

Od 

20 

d2 

3f 

1459 : 

ff 

ad 

fl 

14 

18 

69 

07 

8d 

32 

1461 : 

fl 

14 c6 

97 

fO 

02 

dO 

bb 

db 

1469 : 

a9 

04 cd 

f6 

14 

fO 

Of 

8d 

87 

1471 : 

f6 

14 a9 

01 

85 

97 

a9 

Of 

d6 

1479 : 

85 

61 dO 

ea 

a9 

01 

85 

fe 

f7 

1481 : 

a9 

Of 20 

d2 

ff 

a9 

Od 

20 

d6 

1489 : 

d2 

ff 

20 

cc 

ff 

a9 

01 

4c 

e6 

1491 : 

c3 

ff 85 

14 

86 

15 

98 

4a 

40 

1499 : 

4a 

4a 

aa 

bd 

d3 

14 

85 

ad 

ba 

l4al : 

8a 

29 03 

aa 

bd 

ed 

14 

85 

7d 

I4a9 : 

ac 

98 

29 

07 

18 

65 

ac 

85 

37 

l4bl : 

ac 

a5 14 

29 

f8 

85 

63 

ad 

ff 

I4b9 : 

f5 

14 18 

65 

ad 

85 

ad 

a5 

74 

l4el : 

ac 

18 65 

63 

85 

ac 

a5 

ad 

ef 

l4c9 : 

65 

15 

85 

ad 

60 

50 

00 

10 

79 

14dl : 

lb 

08 

00 

01 

02 

03 

05 

06 

69 

I4d9 : 

07 

08 

Oa 

Ob 

Oc 

Od 

Of 

10 

4e 

l4el : 

11 

12 

14 

15 

16 

17 

19 

la 

56 

I4e9 : 

lb 

lc 

le 

lf 

00 

40 

80 

cO 

03 

l4fl : 

00 

00 

00 

00 

00 

00 

00 

00 

f2 

l4f9 : 

00 

00 

00 

00 

00 

00 

00 

ff 

f9 


Listing 1. (Schluß) 


Name : multiprint 13aO 17le 


13 aO 

: a9 

00 

85 

b7 

ad 

ea 

16 

85 

37 

13 a8 

: ba 

85 

b8 

ad 

eb 

16 

85 

b9 

02 

13b0 

: ad 

16 

dO 

29 

10 

dO 

06 

a9 

b5 

13b8 

: 81 

4c 

80 

15 

ea 

a6 

b8 

20 

29 

13c0 

: cO 

ff 

a6 

b8 

20 

c9 

ff 

a9 

e4 

13c8 

: 20 

85 

15 

aO 

00 

84 

14 

ae 

d6 

13 dO 

: de 

03 

20 

05 

14 

98 

95 

57 

e4 

13d8 

: c8 

a5 

fb 

4a 

4a 

4a 

4a 

aa 

30 

13e0 

: 20 

05 

14 

98 

95 

57 

c8 

a5 

ld 

13e8 

: fb 

29 

Of 

aa 

20 

05 

14 

98 

3d 

13 fO 

: 95 

57 

c8 

ae 

dd 

03 

20 

05 

b9 

13 f 8 

: 14 

98 

95 

57 

20 

la 

14 

ea 

a2 

1400 

: a9 

01 

4c 

c3 

ff 

bd 

Oa 

14 

f4 

1408 

: aa 

60 

03 

00 

03 

01 

02 

02 

e8 

1410 

: 03 

01 

02 

03 

02 

03 

02 

01 

b7 

1418 

: 02 

01 

aO 

01 

b9 

44 

15 

20 

35 

1420 

: 21 

15 

88 

10 

f7 

a9 

00 

85 

c8 

1428 

: 62 

a9 

00 

85 

63 

20 

e4 

ff 

da 

1430 

: fO 

03 

4c 

Od 

15 

aO 

03 

b9 

2c 

1438 

: 40 

15 

20 

21 

15 

88 

10 

f7 

f5 


1440 

: 

a9 

00 

85 

61 

a5 

14 

a4 

15 

2f 

1448 

: 

85 

22 

84 

23 

a4 

63 

a2 

00 

54 

1450 

: 

78 

a9 

35 

c5 

01 

bl 

22 

95 

ec 

1458 

: 

64 

c8 

e8 

eO 

04 

dO 

f6 

a9 

6c 

1460 

: 

37 

85 

01 

58 

a9 

03 

85 

60 

2f 

1468 

! 

a2 

03 

b5 

64 

a4 

60 

fO 

06 

a3 

1470 

; 

4a 

4a 

88 

4c 

6e 

14 

18 

29 

c5 

1478 

j 

03 

95 

5b 

ca 

10 

ec 

aO 

00 

61 

1480 

: 

a2 

03 

a9 

00 

85 

5f 

a9 

03 

Oe 

1488 

: 

85 

68 

b5 

5b 

c5 

57 

dO 

06 

80 

1490 

: 

b9 

48 

15 

18 

90 

17 

c5 

58 

3f 

1498 

: 

dO 

06 

b9 

54 

15 

18 

90 

Od 

d3 

l4a0 

: 

c5 

59 

dO 

06 

b9 

60 

15 

18 

2a 

I4a8 


90 

03 

b9 

6c 

15 

25 

68 

05 

de 

I4b0 

: 

5f 

85 

5f 

18 

26 

68 

18 

26 

ff 

I4b8 


68 

18 

ca 

10 

cd 

20 

21 

15 

6d 

l4c0 


c8 

cO 

08 

dO 

bb 

a6 

60 

ca 

Oc 

l4c8 


86 

60 

10 

9c 

18 

a5 

22 

69 

20 

l4d0 


08 

85 

22 

a5 

23 

69 

00 

85 

61 

l4d8 


23 

a6 

61 

e8 

86 

61 

eO 

28 

Ob 

l4e0 

: 

fO 

03 

4c 

4c 

14 

a6 

63 

e8 

c4 

I4e8 

: 

e8 

e8 

e8 

86 

63 

eO 

08 

fO 

8e 

14 fO 

j 

03 

4c 

2d 

14 

18 

a5 

14 

69 

b9 

I4f8 


40 

85 

14 

a5 

15 

69 

01 

85 

60 

1500 


15 

a6 

62 

e8 

86 

62 

eO 

19 

4f 

1508 


fO 

03 

4c 

29 

14 

aO 

01 

b9 

70 

1510 


46 

15 

20 

21 

15 

88 

10 

f7 

d3 

1518 


20 

cc 

ff 

a9 

01 

20 

c3 

ff 

f3 

1520 


60 

a2 

01 

fO 

03 

4c 

d2 

ff 

Oe 

1528 

: 

8d 

01 

dd 

a9 

10 

2c 

Od 

dd 

35 

1530 


fO 

fb 

ad 

00 

dd 

09 

04 

8d 

db 

1538 


00 

dd 

29 

fb 

8d 

00 

dd 

60 

02 

1540 

i 

05 

00 

4c 

lb 

31 

lb 

40 

lb 

df 

1548 


00 

00 

00 

00 

00 

00 

00 

00 

49 

1550 

: 

00 

00 

00 

00 

aä 

00 

55 

00 

50 

1558 


aa 

00 

55 

00 

aa 

00 

55 

00 

58 

1560 


aa : 00 00 

00 55 00 O* OO 

60 

1568 


aa 

00 

00 

00 

aa 

55 

aa 

55 

bd 

1570 


aa 

55 

aa 

55 

aa 

55 

aa 

55 

c5 

1578 


00 

00 

00 

00 

00 

00 

00 

00 

79 

1580 

: 

85 

5b 

ad 

22 

15 

dO 

22 

78 

b4 

1588 


a9 

ff 

8d 

03 

dd 

ad 

02 

dd 

04 

1590 

: 

09 

04 

8d 

02 

dd 

ad 

00 

dd 

46 

1598 

: 

09 

04 

8d 

00 

dd 

a9 

10 

8d 

8d 

15 aO 

: 

Od 

dd 

ad 

Od 

dd 

58 

4c 

c4 

04 

15 a8 


15 

20 

cc 

ff 

a9 

04 

ae 

ea 

4c 

15b0 


16 

ac 

eb 

16 

20 

ba 

ff 

a9 

05 

15b8 


00 

20 

bd 

ff 

20 

eO 

ff 

a2 

85 

15c0 


04 

20 

c9 

ff 

a9 

04 

85 

5e 

d4 

15c8 


aO 

03 

20 

a2 

16 

a9 

80 

85 

02 

15dO 


5f 

a9 

02 

85 

60 

a5 

5b 

29 

28 

15d8 


cO 

dO 

04 

46 

5f 

46 

60 

a5 

bf 

15e0 

: 

5b 

29 

07 

a 2 

00 

20 

ba 

16 

fe 

15e8 

: 

a5 

5b 

30 

03 

4a 

4a 

4a 

29 

la 

15 fO 

: 

07 

a2 

02 

20 

ba 

16 

a9 

19 

02 

15 f 8 

! 

85 

5c 

a5 

5f 

30 

Oa 

aO 

14 

ff 

1600 

: 

a9 

20 

20 

21 

15 

88 

dO 

fa 

b4 

1608 

; 

aO 

08 

20 

a2 

16 

a5 

5f 

20 

55 

1610 

; 

21 

15 

a5 

60 

20 

21 

15 

a9 

e4 

1618 

; 

28 

85 

5d 

78 

a9 

34 

85 

01 

be 

1620 


aO 

07 

bl 

57 

99 

le 

17 

88 

93 

1628 

: 

10 

f8 

a9 

37 

85 

01 

58 

a5 

13 

1630 

: 

57 

18 

69 

08 

85 

57 

90 

02 

48 

1638 

j 

e6 

58 

aO 

08 

a2 

00 

3e 

le 

d3 

1640 

i 

17 

08 

2a 

e8 

28 

24 

5b 

30 

74 

1648 

: 

06 

eO 

08 

dO 

fl 

fO 

08 

2a 

f6 

1650 

i 

e4 

5e 

dO 

ea 

20 

21 

15 

20 

94 

1658 

; 

21 

15 

88 

dO 

df 

c6 

5d 

dO 

8b 

1660 

: 

ba 

a5 

5f 

10 

26 

a2 

01 

b4 

ac 

1668 

; 

57 

b5 

59 

95 

57 

94 

59 

ca 

b8 

1670 

: 

10 

f5 

a5 

5e 

49 

Oc 

85 

5e 

78 

1678 

: 

c9 

04 

fO 

Of 

a5 

5b 

30 

03 

5d 

1680 

: 

4c 

17 

16 

aO 

00 

20 

a2 

16 

a9 

1688 

: 

4c 

fa 

15 

c6 

5c 

dO 

f4 

aO 

dl 


1690 : 

: 00 

20 

a2 

16 

aO 

Od 

20 

a2 

44 

1698 : 

: 16 

20 

cc 

ff 

a9 

04 

20 

c3 

b4 

I6a0 : 

: ff 

60 

b9 

ec 

16 

c9 

ff 

fO 

6d 

I6a8 : 

: 06 

20 

21 

15 

c8 

dO 

f3 

60 

4d 

I6b0 : 

: aO 

06 

d9 

96 

lf 

fO 

03 

88 

33 

I6b8 : 

: dO 

f8 

a9 

00 

95 

57 

a9 

20 

6a 

I6c0 : 

: 95 

58 

60 

fb 

95 

58 

60 

ae 

14 

I6c8 : 

: e9 

16 

dO 

03 

4c 

d2 

ff 

48 

3d 

I6d0 : 

: 20 

fd 

16 

ad 

00 

dd 

29 

fb 

b6 

I6d8 : 

: 8d 

00 

dd 

09 

04 

8d 

00 

dd 

66 

I6e0 : 

: ad 

Od 

dd 

29 

10 

fO 

f9 

68 

f2 

I6e8 : 

: 60 

01 

04 

01 

Od 

ff 

ff 

lb 

fl 

16f0 : 

: 31 

ff 

ff 

ff 

lb 

4b 

ff 

ff 

2d 

I6f8 : 

: ff 

lb 

32 

ff 

ff 

48 

ad 

Od 

24 

1700 : 

: dd 

a9 

08 

8d 

04 

dd 

a9 

00 

3b 

1708 : 

: 8d 

05 

dd 

a9 

41 

8d 

Oe 

dd 

39 

1710 : 

: 68 

8d 

Oc 

dd 

48 

ad 

Od 

dd 

df 

1718 : 

: 29 

08 

fO 

f9 

68 

60 

ff 

ff 

4a 


Listing 2. »Multiprint«, 
eine Erweiterung für Epson- 
kompatible Drucker 


Name : hardmaker 24.obj 13a0 l4ef 


13 aO 

J 

a9 

04 

a2 

04 

aO 

01 

20 

ba 

7c 

13 a8 

: 

ff 

20 

cO 

ff 

a2 

04 

20 

c9 

46 

13bO 


ff 

a9 

lb 

20 

d2 

ff 

a9 

40 

a3 

13b 8 

: 

20 

d2 

ff 

a9 

Od 

20 

d2 

ff 

93 

13c0 

: 

a9 

lb 

20 

d2 

ff 

a9 

33 

20 

b4 

13c8 

: 

d2 

ff 

a9 

18 

20 

d2 

ff 

a9 

f3 

13d0 

: 

Od 

20 

d2 

ff 

a9 

00 

8d 

10 

93 

13d8 

: 

14 

a9 

20 

8d 

11 

14 

a9 

19 

05 

13eO 

: 

8d 

ed 

14 

a9 

20 

a2 

Oc 

20 

26 

13e8 

: 

d2 

ff 

ca 

dO 

fa 

a9 

lb 

20 

30 

13 fO 


d2 

ff 

a9 

2a 

20 

d2 

ff 

a9 

5d 

13 f 8 

; 

27 

20 

d2 

ff 

a9 

cO 

20 

d2 

ab 

1400 

: 

ff 

a9 

03 

20 

d2 

ff 

a9 

28 

bd 

1408 

: 

8d 

ec 

14 

aO 

00 

a2 

00 

b9 

ad 

1410 

; 

ff 

ff 

Oa 

3e 

CC 

14 

e8 

eO 

2c 

1418 

: 

08 

dO 

f7 

c8 

cO 

08 

dO 

ed 

Ob 

1420 


a2 

07 

aO 

07 

bd 

CC 

14 

Oa 

f5 

1428 

: 

3e 

d4 

14 

3e 

de 

14 

3e 

e4 

ce 

1430 


14 

bd 

CC 

14 

Oa 

3e 

d4 

14 

e7 

1438 


3e 

de 

14 

3e 

e4 

14 

bd 

cc 

31 

1440 


14 

Oa 

3e 

d4 

14 

3e 

de 

14 

52 

1448 


3e 

e4 

14 

9d 

cc 

14 

88 

10 

61 

1450 


d3 

ca 

10 

ce 

a2 

00 

bd 

e4 

51 

1458 


14 

20 

d2 

ff 

bd 

de 

14 

20 

84 

1460 


d2 

ff 

bd 

d4 

14 

20 

d2 

ff 

c9 

1468 


bd 

e4 

14 

20 

d2 

ff 

bd 

de 

7e 

1470 

; 

14 

20 

d2 

ff 

bd 

d4 

14 

20 

5c 

1478 


d2 

ff 

bd 

e4 

14 

20 

d2 

ff 

e3 

1480 

: 

bd 

de 

14 

20 

d2 

ff 

bd 

d4 

82 

1488 

: 

14 

20 

d2 

ff 

e8 

eO 

08 

dO 

b8 

1490 

: 

c5 

18 

ad 

10 

14 

69 

08 

8d 

97 

1498 

: 

10 

14 

90 

03 

ee 

11 

14 

ce 

9c 

l4a0 

; 

ec 

14 

fO 

03 

4c 

Ob 

14 

a9 

f4 

I4a8 

; 

Od 

20 

d2 

ff 

ce 

ed 

14 

fO 

08 

l4b0 


03 

4c 

e3 

13 

a9 

lb 

20 

d2 

ce 

l4b8 

: 

ff 

a9 

40 

20 

d2 

ff 

a9 

Od 

8e 

l4cO 

: 

20 

d2 

ff 

20 

CC 

ff 

a9 

04 

c9 

l4c8 


20 

c3 

ff 

60 

00 

00 

00 

00 

d6 

l4dO 


00 

00 

00 

00 

00 

00 

00 

00 

dl 

l4d8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

l4eO 

: 

00 

00 

00 

00 

00 

00 

00 

00 

el 

I4e8 

I 

00 

00 

00 

00 

00 

00 

lb 

fO 

37 


Listing 3. »Hardmaker 24.obj« 
erzeugt gestochen scharfe 
Grafiken auf 24-Nadel-Druckern 
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Fortsetzung von Seite 7 Bild 1 . Die Grafikfähigkeiten des VIC-II in der Übersicht 


nensprache) wird eine Bank durch Steuerung der Bits 0 
und 1 von PORT A des CIA # 2 (Adresse 56576 oder $DD00 
in Hexadezimaldarstellung) gewählt. Zur Änderung der 
Speicherabschnitte müssen diese 2 Bit auf Ausgabe ge¬ 


stern nicht verändert wird. Die oberen 4 Bit steuern den 
Platz des Bildschirmspeichers. Zur Veränderung der 
Adresse des Bildschirms ist folgende Anweisung erforder¬ 
lich: 


setzt sein. Dies wird anhand der nachstehenden Beispiele PQKt>7272, (PEEK( 53272 )AND 15 ) OR A 


deutlich: 

POKE 56578, PEEK(56578) OR 3 :REM BITS 0 UND 1 ALS 
AUSGANG SETZEN 

POKE 56576, (PEEK(56576)AND 252)0R A:REM VIDEO-BANK 
WECHSELN 

»A« muß einen der in Tabelle 1 dargestellten Werte ha¬ 
ben: 


Wert 
von A 

Bits 

Bank 

Start- 

Platz 

Bereich des VIC-ll-Chip 

0 

00 

3 

49152 

($C000-$FFFF)‘ 

1 

01 

2 

32768 

($8000-$BFFF) 

2 

10 

1 

16384 

($4000-$7FFF)' 

3 

11 

0 

0 

($0000-$3FFF) (Standardwert) 


•Anmerkung: Der Zeichensatz des C 64 ist in den Banks 1 und 3 für den VIC-II- 
Chip nicht verfügbar. (Siehe Abschnitt »Zeichenspeicher-.) 


Doch diese Anweisung genügt dem C64 noch nicht. Da¬ 
mit das Betriebssystem weiß, wo der aktuelle Bildschirm¬ 
speicher liegt, wird außerdem die Adresse 648 ($0288) ab¬ 
gefragt. Deren Inhalt (PEEK) errechnet sich aus den Adreß- 
werten der Tabelle 2 nach folgender Formel: 

Zahl = Adresse/256 

Nach dem Einschalten des C 64 steht in dieser Speicher¬ 
stelle immer der Standardwert "4", demnach liegt der Bild¬ 
schirmspeicher im »Normalfall« ab Adresse 1024 (4 x 256 
= 1024). Ergänzen Sie also die bereits bekannte Anwei¬ 
sung zum Verschieben des Bildschirms: 

POKE 53272, (PEEK (53272) AND 15) OR A: POKE 648, Zahl 


Tabelle 1. Die Bits 0 und 1 von Speicherstelle 56576 regeln 
den Zugriff des VC-ll-Chip auf den Speicher 

Dieses Konzept der 16-KByte-Abschnitte spielt bei allen 
Anwendungen des VIC-ll-Chip eine Rolle. Sie sollten stets 
wissen, auf welche Bank der VIC-II eingestellt ist, da dies 
beeinflußt, von wo die Zeichendatenmuster kommen, wo 
sich der Bildschirm befindet, von wo die Sprites kommen 
usw. Nach dem Einschalten des C64 sind die Bits 0 und 1 
der Speicherstelle 56576 gesetzt, und damit ist Bank 0 
($0000-$3FFF) für sämtliche Anzeigeinformationen einge¬ 
stellt. 

Bildschirmspeicher 

Durch POKEn in das Steuerregister 53272 ($D018 HEX) 
kann die Adresse des Bildschirmspeichers geändert wer¬ 
den. Dieses Register wird jedoch auch zur Steuerung des 
jeweils benutzten Zeichensatzes verwendet. Achten Sie 
daher besonders darauf, daß dieser Teil des Steuerregi- 

(3dÖi* 


A 

BITS 

ADRESSE* 

DEZIMAL 

HEXADEZIMAL 

0 

OOOOXXXX 

0 

$0000 

16 

0001XXXX 

1024 

$0400 (STANDARD) 

32 

0010XXXX 

2048 

$0800 

48 

0011 XXXX 

3072 

$0C00 

64 

0100XXXX 

4096 

$1000 

80 

0101 XXXX 

5120 

$1400 

96 

0110XXXX 

6144 

$1800 

112 

0111 XXXX 

7168 

$1C00 

128 

1000XXXX 

8192 

$2000 

144 

1001 XXXX 

9216 

$2400 

160 

1010XXXX 

10240 

$2800 

176 

1011XXXX 

11264 

$2C00 

192 

1100XXXX 

12288 

$3000 

208 

1101XXXX 

13312 

$3400 

224 

1110XXXX 

14336 

$3800 

240 

1111XXXX 

15360 

S3C00 


•Bitte denken Sie daran, daß die Startadresse der jeweiligen Bank des VIC-I 
Chip addiert werden muß. 


Tabelle 2. Die möglichen Adressen des Bildschirmspei¬ 
chers und die entsprechenden Bits in Adresse 53272 
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Farbspeicher 

Der Farbspeicher kann nicht verschoben werden. Er be¬ 
findet sich stets an den Speicherstellen 55296 ($D800) bis 
56295 ($DBE7). Bildschirmspeicher und Farbspeicher 
werden in den verschiedenen Grafikmodi unterschiedlich 
benutzt. Ein in einem bestimmten Modus erstelltes Bild 
sieht in einer anderen Grafikart häufig völlig anders aus. 

Zeichenspeicher 

Für die Programmierung von Grafiken ist es wesentlich, 
woher genau der VIC-II die Zeicheninformation bekommt. 
Normalerweise erhält der Chip die Konturen der anzuzei¬ 
genden Zeichen vom Character-Generator-ROM. In die¬ 
sem Chip werden die Muster gespeichert, die die verschie¬ 
denen Buchstaben, Zahlen, Interpunktionssymbole und al¬ 
le anderen Zeichen der Tastatur bilden. Eines der Merkma¬ 
le des C64 ist seine Fähigkeit, im RAM-Speicher befindli¬ 
che Muster zu benutzen. Diese RAM-Muster können von 
Ihnen beliebig verändert werden, so daß Ihnen ein nahezu 
unbegrenzter Satz an Symbolen für Spiele, Geschäftsan¬ 
wendungen etc. zur Verfügung steht. 

Ein normaler Zeichensatz enthält 256 Zeichen, bei dem 
jedes Zeiches durch 8 Byte bestimmt wird. Daher benötigt 
der komplette Zeichensatz 256x8 = 2 KByte. DaderVIC-ll- 
Chip gleichzeitig auf 16 KByte zugreift, gibt es acht mögli¬ 
che Positionen im Speicher für einen vollständigen Zei¬ 
chensatz. Sie brauchen natürlich nicht immer einen gan¬ 
zen Zeichensatz zu verwenden. Er muß jedoch stets an 
einer der acht möglichen Adressen beginnen. Die Lage des 
Zeichenspeichers wird durch 3 Bit des VIC-ll-Steuerregi- 
sters 53272 ($D018 Hex.) kontrolliert. Die Bits 3, 2 und 1 
steuern, wo sich der Zeichensatz in 2-KByte-Sätzen befin¬ 
det. Bit 0 wird überlesen. Bitte denken Sie daran, daß dies 
das gleiche Register ist, das auch die Lage des Bildschirm¬ 
speichers bestimmt. Um die Lage vom Zeichenspeicherzu 
ändern, benutzen Sie Tabelle 3 und die folgende Basic- 
Anweisung: 

POKE 53272,(PEEK(53272) AND 240) OR A 


WERT 

BITS 

ADRESSE DES ZEICHENSPEICHERS- 

VON A 


DEZIMAL 

HEXADEZIMAL 

0 

xxxxooox 

0 

$0000-$07FF 

2 

XXXX001X 

2048 

$0800-$0FFF 

4 

XXXX010X 

4096 

$1000-$17Fp') In Bank 0 und 2 
{für Zeichensatz- 

6 

XXXX011X 

6144 

$1800-$ 1 FFFj ROM reserviert. 

8 

XXXX100X 

8192 

$2000-$27FF 

10 

XXXX101X 

10240 

$2800-$2FFF 

12 

XXXX110X 

12288 

$3000-$37FF 

14 

XXXX111X 

14336 

$3800-$3FFF 


‘Bitte denken Sie daran, die Startadresse der Bank zu addieren. 


Tabelle 3. Die Lage des Zeichenspeichers wird durch Bit 3, 

2 und 1 in Adresse 53272 bestimmt 

Der VIC-ll-Chip kann immer nur auf einen Speicherbe¬ 
reich von 16 KByte zugreifen. Die Muster aller Zeichen sind 
aber im Zeichen-ROM zwischen den Speicherstellen 
53248 und 57343 ($D000 bis $DFFF) bereitgelegt. Sie be¬ 
finden sich also in der Bank 3. Andererseits ist der VIC-ll- 
Chip nach dem Einschalten des Computers auf die Bank 0 
gerichtet, und er sieht deshalb die Bank 3 mit den Zeichen¬ 
mustern nicht. Die Lösung dieses Problems bilden Spiege¬ 
lungen aller Zeichenmuster in bestimmte Bereiche der 
Bank 0 und der Bank 2. Der Videochip geht dann davon 
aus, daß sich die Zeichenmuster im Bereich 4096 bis 8191 
($1000 bis $1FFF) der Bank 0 und im Bereich 36864 bis 
40959 ($9000 bis $9FFF) der Bank 2 befinden, und holt sich 
von dort die Muster, die er zur Darstellung von Zeichen be¬ 
nötigt. 


Damit keine Mißverständnisse entstehen: Rein physika¬ 
lisch liegen die Zeichenmuster natürlich im Zeichen-ROM 
ab Adresse $D000, von der Programmlogik aber - die den 
VIC-ll-Chipsteuert-her gesehen, existieren die Spiegelbil¬ 
der. In den meisten Betriebszuständen des Videochip 
braucht man sich um diese Eigenart der Zeichenspeiche¬ 
rung nicht zu kümmern. Programme und Daten lassen sich 
ungehindert in den Spiegelbilderbereichen nutzen. Stö¬ 
rungen treten erst dann auf, wenn man einen Grafikspei¬ 
cher in solch eine Spiegelung legt, was man daher mög¬ 
lichst vermeiden sollte. Frei von derartigen Spiegelbildern 
sind die Banks 1 und 3. 

Die Tabelle 4 zeigt Ihnen den Aufbau des Zeichen-ROM 
und die dazu gehörenden Adressen der Spiegelung in 
Bank 0. 



ADRESSE 

VIC-II- 

SPIEGE¬ 

LUNG 

INHALT 

BLOCK 

DEZIMAL 

HEX 


0 

53248 

DOOO-D1FF 

1000-11 FF 

Großbuchstaben 


53760 

D200-D3FF 

1200-13FF 

Grafikzeichen 


54272 

D400-D5FF 

1400-15FF 

Großbuchstaben in 
Reversdarsteilung 


54784 

D600-D7FF 

1600-17FF 

Grafikzeichen in 
Reversdarstellung 

1 

55296 

D800-D9FF 

1800-19FF 

Kleinbuchstaben 


55808 

DAOO-DBFF 

1A00-1BFF 

Großbuchstaben 
und Grafikzeichen 


56320 

DCOO-DDFF 

1C00-1DFF 

Kleinbuchstaben in 
Reversdarsteilung 


56832 

DEOO-DFFF 

1E00-1 FFF 

Großbuchstaben in 
Reversdarstellung 


Tabelle 4. Anordnung der Zeichenmuster im Zeichen-ROM 
und der Spiegelung in Bank 0 


onunsp»»' 

Dem aufmerksamen Leser wird jetzt aufgefallen sein, 
daß die vom Zeichen-ROM beanspruchten Adressen die 
gleichen sind, wie die der VIC-ll-Chip-Steuerregister. Dies 
ist möglich, da diese Adressen nicht gleichzeitig bean¬ 
sprucht werden. 

Benötigt der VIC-ll-Chip den Zugriff auf die Zeichen¬ 
daten, so wird das ROM eingeschaltet. In der 16-KByte- 
Speicherbank, auf die der VIC-ll-Chip zugreift, entsteht die 
entsprechende »Spiegelung«. Ansonsten wird dieser Be¬ 
reich von den Ein-/Ausgaberegistern beansprucht und das 
Zeichen-ROM kann nur vom VIC-II erreicht werden. 

Es kann jedoch passieren, daß Sie das Zeichen-ROM be¬ 
nötigen, und zwar dann, wenn Sie programmierbare Zei¬ 
chen benutzen wollen und eine Kopie eines Teils vom 
Zeichen-ROM für die Zeichendefinition benötigen. In die¬ 
sem Fall müssen Sie das Ein-/Ausgaberegister aus- und 
das Zeichen-ROM einschalten. Dann können Sie kopieren. 
Danach muß das Ein-/Ausgaberegister erneut eingeschal¬ 
tet werden. Während des Kopierens (bei ausgeschalteter 
Ein-/Ausgabe) sind keine Unterbrechungen erlaubt. Für 
Unterbrechungen werden nämlich die Ein-/Ausgaberegi- 
ster benötigt. Wenn Sie dies vergessen und eine Unterbre¬ 
chung vornehmen, passiert Unvorhersehbares. Die Tasta¬ 
turabfrage darf während des Kopierens nicht vorgenom¬ 
men werden. Um die Tastatur und weitere normale Unter¬ 
brechungen abzuschalten, die mit dem C64 möglich sind, 
benutzen Sie folgende POKE-Anweisung im Programm: 
POKE 56334, PEEK(56334) AND 254: REM 
(Interrupt AUS) 

Wenn Sie den Zugriff auf das Zeichen-ROM beendet ha¬ 
ben und bereit sind für die Programmfortsetzung, wird die 
Tastatur durch folgende POKE-Anweisung wieder einge¬ 
schaltet: 

POKE 56334, PEEK(56334) 0R1: REM (Interrupt EIN) 

Durch folgende POKE-Anweisung wird die Ein-/Ausgabe 
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ausgeschaltet und das Zeichen-ROM eingeschaltet: 

POKE 1, PEEK(l) AND 251 

Das Zeichen-ROM befindet sich nun an den Speicher¬ 
stellen 53248 bis 57343 ($D000-$DFFF). Um die Ein-/Aus- 
gabe für den normalen Betrieb zurück in $D000 zu schal¬ 
ten, benutzen Sie folgende POKE-Anweisung: 

POKE 1, PEEK(l) OR 4 

Programmierbare Zeichen 


Beim Einschalten des C64 befindet sich dieser im Stan¬ 
dardzeichenmodus. Dies ist der Modus, in dem Sie norma¬ 
lerweise Programmierungen vornehmen. 

Zeichen können aus dem ROM oder dem RAM gelesen 
werden. Normalerweise wird jedoch auf die Zeichen im 
ROM zugegriffen. Benötigen Sie für ein Programm speziel¬ 
le Grafikzeichen, so brauchen Sie lediglich die neuen Zei¬ 
chenmuster im RAM zu definieren und den VIC-ll-Chip an¬ 
zuweisen, die Zeicheninformationen von da und nicht aus 
dem Zeichen-ROM zu nehmen. Dies wird im nachstehen¬ 
den Abschnitt noch genauer beschrieben. 

Um Zeichen auf dem Bildschirm in Farbe anzuzeigen, 
greift der VIC-ll-Chip auf den Bildschirmspeicher zu, um 
den Zeichen-Code für diese Bildschirmposition zu bestim¬ 
men. Gleichzeitig greift er auf den Farbspeicher zu, um die 
Farbe des Zeichens festzulegen. Der Zeichen-Code wird 
vom VIC-II in die Startadresse des 8-Byte-Satzes mit Ihrem 
Zeichenmuster umgesetzt. Dieser Satz befindet sich im 
Zeichenspeicher. 

Die Umsetzung ist nicht zu kompliziert, zur Erstellung der 
gewünschten Adresse werden jedoch verschiedene Punk¬ 
te kombiniert. Zunächst wird der von Ihnen bei der POKE- 
Anweisung für den Bildschirmspeicher benutzte Zeichen¬ 
code mit 8 multipliziert. Danach wird der Anfang vom Zei¬ 
chenspeicher addiert (siehe Abschnitt »Zeichenspeicher«). 
Nun werden die Bankanwahl-Bits berücksichtigt. Hierzu 
wird die Basisadresse (siehe Abschnitt »Video- 
Bankanwahl«) addiert. Anhand der folgenden einfachen 
Gleichung können Sie sehen, wie dies gemeint ist: 

Zeichenadresse = Bildschirmcode *8 + (Zeichensatz 
*1024)+(Bank* 16384). 

Zeichendefinitionen 

Jedes Zeichen wird aus einer Matrix von 8x8 Punkten 
gebildet. Hierbei können die einzelnen Punkte entweder 
ein- oder ausgeschaltet sein. Beim C64 sind die Zeichen¬ 
bilder im Zeichengenerator-ROM abgelegt. Jedes Zeichen 
ist hierbei als Satz von 8 Byte gespeichert. Jedes Byte steht 
für das Punktmuster einer Reihe im Zeichen und jedes Bit 
für einen Punkt. Ein O-Bit zeigt an, daß der Punkt ausge¬ 
schaltet und ein 1-Bit, daß er eingeschaltet ist. 

Der Zeichenspeicher im ROM beginnt bei Adresse 
53248 (bei ausgeschalteter Ein-/Ausgabe). Die ersten 8 By¬ 
te von Adresse 53248 ($D000) bis 53255 ($D007) enthalten 
das Muster für das Zeichen »@«, dessen Zeichencodewert 
im Bildschirmspeicher 0 ist. 

Die nächsten 8 Byte von Adresse 53256 (SD008) bis 
53263 ($D00F) enthalten die Information zur Bildung des 
Buchstabens A. 


BELEGUNG 

BINÄR 

PEEK 

*• 

00011000 

24 

* * * * 

00111100 

60 

* * * • 

01100110 

102 


01111110 

126 

* * * * 

01100110 

102 

* * * * 

01100110 

102 

* * * » 

01100110 

102 


00000000 

0 


Jeder vollständige Zeichensatz beansprucht eine Spei¬ 
cherkapazität von 2 KByte (2048 Byte). Insgesamt sind 256 
Zeichen enthalten, wobei jedes Zeichen 8 Byte umfaßt. Da 
es insgesamt zwei Zeichensätze gibt, und zwar einen für 
die Großbuchstaben und Grafikzeichen und den anderen 
für Groß- und Kleinbuchstaben, belegt der ROM-Zeichen- 
speicher insgesamt 4 KByte Speicherplatz. 

Programmierbare Zeichen 

Da die Zeichen im ROM gespeichert sind, sieht es so 
aus, als ob sie für frei programmierbare Zeichen nicht geän¬ 
dert werden könnten. Der Speicherplatz, der dem VIC-ll- 
Chip mitteilt, wo die Zeichen zu finden sind, ist jedoch ein 
programmierbares Register. Dieses kann so geändert wer¬ 
den, daß es auf viele Spielbereiche zeigt. Indem der Zei¬ 
chenspeicherzeiger so geändert wird, daß er auf das RAM 
zeigt, kann der Zeichensatz beliebig programmiert werden. 

Soll sich Ihr Zeichensatz im RAM befinden, so gibt es ei¬ 
nige sehr wichtige Regeln, die Sie dabei berücksichtigen 
müssen. 

1) Dies ist ein Alles- oder Nichts-Vorgang. Im allgemeinen, 
wenn Sie den VIC-ll-Chip angewiesen haben, die Zei¬ 
cheninformation aus dem vorbereiteten RAM-Bereich zu 
nehmen, sind die Standardzeichen vom C64 für Sie 
nicht verfügbar. Um dieses Problem zu lösen, müssen 
Sie alle Buchstaben, Zahlen oder Standardgrafikzei¬ 
chen vom C64 in den RAM-Speicher kopieren, den Sie 
dann in Ihrem Programm benutzen wollen. Hierbei kön¬ 
nen Sie beliebige Zahlen auswählen und brauchen auch 
nicht auf die Reihenfolge zu achten! 

2) Ihr Zeichensatz benutzt denselben Speicher wie Basic- 
Programme. Da hierfür jedoch 38 KByte zur Verfügung 
stehen, ist dies meist problemlos. 

Achten Sie jedoch darauf, daß Ihr Zeichensatz nicht von 
Variablen, die das Basic-Programm anlegt, überschrieben 
wird. 

Zwei Adressen in der Bank 0 des C 64 dürfen nicht als Be¬ 
ginn des Zeichensatzes gewählt werden: Adresse 0 und 
Adresse 2048. Die erste darf nicht benutzt werden, da das 
System auf Seite 0 (Zero-Page) wichtige Daten speichert 
und Adresse 2048 ist der Beginn Ihres Basic-Programms! 

Für Ihren Zeichensatz stehen jedoch noch sechs weitere 
Anfangspositionen zur Verfügung. 

Am besten wählen Sie hierzu am Anfang Adresse 12288 
($3000 in Hexadezimaldarstellung). Dies erfolgt durch die 
nun folgende POKE-Anweisung: 

POKE 53272,(PEEK(53272) AND 240)OR 12 
Sofort sind alle Buchstaben vom Bildschirm verschwun¬ 
den. Der Grund hierfür liegt darin, daß bis jetzt noch kein 
Zeichensatz ab Adresse 12288 steht, sondern nur zufällige 
Bytes. Kehren Sie mit dem C64 durch Betätigung der Ta¬ 
sten < RUN/STOP > und <RESTORE> wieder zurück in 
den Normalmodus. 

Nun wollen wir Grafikzeichen erstellen. Um Ihren Zei¬ 
chensatz zu schützen, sollten Sie die Speicherkapazität für 
Basic-Programme reduzieren. Der Speicher in Ihrem Com¬ 
puter bleibt unverändert. Sie haben dem C 64 lediglich die 
Anweisung gegeben, einen bestimmten Teil des Basic- 
Speichers nicht zu benutzen. Tippen Sie folgendes ein: 
PRINT FRE(0)-(SGN(FRE(0))<0)*65535 
Die angezeigte Zahl gibt die unbenutzte Speicherkapazi¬ 
tät an. Geben Sie nun folgendes ein: 

POKE 52,48:P0KE56,48:CLR 
Und nun: 

PRINT FRE(0)-(SGN(FRE(0))<0)*65535 

Sehen Sie die Änderung? 

Der C64 nimmt nun an, daß weniger Speicherkapazität 
zur Verfügung steht. In diesen gewonnenen Speicherplatz 
können Sie nun Ihren Zeichensatz eingeben. 
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5 PRINT CHR$(142) :REM BR 

OSSBUCHSTABEN EINSCHALTEN <060> 

10 POKE 52,48:PDKE 56,4B:CLR :REM BAS 

ICSPEICHER BEGRENZEN <059> 

20 POKE 56334,PEEK(56334) AND 254 : REM UNT 

ERBRECHUNGEN ABSCHALTEN <061> 

30 POKE 1,PEEK <1) AND 251 :REM ZEI 

CHENROM EINBLENDEN <060> 

40 FOR 1=0 TO 511:POKE I+12288,PEEK(1+5324 

8):NEXT <039> 

50 POKE 1 ,PEEK (1) OR 4 : REM EIN 

-/AUSGABE EINBLENDEN <115> 

60 POKE 56334,PEEK(56334) OR 1 :REM UNT 

ERBRECHUNGEN ZULASSEN <250> 

70 END <072> 

Listing 1. 64 Zeichen werden aus dem RAM ins ROM 
übertragen 


Als nächstes müssen nun Ihre Zeichen ins RAM kopiert 
werden. Durch ein kurzes Programm werden 64 Zeichen 
vom ROM in den RAM-Zeichensatz übertragen (Listing 1). 

Geben Sie nun ein: 

POKE 53272,(PEEK(53272)AND 240) OR 12 

Nichts passiert, stimmt’s? Fast nichts! Der C 64 bekommt 
die Zeicheninformationen nun vom RAM und nicht vom 
ROM. Da wir jedoch die Zeichen genau vom ROM kopiert 
haben, ist kein Unterschied zu sehen...noch nicht. 

Die Zeichen können nun leicht geändert werden. Lö¬ 
schen Sie den Bildschirm, und drücken Sie die Taste 
< @ >. Bewegen Sie den Cursor um einige Zeilen nach un¬ 
ten, und geben Sie dann folgendes ein: 

FOR I = 12288 TO 12288 +7:P0KE 1,255 - PEEK(I) : 
NEXT 

Sie haben soeben durch Umkehrung der Bitmuster im 
Zeichenspeicher ein <@> in Reversdarstellung erstellt! 

Bewegen Sie nun den Cursor wieder zum Programman¬ 
fang und drücken Sie < RETURN > erneut, um das Zei¬ 
chen noch einmal umzukehren (das heißt, es wird wieder 
normal dargestellt). 

Denken Sie daran, daß zur Speicherung jedes Zeichens 
8 Byte benötigt werden. Mit der Bildschirmcode-Tabelle in 
Ihrem C64-Handbuch können Sie die Position des Zei¬ 
chens im RAM ermitteln. In Tabelle 5 finden Sie einige Bei¬ 
spiele. 


ZEICHEN 

BILDSCHIRM¬ 

CODE 

DERZEITIGE STARTADRESSE 

IM RAM 

@ 

0 

12288 

A 

1 

12296 

I 

33 

12552 

> 

62 

12784 


Tabelle 5. Beispiele für die Startadressen der Bit-Muster 
einzelner Zeichen im RAM 


Wir haben nur die ersten 64 Zeichen übernommen. Wird 
eines der anderen Zeichen gewünscht, so ist vorher noch 
etwas zu berücksichtigen. Was ist zu tun, wenn Sie nun Zei¬ 
chennummer 154, ein umgekehrtes »Z« wünschen? Sie 
können das erreichen, indem Sie ein »Z« - wie gezeigt - um¬ 
kehren, oder Sie können den Satz der umgekehrten Zei¬ 
chen vom ROM kopieren oder einfach das eine Zeichen 
aus dem ROM holen und ein nicht benötigtes Zeichen im 
RAM dadurch ersetzen. 

Nehmen wir an, Sie benötigen das Zeichen »>« nicht 
mehr. Dieses Zeichen soll also gegen das negativ darge¬ 
stellte »Z« ausgetauscht werden. Geben Sie folgendes ein: 

FOR I = 0 TO 7:POKE 12784 + I,255-PEEK(I+12496): 
NEXT 

Geben Sie nun »>« ein. Es erscheint als umgekehrtes 
»Z«. So oft Sie nun dieses auch eingeben, erscheint es im¬ 
mer als umgekehrtes »Z«. (Diese Änderung betrifft jedoch 



nur die Darstellung auf dem Bildschirm. Auch wenn das 
Zeichen wie ein umgekehrtes »Z« aussieht, wirkt es in ei¬ 
nem Programm doch immer noch als »>«.) Probieren Sie 
das an einem Beispiel aus, bei dem dieses Zeichen benö¬ 
tigt wird. 

Fassen wir zusammen: Sie können nun Zeichen vom 
ROM in das RAM kopieren. Sie können hierbei selbst die 
Zeichen auswählen. Hinsichtlich der programmierbaren 
Zeichen fehlt Ihnen also nur noch ein Punkt (und zwar der 
beste!)....das Erstellen Ihrer eigenen Zeichen. 

Jedes Zeichen wird als Gruppe von 8 Byte gespeichert. 
Die Bit-Muster der Bytes geben direkt das Zeichen wieder. 
Werden 8 Byte übereinander angeordnet und jedes Byte 
als achtstellige Binärzahl geschrieben, so entsteht eine 
8 x 8-Matrix. Ist ein Bit eine 1, so ist an diesem Platz ein 
Punkt. Ist ein Bit eine 0, ist an diesem Platz eine Leerstelle. 

Zum Erstellen Ihrer eigenen Zeichen geben Sie in den 
Speicher die entsprechende Bit-Anordnung ein. Geben Sie 
NEW und danach dieses Programm ein: 

10 FOR I = 12448 TO 12455 : READ A: POKE I,A : NEXT 
20 DATA 60, 66, 165, 129, 165, 153, 66, 60 

Geben Sie nun RUN ein. Das Programm ersetzt den 
Buchstaben T durch ein »Gesicht«. Um das Gesicht zu se¬ 
hen, geben Sie mehrere Ts ein. Jede Zahl in der DATA- 
Anweisung in Zeile 20 ist eine Reihe in diesem Gesicht. Es 
gilt die Matrix in Bild 2. 

Das Schema in Bild 2 hilft Ihnen beim Entwurf Ihrer eige¬ 
nen Zeichen. Das Blatt enthält eine Matrix von 8 x 8 mit Rei¬ 
hennummern sowie Nummern über jeder Spalte. (Wird je¬ 
de Reihe als Binärwert gesehen, so sind die Spaltennum¬ 
mern die jeweiligen Werte der Bit-Position. Der Wert läßt 
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sich einfach als Zweierpotenz errechnen. Das linke äußer¬ 
ste Bit entspricht 128 oder 2 7 , das nächste 64 oder 2 6 usw., 
bis das äußerste rechte Bit (Bit 0) erreicht ist. Bit 0 entspricht 
1 oder 2°.) 

Tragen Sie in die Matrix überall da ein »X« ein, wo in Ihrem 
Zeichen ein Punkt erscheinen soll. Ist das Zeichen fertig, 
dann können Sie die DATA-Anweisung dafür errechnen. 

Beginnen Sie mit der ersten Reihe. Überall da, wo ein »X« 
eingesetzt ist, lesen Sie die Nummer oben an der Spalte ab 
(die Zweierpotenz), und notieren Sie sie. Dann werden die 
Zweierpotenzen der ersten Reihe addiert. Notieren Sie die¬ 
se Summe neben der Reihe. Sie wird später in der DATA- 
Anweisung benutzt, um diese Reihe als Bitmuster wieder¬ 
zugeben. 

Das gleiche gilt für die übrigen Reihen (1 bis 7). Sie müs¬ 
sen insgesamt acht Zahlen zwischen 0 und 255 haben. 
Liegt eine dieser Zahlen nicht innerhalb dieses Bereiches, 
überprüfen Sie die Addition. Bei richtiger Addition müssen 
die Zahlen auf jeden Fall in diesem Bereich liegen. Haben 
Sie weniger als acht Zahlen, dann haben Sie wahrschein¬ 
lich eine Reihe vergessen. Es ist durchaus korrekt, wenn 
auch Nullen dabei sind. Diese Null-Reihen sind genauso 
wichtig, wie die anderen Zahlen. 

Ersetzen Sie die Zahlen in der DATA-Anweisung in Zeile 
20 durch die soeben berechneten Zahlen und geben Sie 
danach RUN ein. Drücken Sie nun die Taste <T>. Bei je¬ 
dem Betätigen dieser Taste sehen Sie Ihr eigenes Zeichen. 


lösungsmodus können alle Punkte innerhalb der 8 x 8-Ma- 
trix entweder in der Vordergrund- oder in der Hintergrund¬ 
farbe angezeigt werden. Hierdurch wird die Farbauflösung 
innerhalb dieses Bereiches eingeschränkt. Ein Zeichen ist 
daher nur in einer Farbe darstellbar. 

Das Problem läßt sich durch den Mehrfarbenmodus des 
VIC-ll-Chip lösen. Hierbei kann jeder Punkt eine von vier 
Farben annehmen: Bildschirmfarbe (Hintergrundfarbregi- 
ster 0), die Farbe im Hintergrundregister 1, die Farbe im Hin¬ 
tergrundregister 2 oder die Zeichenfarbe. Es gibt allerdings 
eine Einschränkung: Im Mehrfarbenmodus ist jeder Punkt 
doppelt so breit wie im Hochauflösungsmodus, weshalb 
die horizontale Auflösung nur noch die Hälfte beträgt. Be¬ 
findet sich der VIC-ll-Chip in diesem Modus, dann lassen 
sich auch Zeichen mehrfarbig darstellen. 

Zum Einschalten des Modus für mehrfarbige Zeichen 
wird das Bit 4 der Speicherstelle 53270 (SD016) durch fol¬ 
gende POKE-Anweisung auf 1 gesetzt: 

POKE 53270,PEEK(53270) 0R 16 

Zum Abschalten dieser Betriebsart wird Bit 4 an Spei¬ 
cherplatz 53270 durch nachstehende POKE-Anweisung 
wieder gelöscht: 

POKE 53270,PEEK(53270) AND 239 

Der Mehrfarben-Modus wird für jede Bildschirmposition 
ein- oder ausgeschaltet, so daß Mehrfarbengrafiken und 


10 

REM * BEISPIEL 1 * 



<017> 

TEN SPEICHERN 


<11S> 

20 

REM ERZEUGEN EIGENER ZEICHEN 


< 137> 

140 NEXT BYTE:NEXT ZEIC 


<254> 

31 

POKE 56334,PEEK(56334) AND 

254:POKE i,P 


150 PRINT CHRS(147)TAB(255)CHR*(60) ; 

<251 > 


EEK(l) AND 251 



<054> 

155 PRINT CHRS(61)TAB(55)CHR*(62)CHR*(63) 

<025> 

35 

FOR 1=0 TO 63 

: REM 

ZU KOP 


160 REM BRINGT DIE NEUDEFINIERTEN ZEICHEN 



IERENDER ZEICHENBEREICH 


< 012 > C n 

+.-F BILDSCHIRM 


<019> 

36 

FOR J=0 TO 7 

: REM 

ALLE 8 


170 GET A* 

:REM ERWART 



BYTES PRO ZEICHEN 



<014> 

ET TASTENDRUCK 


<240> 

37 

POKE 12288+I*8+J,PEEK(5324B+I*3+J):REM 


180 IF Ai=”" THEN GOTO 170 

:REM NEUER 



EIN BYTE KOPIEREN 



<110> 

VERSUCH WENN KEINE TASTE 


< 125> 

38 

NEXT J:NEXT I 

.-REM 

NfEHST 


190 POKE 53272,21 

:REM ZURUEC 



ES BYTE ODER ZEICHEN 



< 164> 

K ZU NORMALEN ZEICHEN 


< 127 > 

39 

POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(563 


200 DATA 4,6,7,5,7,7,3,3 

:REM DATEN 



34) OR 1 



<192> 

FUER ZEICHEN 60 


< 138> 

40 

POKE 53272,(PEEK(53272) AND 

240) 

+ 12: R 


210 DATA 32,96,224,160,224,224, 

192,192:REM 



EM ZEICHEN AUS RAM HOLEN 



<203> 

ZEICHEN 61 


<035> 

60 

FOR ZEIC=60 TO 63 

: REM 

NEUE Z 


220 DATA 7,7,7,31,31,95,143,127 

:REM ZEICHE 



EICHEN 60 BIS 63 



<007> 

N 62 


<045> 

80 

FOR BYTE=0 TO 7 

: REM 

ALLE 8 


230 DATA 224,224,224,248,248,248,240,224:R 



BYTES PRO ZEICHEN 



<162> 

EM ZEICHEN 63 


<204> 

100 READ NUMBER 

: REM 

EINLES 


240 END 


<242> 


EN 1/8 ZEICHEN 



<050> 




120 POKE 12288+(8+ZEIC) +BYTE,NUMBER:REM DA 


Listing 2. Ein nettes Beispiel für selbstdefinierte Zeichen 


Dies funktioniert jedoch nur, solange die Bereichsum- 
schaltung für das Zeichensatz-ROM noch aktiv ist. 
< RUN/STOP RESTORE> schaltet nämlich, wie auch die 
entsprechenden POKEs in Adresse 53272, wieder auf die 
Standard-Speicheraufteilung um. 

Wenn Ihnen dieses Zeichen noch nicht gefällt, ändern 
Sie einfach die Zahlen in der DATA-Anweisung, bis die Zei¬ 
chendarstellung zufriedenstellend ist. Das ist alles! 

Mit unserem Beispielprogramm (Listing 2) lassen sich 
Zeichen schon recht komfortabel ändern. 

Der Multicolor-Modus 


Die bisher gezeigten Zeichen wurden im sogenannten 
Hochauflösungsmodus erstellt. Das bedeutet, daß für je¬ 
den Punkt im Zeichenspeicher zwei Werte zur Verfügung 
stehen: 1 für EIN und 0 für AUS. Hat ein Punkt den Wert 1, 
dann wird er in der von Ihnen für die jeweilige Bildschirm¬ 
operation gewählten Farbe angezeigt. In diesem Hochauf- 


Grafiken mit hoher Auflösung (Hires) kombiniert werden 
können. Dies läßt sich über Bit 3 im Farbspeicher steuern. 
Der Farbspeicher beginnt bei 55296 ($D800 HEX). Ist die 
Zahl im Farbspeicher kleiner als 8 (0 bis 7), so gilt für die 
entsprechende Stelle auf dem Bildschirm Hochauflösung 
in der gewählten Farbe (0 bis 7). Ist die Zahl größer oder 
gleich 8 (von 8 bis 15), dann wird die entsprechende Stelle 
im Mehrfarbenmodus angezeigt. 

Die Zeichenfarbe an einer Bildschirmposition kann 
durch eine POKE-Anweisung im Farbspeicher geändert 
werden. Durch das POKEn einer Zahl von 0 bis 7 werden 
die Zeichen in normaler Farbdarstellung angezeigt. Durch 
das POKEn einer Zahl zwischen 8 und 15 gilt für die ent¬ 
sprechende Bildschirmstelle der Mehrfarbenmodus, durch 
das Einschalten von Bit 3 im Farbspeicher wird also der 
Multicolor-Modus und durch Ausschalten der normale 
Hochauflösungsmodus gewählt. 

Gilt für eine Bildschirmstelle der Mehrfarbenbetrieb, so 
wird durch Zeichen-Bits bestimmt, welche Farben für die 
Punkte angezeigt werden. In der folgenden Tabelle sehen 
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Sie beispielsweise die Darstellung des Buchstabens A und 
das entsprechende Bit-Muster: 


BIT-MUSTER 


00011000 

00111100 

01100110 

01111110 

01100110 

01100110 

01100110 

00000000 


Im normalen oder »Hires«-(das heißt hochauflösenden 
Grafik-)Modus wird die Bildschirmfarbe bei jedem O-Bit und 
die Zeichenfarbe stets da angezeigt, wo das Bit 1 ist. Beim 
Mehrfarbenmodus werden die Bits auf folgende Art paar¬ 
weise benutzt: 


BIT-MUSTER 

MBB 

CCCC 

AABBAABB 

AACCCCBB 

MBBMBB 

MBBMBB 

AABBMBB 


00 01 
00 11 
01 10 
01 11 
01 10 
01 10 
01 10 
00 00 


10 00 
11 00 
01 10 
11 10 
01 10 
01 10 
01 10 
00 00 


Im obigen Bildbereich werden die durch AA gekenn¬ 
zeichneten Stellen in der Hintergrundfarbe #1, die durch 
BB gekennzeichneten Stellen in der Hintergrundfarbe #2 
und die durch CC gekennzeichneten Stellen in der Zei¬ 
chenfarbe dargestellt. Dies zeigt Ihnen die Tabelle 6. 


BIT-PAAR 

FARBREGISTER 

SPEICHERPLATZ 

OO 

Hintergrundfarbe #0 (Bildschirmfarbe) 

53281 (SD021) 

01 

Hintergrundfarbe #1 

53282 (SD022) 

10 

Hintergrundfarbe #2 

53283 (SD023) 

11 

Durch die unteren 3 Bit im 

Farbspeicher bestimmte Farbe 

Farbspeicher 


Tabelle 6. Zusammenhang zwischen dem Wert eines 
Bitpaares und der Herkunft der Farbe des dazugehörenden 
Punktes 

Geben Sie das Listing 3 ein und starten es mit RUN: 


100 

POKE 53281,1 

RGRUNDFARBE 0 AUF WEISS 

: REM 

HINTE 

<096> 

110 

POKE 53282,3 

RGRUNDFARBE 1 AUF CYAN 

: REM 

HINTE 

< 150> 

120 

POKE 53283,8 

RGRUNDFARBE 2 AUF ORANGE 

: REM 

HINTE 

<0B4> 

130 

POKE 53270,PEEK(53270) OR 16:REM 
COLORMODUS EINSCHALTEN 

MULTI 

<065> 

140 

150 

160 

C=13*4096+8*256 

ADRESSE FARBSPEICHER = C 
PRINT CHR*(147)"AAAAAAAAAA" 
FOR L=0 TO 9 

: REM 

START 

<085> 

<038> 

<254> 

170 

180 

POKE C+L,8 

ZT WIRD MULTICOLOR SCHWARZ 
NEXT 

: REM 

BENUT 

<250> 

<190> 


Listing 3.Ein Programm zum Erzeugen selbstdefinierter 
Multicolor-Zeichen 


Die Bildschirmfarbe ist weiß, die Zeichenfarbe schwarz, 
ein Farbregister zyan (grünblau) und das andere orange. 

Sie geben nicht tatsächlich Farb-Codes in die Speicher 
für die Zeichenfarbe ein, sondern benutzen eigentlich Hin¬ 
weise auf die jeweiligen Farbregister. Hierdurch wird Spei¬ 
cherplatz gespart, da zwei Bits benutzt werden, um zwi¬ 
schen 16 beziehungsweise 8 Farben (Hintergrund bezie¬ 
hungsweise Zeichen) zu wählen. Hierdurch werden einige 
raffinierte Tricks möglich. Durch einfaches Ändern eines 


100 POKE 53270,PEEK(53270) OR 16 

<032> 

110 PRINT CHR*(147)CHR*(1B>; 

< 185> 

120 PRINT"CORANGE)"; 

<025> 

130 FOR L=1 TO 22:PRINT CHRS(65);:NEXT 

< 169> 

135 FOR T=1 TO 500:NEXT 

<207> 

140 PRINT"CBLUE>"; 

<006> 

145 FOR T=1 TD 500:NEXT 

<217> 

150 PRINT" fBLACK3-BITTE EINE TASTE" 

< 121 > 

160 GET AS:IF A*="" THEN 160 

< 162 > 

170 X=INT(RND(1)*16) 

<072> 

180 POKE 53282,X 

< 055 > 

190 GOTO 160 

<214> 

Listing 4. Mit < SPACE > werden in diesem Demo die 
Farben im Multicolor-Modus verändert 


10 REM * BEISPIEL 2 * <033> 

20 REM ERZEUGEN MEHRFARBIGER SELBSTDEFINIE 

RTER ZEICHEN <000> 

31 POKE 56334,PEEK(56334) AND 254:POKE 1,P 

EEK(1> AND 251 <054> 

35 FOR 1=0 TO 63 :REM ZU KOPIEREN 

DE ZEICHEN <203> 

36 FOR J=0 TO 7 :REM ALLE B BYTE 

S PRO ZEICHEN <014> 

37 POKE 122BB+I*8+J,PEEK(53248+I*B+J>:REM 

KOPIERE EIN BYTE <21B> 

38 NEXT J,I :REM NAECHSTES B 

YTE ODER ZEICHEN <078> 

39 POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(563 

34) OR 1 <192> 

40 POKE 53272,(PEEK(53272) AND 240) + 12:R 

EM ZEICHENRAM EINSCHALTEN <094> 

50 POKE 53270,PEEK(53270) OR 16 <238> 


51 POKE 53281,0 
FARBE 0 AUF SCHWARZ 

52 POKE 53232,2 
FARBE 1 AUF ROT 

53 POKE 53283,7 
FARBE 2 AUF GELB 

60 hur- ZEIC=60 TO 63 
N 60 BIS 63 
80 FOR BYTE=0 TO 7 
S PRO ZEICHEN 
100 READ ZAHL 
ICHENDATEN 


REM HINTERGRUND 


< 000 > 


REM HINTERGRUND 


<047> 


REM HINTERGRUND 


<157> 


REM NEUE ZEICHE 


<007> 


REM ALLE 8 BYTE 


<162> 


REM LESE 1/8 ZE 


<076> 


120 POKE 12288+(8*ZEIC)+BYTE,ZAHL:REM SPEI 

CHERN IM ZEICHENRAM <1B4> 

140 NEXT BYTE,ZEIC <081> 

150 PRINT"CCLRJ"TAB(255)CHR*(60)CHR*(61)TA 

B(55)CHR*(62)CHR*(63) <239> 

160 REM ZEILE 150 BRINGT DIE NEUEN ZEICHEN 

AUF DEN BILDSCHIRM <048> 

170 GET A* :REM ERWARTET TA 

STENDRUCK <240> 

180 IF A*="" THEN 170 :REM SONST NEUER 

VERSUCH <083> 

190 POKE 53272,21:POKE 53270,PEEK(53270) A 

ND 239:REM NORMALER ZEICHENSATZ <032> 

200 DATA 129,37,21,29,93,85,85,85 :REM ZEI 

CHENDATEN FUER ZEICHEN 60 <160> 

210 DATA 66,72,84,116,117,85,85,85:REM ZEI 

CHEN 61 <026> 

220 DATA 87,87,85,21,8,8,40,0 :REM ZEI 

CHEN 62 <028> 

230 DATA 213,213,85,84,32,32,40,0 :REM ZEI 

CHEN 63 <247> 

240 END <242> 

Listing 5. Ein programmierbares Multicolor-Zeichen 


der indirekten Register wird jeder Punkt, der in dieser Farbe 
gezeichnet ist, ebenfalls geändert. 

Alles, was in Bildschirm- und Hintergrundfarben ange¬ 
zeigt ist, kann daher sofort auf dem gesamten Bildschirm 
geändert werden. In Listing 4 sehen Sie ein Beispiel zur Än¬ 
derung des Hintergrundfarbregisters #1. 

Über die Taste <CBM> und die Farbtasten können allen 
Zeichen, einschließlich den Mehrfarbenzeichen, beliebige 
Farben gegeben werden. Geben Sie zum Beispiel folgende 
Befehle ein: 

POKE 53270,PEEK(53270)ÖR 16: PRINT "[CTRL3] "j: 
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Das Wort READY und alles übrige, was Sie über die Ta¬ 
statur eingeben, wird im Mehrfarbenmodus angezeigt. 
Durch eine andere Farbsteuerung können Sie wieder den 
Normal-Modus wählen. Listing 5. zeigt Ihnen ein Pro¬ 
grammbeispiel mit programmierbaren Mehrfarbenzei¬ 
chen. 

Erweiterter Hintergrundfarbmodus 

Im erweiterten Hintergrundfarbmodus können Sie für je¬ 
des einzelne Zeichen die Farbe sowohl im Hintergrund als 
auch im Vordergrund steuern. So ist es zum Beispiel mög¬ 
lich, auf einem weißen Bildschirm ein blaues Zeichen mit 
gelbem Hintergrund anzuzeigen. 

Für diesen Betriebszustand des VIC-ll-Chip stehen vier 
Register zur Verfügung. Für jedes Register kann eine der 
16 Farben gewählt werden. 

Die Vordergrundfarbe wird wie im normalen Textmodus 
über den Farbspeicher festgelegt. 

Beim erweiterten Modus ist die Anzahl der verschiede¬ 
nen anzeigbaren Zeichen jedoch eingeschränkt. Ist der er¬ 
weiterte Farbmodus eingeschaltet, können nur die ersten 
64 Zeichen des Zeichen-ROM (oder die ersten 64 in Ihrem 
programmierbaren Zeichensatz) benutzt werden. Zwei Bits 
des Zeichen-Codes werden nämlich für die Wahl der Hin¬ 
tergrundfarbe benutzt. 

Der Zeichen-Code (die auf dem Bildschirm gePOKEte 
Zahl) vom Buchstaben »A« ist eine 1. Im erweiterten Farb¬ 
modus erscheint nach dem POKEn einer 1 ein »A«. Norma¬ 
lerweise müßte nach dem POKEn von 65 das Zeichen mit 
dem Zeichen-Code (CHR$) 129, also ein reverses *>A« er¬ 
scheinen. Dies passiert nicht im erweiterten Farbmodus. 
Es erscheint genau das gleiche »A« wie vorher, jedoch vor 
einer anderen Hintergrundfarbe. Entnehmen Sie die Codes 
Tabelle 7: 


ZEICHENCODE 

HINTERGRUNDFARBREGISTER 

BEREICH 

BIT 7 

BIT6 

NUMMER 

ADRESSE 

0- 63 

0 

0 

0 

53281 (SD021) 

64-127 

0 

1 

1 

53282 ($D022) 

128-191 

1 

0 

2 

53283 ($D023) 

192-255 

1 

1 

3 

53284 ($D024) 


Tabelle 7. Zusammenhang der Werte in Bit 6 und 7 des 
Zeichencodes mit den Hintergrundfarbregistern im 
erweiterten Hintergrundmodus 


Zum Einschalten des erweiterten Farbmodus wird Bit 6 
des VIC-ll-Registers mit der Adresse 53265 ($D011 in HEX) 
auf 1 gesetzt. Dies geschieht durch folgende POKE- 
Anweisung: 

POKE 53265, PEEK(53265) OR 64 

Zum Ausschalten des erweiterten Farbmodus löscht 
man dieses Bit. Hierzu dient folgende Anweisung: 

POKE 53265, PEEK (53265) AND 191 

Grafiken 

durch Bit-Mapping 


Beim Programmieren von Spielen, Zeichnen von Tabellen 
für Geschäftsanwendungen oder Schreiben von sonstigen 
Programmen, werden Sie früher oder später Bildschirm¬ 
darstellungen mit hoher Auflösung benötigen. 

Der C64 wurde genau hierfür konstruiert: Hohe Auflö¬ 
sung wird durch »Bit-Mapping« des Bildschirms möglich. 
»Bit-Mapping« ist die Methode, bei der jedem darstellbaren 
Punkt (Pixel) auf dem Bildschirm sein eigenes Bit (Platz) im 
Speicher zugeordnet wird. Ist dieses Speicherbit eine 1, so 
ist der entsprechende Punkt eingeschaltet. Ist das Bit 0, so 
ist der Punkt ausgeschaltet. 


Das Arbeiten mit Grafiken bei hoher Auflösung hat je¬ 
doch einige Nachteile und wird daher nicht immer benutzt. 
Zunächst wird durch das Bit-Mapping des gesamten Bild¬ 
schirms eine erhebliche Speicherkapazität in Anspruch ge¬ 
nommen. Jeder Pixel benötigt nämlich ein Speicherbit, das 
heißt, Sie brauchen 1 Byte für 8 Pixel. Da jedes Zeichen ei¬ 
ne 8 x 8-Matrix ist und 40 Zeilen mit 25 Zeichen vorhanden 
sind, beträgt die Auflösung 320 Pixel (Punkte) x 200 Pixel 
für den gesamten Bildschirm. Hieraus ergeben sich 64000 
Punkte, von denen jeder ein Speicherbit benötigt. Für ein 
Bit-Mapping des gesamten Bildschirms brauchen Sie also 
8000 Byte. 

Bit-Mapping ist die am weitesten verbreitete Grafiktech¬ 
nik in der Computerwelt. Dieses Verfahren wird benutzt, 
um Bilder mit großem Detailreichtum zu erstellen. Grund¬ 
sätzlich zeigt der C64 direkt einen 8000 Byte großen Spei¬ 
cherbereich auf dem Bildschirm an, wenn er sich im Bit- 
Map-Modus befindet. 

Im Bit-Map-Modus können Sie direkt steuern, ob ein ein¬ 
zelner Punkt auf dem Bildschirm an- oder abgeschaltet ist. 
Mit dem C64 stehen Ihnen zwei verschiedene Arten von 
Bit-Mapping zur Verfügung: 

1) Standard-Bit-Map-Modus (Hires) (320 x 200 Punkte) 

2) Mehrfarben Bit-Map-Modus (160 x 200 Punkte) 

Beim Standard-Bit-Mapping ist zwar die Auflösung grö¬ 
ßer, es stehen jedoch weniger Farbmöglichkeiten zur Verfü¬ 
gung. Beim Mehrfarben-Bit-Mapping wird eine geringe ho¬ 
rizontale Auflösung durch die Möglichkeit wettgemacht, 
mehrere Farben in einem 8 x 8-Punktefeld unterzubringen. 
Standard-Bit-Mapping mit hoher Auflösung 

Beim Standard-Bit-Mapping haben Sie eine Auflösung 
von 320 x 200 Punkten und können in jedem 8 x 8-Punkte- 
bereich zwischen zwei Farben wählen. Zum Einschalten 
des U "-Mapping-Betriebs wird Bit 5 des VIC-ll-Kontrollregi- 
sters in Adresse 53265 ($D011 in HEX) auf 1 gesetzt. Dies 
geschieht durch folgende POKE-Anweisung: 

POKE 53265, PEEK(53265) 0R 32 

Zum Abschalten dieser Betriebsart wird dieses Bit ge¬ 
löscht. Hierzu dient folgende Anweisung: 

POKE 53265, PEEK (53265) AND 223 

Bevor wir uns nun im einzelnen mit dem Bit-Map-Modus 
beschäftigen, müssen wir zuvor ein weiteres Problem lö¬ 
sen: die Plazierung des Bit-Mapping-Bereichs. 
Funktionsweise 

Wenn Sie noch den Abschnitt über programmierbare 
Zeichen in Erinnerung haben, werden Sie sich erinnern, 
daß Sie das Bitmuster eines im RAM gespeicherten Zei¬ 
chens beliebig wählen können. Genauso wie Sie ein auf 
dem Bildschirm angezeigtes Zeichen ändern können, kön¬ 
nen Sie auch einen einzelnen Punkt ändern. Dies ist das 
Grundmerkmal der Bit-Mapping-Technik. 

Der gesamte Bildschirm ist nun mit programmierbaren 
Zeichen belegt. Ihre Änderungen erfolgen direkt in dem 
Speicher, vom dem diese programmierbaren Zeichen ihre 
Muster erhalten, nämlich der Bit-Map. 

Jede Adresse im Bildschirmspeicher, die im Normalmo¬ 
dus für die Steuerung der Zeichenwiedergabe benutzt wur¬ 
de, wird nun für die Farbinformation herangezogen. So wird 
nun durch das POKEn einer 1 in Speicherplatz 1024 nicht 
mehr ein »A« links oben auf dem Bildschirm angezeigt, son¬ 
dern dadurch werden nun die Farben der Bits in der linken 
oberen Ecke des Bildschirms gesteuert. 

Beim Bit-Mapping-Betrieb kommen die Farben der 1000 
Bildschirmfelder also nicht vom Farbspeicher wie im Nor¬ 
malmodus, sie werden vielmehr aus dem Bildschirmspei¬ 
cher genommen. Die oberen 4 Bit des Bildschirmspeichers 
legen die Farben der Bits fest, die im dazugehörenden Bit- 
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Map-Bereich auf 1 gesetzt sind. Die unteren 4 Bit enthalten 
die Farben für jedes Bit, das dort auf 0 gesetzt ist. 
Beispiel: Geben Sie folgendes ein: 

5 BASE=2#4096:P0KE 53272, PEEK (53272) OR 8 : REM 
PUT BIT MAP AT 8192 

10 POKE 53265, PEEK (53265) OR 32: REM ENTER BIT 
MAP-MODUS EINSCHALTEN 

Geben Sie nun zum Ausführen des Programms RUN ein. 

Auf dem Bildschirm erscheint nichts Brauchbares, 
stimmt’s? Wie der »normale« Bildschirm, muß auch der Hi- 
res-Bildschirm zuvor gelöscht werden. In diesem Fall funk¬ 
tioniert das leider nicht durch CLR. Sie müssen vielmehr 
den Speicherbereich löschen, den Sie für Ihre program¬ 
mierbaren Zeichen benutzen, also die Bit-Map. Drücken 
Sie die Tasten < RUN/STOP RESTORE> und fügen dann 
zum Löschen des Hires-Bildschirms folgende Zeilen in Ihr 
Programm ein: 

20 FOR I = BASE TO BASE + 7999 : POKE I, 0:NEXT:REM 
BIT MAP LOESCHEN 

30 FOR I = 1024 TO 2023 : POKE I, 3:NEXT:REM 
FARBEN AUF ZYAN UND SCHWARZ SETZEN 

Geben Sie nun erneut RUN ein. Der Bildschirm wird nun 
gelöscht und die grünblaue Farbe (Zyan) auf dem ganzen 
Bildschirm angezeigt. Nun wollen wir einzelne Punkte auf 
dem Hires-Bildschirm ein- und ausschalten. 

Um einen Punkt zu setzen (einzuschalten) oder zu lö¬ 
schen (auszuschalten), müssen Sie wissen, wie Sie das 
richtige Bit im Zeichenspeicher (der Bit-Map) finden, das 
auf 1 gesetzt werden soll. Sie müssen dazu das zu ändern¬ 
de Zeichen, die Zeichenreihe sowie das entsprechende Bit 
dieser Reihe finden. Für diese Berechnung benötigen Sie 
eine Gleichung. 

Wir benutzen X und Y für die horizontale bzw. vertikale 
Punktposition. Der Punkt, an dem X gleich 0 und Y gleich 
0 ist, befindet sich oben links auf dem Bildschirm. Rechts 
davon liegende Punkte haben höhere X-Werte und alle 
Punkte, die darunter liegen, höhere Y-Werte. Der Bild¬ 
schirm ist also so geordnet, wie es Bild 3 zeigt. 


o-X- 

Y 


199 


•319 


Bild 3. Die Organisation des Bildschirms im 
hochauflösenden Grafikmodus 

Jeder Punkt hat eine X- und eine Y-Koordinate. In diesem 
Koordinatensystem läßt sich die Lage jedes Punktes auf 
dem Bildschirm leicht beschreiben. 

Bild 4 zeigt Ihnen die Reihenfolge der Bytes auf dem Bild¬ 
schirm. 

Die programmierbaren Zeichen der Bit-Map sind in 25 
Reihen mit je 40 Spalten angeordnet. Dies ist zwar für den 
Textaufbau eine gute Methode, erschwert jedoch die Pro¬ 
grammierung im Bit-Map-Modus. Durch nachstehende 
Gleichung läßt sich ein Punkt in der Bit-Map-Anzeige leich¬ 
ter steuern: 

Der Anfang des Bildschirm-Speicherbereichs wird als 
»Basis« bezeichnet. Die Reihenzahl (von 0 bis 24) Ihres 
Punktes ist: 

R0W = INT(Y/8): /REM Es gibt 320 Byte pro Zeile 

Die Zeichenposition dieser Zeile (von 0 bis 39) lautet: 
CHAR = INT(X/8) :REM Es gibt 8 Byte pro Zeile 
Die Zeile dieser Zeichenposition (von 0 bis 7) lautet: 

LINE = Y AND 7 
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Bild 4. Der Zusammenhang zwischen Bildschirm 
und Bn-iv'ap 

Das Bit dieses Bytes ist: 

BIT = 7-(X AND 7) 

Nun setzen wir diese Gleichungen zusammen. Das Byte, 
in dem der Punkt (X,Y) liegt, wird wie folgt berechnet: 
BYTE = BASE + R0W#320 + CHAR*8 + LINE 
Um ein beliebiges Bit im Gitter mit Koordinaten (X,Y) ein¬ 
zuschalten, verwenden Sie diese Zeile: 

POKE BYTE, PEEK(BYTE) OR 2t BIT 
Wir fügen diese Berechnungen in ein Programm ein. In 
Listing 6 zeichnet der C64 eine Sinuskurve. 

Durch die Gleichung in Zeile 60 werden die Werte für die 
Sinusfunktion von +1 bis—1 in die Y-Werte 10 bis 170 umge¬ 
ändert. In den Zeilen 70 bis 100 werden das Zeichen, die 


5 BASE=2*4096:POKE 53272,PEEK(53272) OR 8 

:REM BITMAP AB 8192 <005> 

10 POKE 53265,PEEK(53265) OR 32:REM BITMAP 

MODUS EINSCHALTEN <037> 

20 FOR I=BASE TO BASE+7999:POKE I,0:NEXT:R 

EM BITMAP LOESCHEN <130> 

30 FOR 1=1024 TO 2023:POKE 1,3:NEXT:REM FA 

RBEN AUF CYAN UND SCHWARZ <201> 

50 FOR X=0 TO 319 STEP .5:REM FUNKTION FUE 

LLT BILDSCHIRM <027> 

60 Y=INT(90+80*SIN(X/10)) <165> 

70 CH=INT(X/8) <109> 

80 RD=INT(Y/B) <107> 

B5 LN=Y AND 7 <212> 

90 BY=BASE+RO*320+B*CH+LN <195> 

100 BI=7—(X AND 7) <162> 

110 POKE BY,PEEK(BY) OR (2TBI) <008> 

120 NEXT X <068> 

125 POKE 1024,16 <109> 

130 GOTO 130 <106> 


Listing 6. Zeichnen einer Sinuskurve im hochauflösen¬ 
den Grafikmodus 
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5 BASE=2*4096:POKE 53272,PEEK (53272) DR 8 

:REM BITMAP AB 8192 <005> 

10 POKE 53265,PEEK(53265) OR 32.-REM BITMAP 

MODUS EINSCHALTEN <037> 

20 FOR I=BASE TO BASE+7999:POKE I,0:NEXT:R 

EM BITMAP LOESCHEN <130> 

30 FOR 1=1024 TO 2023:POKE I,3:NEXT:REM FA 

RBEN AUF CYAN UND SCHWARZ <201> 

50 FOR X=0 TO 160:REM FUNKTION FUELLT HALB 

EN BILDSCHIRM <079> 

55 Y1=100+SQRC160*X-X*X> <003> 

56 Y2=100-SQR(160*X-X*X> <013> 

60 FOR Y=Y1 TO Y2 STEP Y1-Y2 <036> 

70 CH=INT(X/B) <109> 

80 RO=INT(Y/B) <107> 

85 LN=Y AND 7 <212> 

90 BY=BASE+RO*320+B*CH+LN <195> 

100 BI=7—(X AND 7) <162> 

110 POKE BY,PEEK(BY) OR (2TBI) <008> 

114 NEXT Y <070> 

120 NEXT X <068> 

125 POKE 1024,16 <109> 

130 GOTO 130 <106> 


Listing 7. Ein Halbkreis wird berechnet und gezeichnet 


Reihe, das Byte und zugehörige Bit berechnet. Zeile 125 
signalisiert, daß das Programm beendet ist, indem sich in 
der oberen linken Bildschirmecke die Farbe ändert. Durch 
Zeile 130 wird das Programm in eine unendliche Schleife 
geführt. Nach dem Betrachten der Grafik drücken Sie ein¬ 
fach <RUN/STOP RESTORE>. Als weiteres Beispiel än¬ 
dern wir das Sinuskurvenprogramm so, daß ein Halbkreis 
angezeigt wird. So ergibt sich Listing 7. 

Mehrfarben-Bit-Mapping , 


Wie beim Mehrfarben-Modus der Zeichen können auch 
beim Mehrfarben-Bit-Mapping in jedem 8 x 8-Bereich der 
Bit-Map bis zu vier verschiedene Farben benutzt werden. 

Ebenso wie dort wird die horizontale Auflösung von 320 
auf 160 Punkte reduziert. Wie bei der Hochauflösungsgra¬ 
fik dient auch hier der Inhalt einer Bit-Map als Quelle des¬ 
sen, was der Bildschirm zeigt. 

Zum Einschalten dieses Modus wird Bit 5 von Adresse 
53265 ($D011) und Bit 4 in Adresse 53270 ($D016) auf 1 ge¬ 
setzt. Dies geschieht durch folgende POKE-Anweisung: 
POKE 53265, PEEK(53265) OR 32 : POKE 53270, 

PEEK(53270) 0R 16 

Zum Ausschalten des Mehrfarben-Bit-Map-Modus wird 
das Bit wieder gelöscht. Hierzu dient folgende POKE- 
Anweisung: 

POKE 53265,PEEK(53265) AND 223: POKE 53270,PEEK 
(53270) AND 239 

Wie beim Standard-Bit-Map-Modus (Hires) besteht eine 
1:1-Entsprechung zwischen dem für die Anzeige benutzten 
8000-Byte-Speicherbereich und der Bildschirm-Darstel¬ 
lung. Die horizontalen Punkte sind jedoch immer 2 Bit breit. 
Jeweils 2 Bit im Anzeigenspeicher bilden einen Punkt, der 
eine von vier Farben haben kann: 

BITS FARBINFORMATION KOMMT VON 

00 Hintergrundfarbe #0 (Bildschirmfarbe) 

01 Oberen 4 Bit des Bildschirmspeichers 

10 Unteren 4 Bit des Bildschirmspeichers 

11 Farbnibble (Nibble = Va Byte = 4 Bit) 

Kontinuierliches Verschieben 

Der VIC-ll-Chip steuert auch das »Scrollen« des Bild¬ 
schirmes. Darunter versteht man ein Verschieben 
(Bildschirm-Rollen) des kompletten Bildschirms in eine 
Richtung (horizontal oder vertikal) um einen frei wählbaren 
Bildpunkt (Pixel). 


Die Bewegung kann entweder nach oben, unten, links 
oder rechts erfolgen. Hierdurch werden neue Informatio¬ 
nen auf einer Seite angezeigt und gleichzeitig verschwin¬ 
den andere Zeichen auf der gegenüberliegenden Seite. 

Auch wenn der VIC-ll-Chip Ihnen viele Aufgaben ab¬ 
nimmt, muß dieses Verschieben doch über ein Maschinen¬ 
sprache-Programm erfolgen. Über den VIC-ll-Chip kann 
der Video-Bildschirm in eine beliebige von acht horizonta¬ 
len und acht vertikalen Positionen gebracht werden. Die 
Positionierung wird über die VIC-ll-Register zum Bild¬ 
schirmrollen (genannt Scroll-Register) gesteuert. Der VIC- 
ll-Chip hat auch einen 38-Spalten- und 24-Reihen-Modus. 
Die kleineren Bildschirmgrößen geben Ihnen einen Platz 
für die neuen Daten, die beim Verschieben gebraucht wer¬ 
den. Gehen Sie für das Verschieben wie folgt vor: 

1) Den Bildschirm verkleinern (der Rahmen wird breiter). 

2) Das Scroll-Register auf den Maximalwert stellen (oder 
auf den Minimalwert je nach Richtung des Rollens). 

3) Die neuen Daten in den geeigneten Bildschirmbereich 
eingeben. 

4) Das Scroll-Register vergrößern (oder verkleinern), bis es 
den Maximalwert (oder Minimalwert) erreicht. 

5) Zu diesem Zeitpunkt den gesamten Bildschirm um ein 
Zeichen in Verschieberichtung rollen. 

6) Nun zu Schritt 2 zurückgehen. 

Diese Schritte werden nun im einzelnen erläutert. 

Um in den 38-Spalten-Modus zu gehen, wird Bit 3 von 
Adresse 53270 ($D016) auf 0 gesetzt. Dies geschieht durch 
folgende POKE-Anweisung: 

POKE 53270, PEEK (53270) AND 247 
Zur Rückkehr in den 40-Spalten-Modus ist dieses Bit wie¬ 
der zu setzen. Hierzu dient folgende POKE-Anweisung: 
POKE 53270, PEEK (53270) 0R 8 
Fi'- Jen 24-Reihen-Modus wird Bit 3 von Adresse 53265 
($D011) gelöscht. Das kann geschehen durch: 

POKE 53265, PEEK (53265) AND 247 
Zur Rückkehr in den 25-Reihen-Modus muß man Bit 3 
wieder setzen: 

POKE 53265, PEEK (53265) 0R 8 

Beim Verschieben in X-Richtung versetzt man den VIC- 
ll-Chip in den erwähnten 38-Spalten-Modus. Hierdurch 
wird für die neuen Daten Platz geschaffen. Beim Verschie¬ 
ben nach links werden die neuen Daten rechts eingegeben. 
Beim Schreiben nach rechts erscheinen die neuen Daten 
entsprechend auf der linken Seite. Bitte beachten Sie, daß 
der Bildschirmspeicher noch 40 Spalten hat. Lediglich 38 
sind jedoch sichtbar. 

Beim Verschieben in Y-Richtung verwendet man den 
24-Reihen-Modus. Beim Rollen nach oben gibt man die 
neuen Daten in die letzte Reihe ein. Beim Rollen nach un¬ 
ten erscheinen die neuen Daten entsprechend in der ersten 
Reihe. Beim X-Verschieben sind unsichtbare Bereiche auf 
beiden Bildschirmseiten. Beim Y-Verschieben existiert nur 
ein unsichtbarer Bereich. 

Ist das Y-Scroll-Register auf 0 gesetzt, dann ist die erste 
Zeile unsichtbar und bereit für neue Daten, enthält es dage¬ 
gen eine 7, so ist die letzte Reihe unsichtbar. Das Register 
zum Scrollen in X-Richtung befindet sich in den Bits 0 bis 
2 der Adresse 53270 (SD016 HEX). 

Auch hier dürfen auf jeden Fall nur diese Bits verändert 
werden. Dies geschieht durch folgende POKE-Anweisung: 
POKE 53270, (PEEK_(53270) AND 248)+X 
wobei »X« die X-Bildschirmposition 0 bis 7 ist. 

Das Y-Scroll-Register wird durch die Bits 0 bis 2 der 
Adresse 53265 ($D011 HEX) gebildet. Auch hierbei dürfen 
Sie wieder nur diese Bits verändern. Dazu dient folgende 
POKE-Anweisung: 

POKE 53265, (PEEK (53265) AND 248)+Y 

wobei »Y« die Y-Bildschirmposition 0 bis 7 angibt. 
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10 POKE 53265,PEEK(53265) AND 247 :R 

EM 24—ZEILEN—MODUS <141> 

20 PRINT CHR*<147> 

:REM BILDSCHIRM LOESCHEN <048> 

30 FOR X=1 TO 24.-PRINT CHR*<17);:NEXT 

:REM CURSOR AN UNTEREN RAND <055> 

40 POKE 53265,(PEEK<53265) AND 248) + 7 :R 

EM POSITION FUER 1.SCROLL <121> 

50 PRINT"HALLO"; <013> 

60 FOR P=6 TO 0 STEP -1 <186> 

70 POKE 53265,(PEEK(53265) AND 248) + P <036> 

80 FOR X=1 TO 50:NEXT :R 

EM VERZOEGERUNBSSCHLEIFE <110> 

90 NEXT P:GOTO 40 <223> 


Listing 8. Ein Beispiel für vertikales Text-Scrolling 


Um den Text von unten auf den Bildschirm zu scrollen, 
müssen die unteren 3 Bit von Adresse 53265 auf Werte von 
0 bis 7 gesetzt, weitere Daten in die abgedeckte Zeile unten 
auf den Bildschirm eingegeben und danach der Vorgang 
wiederholt werden. 

Ändert man die Verschiebebits mit der Schrittweite von 
-1, so wird der Text in entgegengesetzter Richtung bewegt. 

Das eben Schritt für Schritt besprochene Textrollen vom 
unteren Bildschirmrand her, zeigt Ihnen Listing 8. 

Hilfreiche Geister: Sprites 


Ein Sprite ist ein besonderer Typ von frei definierbaren Zei¬ 
chen, die an beliebiger Stelle auf dem Bildschirm ange¬ 
zeigt werden können. Sprites werden direkt vom VIC-II- 
Chip verwaltet. Sie brauchen lediglich für jedes Sprite fest¬ 
zulegen, »wie es aussehen«, »welche Farbe es haben«, und 
»wo es auf dem Bildschirm plaziert werden soll«. Der VIC-II- 
Chip erledigt für Sie den Rest! 

Sprites können zusammen mit jedem beliebigen Grafik- 
Modus, Bit-Mapping, Zeichen, Mehrfarben-Modus benutzt 
werden. Eine Sprite-Definition enthält die Farbe, den Mo¬ 
dus (Hires oder Mehrfarben) und die Form. 

Vom VIC-ll-Chip können automatisch gleichzeitig jeweils 
acht Sprites verwaltet werden. Weitere Sprites sind mittels 
sogenannter Raster-Interrupt-Techniken in Maschinen¬ 
sprache steuerbar. 

Sprites haben folgende Merkmale: 

1) Punktgröße 24 x 21 (horizontal x vertikal) 

2) Farbsteuerung für jedes Sprite 

3) Sprites im Mehrfarbenmodus 

4) Vergrößerung (2mal) in horizontaler und/oder vertikaler 
Richtung 

5) Wahlmöglichkeit: Sprites vor oder hinter dem Hinter¬ 
grund 

6) Wahl der Reihenfolge, in der Sprites »hintereinander« 
angeordnet sind. 

7) Sprite-Sprite-Kollisionserkennung 

8) Kollisionserkennung zwischen Sprite und Zeichen. 

Auf diese Weise lassen sich Spiele einfach programmie¬ 
ren. Da die Sprites durch das Betriebssystem unterstützt 
werden, kann ein gutes Spiel sogar in Basic geschrieben 
werden! 

Vom VIC-ll-Chip werden acht Sprites unterstützt. Sie sind 
von 0 bis 7 numeriert. Jedes Sprite hat seinen eigenen 
Speicherbereich für das Bitmuster, seine Positions- und 
Farbregister sowie seine eigenen Bits zur Erkennung von 
Kollisionen und zum Ein- und Ausschalten. 

Sprite-Definition 

Sprites werden genau wie programmierbare Zeichen de¬ 
finiert. Da ein Sprite jedoch größer ist, werden mehr Bytes 
benötigt. Jedes Sprite besteht aus 24 x 21 oder 504 Punk¬ 


ten. Für die Definition eines Sprite werden also 63 Byte 
(504/8) benötigt. 

Die 63 Byte sind in 21 Reihen zu je 3 Byte angeordnet. 
Eine Sprite-Definition sieht folgendermaßen aus: 


BYTE 0 

BYTE 1 

BYTE 2 

BYTE 3 

BYTE 4 

BYTE 5 

BYTE 6 

BYTE 7 

BYTE 8 

BYTE 60 

BYTE 61 

BYTE 62 


Auch bei der Betrachtung der Sprite-Definition auf Bit- 
Ebene läßt sich erkennen, wie Sprites erstellt werden. Auf 
dem Sprite-Entwurfsblatt (Bild 5) lassen sich Sprites sofort 
in die einzelnen Byte-Werte umrechnen, die man in den 
DATA-Zeilen in Basic benötigt. 

Bei einem Standardsprite (Hires) wird jedes auf 1 gesetz¬ 
te Bit in der entsprechenden Sprite-Vordergrundfarbe an¬ 
gezeigt. Jedes auf 0 gesetzte Bit ist transparent, so daß der 
dahinterliegende Wert sichtbar wird. Dies entspricht der Si¬ 
tuation beim Standardzeichen. 

Mehrfarbige Sprites entsprechen in ihrer Bit-Struktur 
mehrfarbigen Zeichen. Horizontal wird die Punktauflösung 
zugunsten der Farbauflösung verschlechtert. Sie beträgt 
nun 12 x 21 Punkte (horizontal x vertikal). Jeder Punkt im 
Sprite wird doppelt so breit, dafür sind nun vier Farben dar¬ 
stellbar. 

Sprite-Pointer 

Jedes Sprite benötigt 64 Byte für seine Definition. Das 
letzte Byte ist ein Platzhalter. Auf diese Weise können Sie 
leicht berechnen, wo sich Ihre Sprite-Definition im Spei¬ 
cher bFii .det, da 64 Byte eine gerade Zahl darstellen und 
im Binärsystem eine gerade Potenz, nämlich 2 * 1 2 3 4 5 6 7 8 . 

Jedem der acht Sprites dient ein Byte als Sprite-Zeiger 
(oderauch Sprite-Pointer). Dieser Sprite-Pointer gibt an, wo 
sich die Sprite-Definition im Speicher befindet. Diese 
8 Byte sind stets die letzten 8 Byte vom 1-KByte-Bereich 
des Bildschirmspeichers. Im Normalfall beginnen sie da¬ 
her bei Adresse 2040 ($07F8). Beim Verschieben des Bild¬ 
schirms verändert sich jedoch auch die Lage des Sprite- 
Pointers. 

Jeder Sprite-Pointer kann eine Zahl zwischen 0 und 255 
aufnehmen. Diese Zahl zeigt auf das erste Byte der Defini¬ 
tion für das Sprite. Da jede Sprite-Definition 64 Byte benö¬ 
tigt, bedeutet dies, daß der Pointer auf jeden Platz im 
16-KByte-Speicherbereich zeigen kann, der für den VIC-ll- 
Chip zugänglich ist (da 256*64 = 16 KByte). 

Wenn der Sprite-Pointer #0 an Adresse 2040 z.B. die 
Zahl 14 enthält, bedeutet dies, daß die Definition des Sprite 
0 bei Adresse 14 * 64 = 896 beginnt, das heißt im Kasset¬ 
tenpuffer. Dies wird anhand folgender Gleichung deutlich: 
SPRITEADRESSE = (BANK* 16384) + (WERT DES 
SPRITE-POINTER* 64) 

wobei »BANK« einen der 16-KByte-Speicherbereiche be¬ 
zeichnet, auf die der VIC-ll-Chip zugreifen kann und die von 
0 bis 3 durchnumeriert sind. Diese Gleichung gibt den An¬ 
fang der 64 Byte des Sprite-Definitionssatzes an. Wenn der 
VIC-ll-Chip auf BANK 0 oder BANK 2 zugreift, ist in einigen 
Speicherplätzen ein Spiegelbild des Zeichensatzes (wie 
bereits erwähnt) vorhanden. Hier können keine Sprite- 
Definitionen stehen. 

Einschalten der Sprites 

Das VIC-ll-Steuerregister in Adresse 53269 ($D015) ist 
das Sprite-Aktivierungsregister. Jedes Sprite hat in diesem 
Register ein Bit, das steuert, ob das Sprite EIN oder AUS 
ist. Das Register sieht folgendermaßen aus: 
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SPALTEN-NR. 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 


n (für Dala-Zeilen) 

BIT 

7 

6 

5 

4 

3 

2 

1 

0 

7 

6 

5 

4 

3 

2 

1 

0 

7 

6 

5 

4 

3 

2 

1 

0 

Summe 

BITWERTE (EIN=1) 

128 

64 

32 

16 

8 

4 

2 

1 

128 

64 

32 

16 

8 

4 

2 

1 

128 

64 

32 

16 

8 

4 

2 

1 

1. Byte 

2. Byte 

3. Byte 
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Bild 5. Ein Definitionsblatt, das Sie zum Entwurf eigener Sprites kopieren können 


7 

6 

5 

4 

3 

2 

1 

0 


Um beispielsweise Sprite 1 einzuschalten, muß das Bit 
1 gesetzt werden. Dies geschieht durch folgende POKE- 
Anweisung: 

POKE 53269, PEEK (53269) OR 2t1 

Allgemeiner formuliert gilt: 

POKE 53269, PEEK (53269) OR (2tSN) 
wobei SN die Spritenummer von 0 bis 7 ist. 

Ausschalten der Sprites 

Ein Sprite wird ausgeschaltet, indem sein Bit im VIC-II- 
Steuerregister bei 53269 ($D015 HEX) gelöscht wird. Dies 
geschieht durch die POKE-Anweisung: 

POKE 53269, PEEK (53269) AND (255 - 2tSN) 
wobei SN die Spritenummer von 0 bis 7 angibt. 

Farben 

Ein Sprite kann eine von 16 möglichen Farben haben. Je¬ 
des Sprite hat sein eigenes Sprite-Farbregister. Die Farbre- 
gister haben folgende Adressen (siehe Tabelle 8): 


ADRESSE 

BESCHREIBUNG 

53287 ($D027) 

53288 ($D028) 

53289 ($D029) 

53290 ($D02A) 

53291 ($D02B) 

53292 ($D02C) 

53293 ($D02D) 

53294 ($D02E) 

FARBREGISTER VON SPRITE 0 
FARBREGISTER VON SPRITE 1 
FARBREGISTER VON SPRITE 2 
FARBREGISTER VON SPRITE 3 
FARBREGISTER VON SPRITE 4 
FARBREGISTER VON SPRITE 5 
FARBREGISTER VON SPRITE 6 
FARBREGISTER VON SPRITE 7 


Tabelle 8. Die Farbregister der Sprites 


Alle Punkte des Sprite werden in der Farbe angezeigt, 
deren Wert im Sprite-Farbregister enthalten ist. Nicht ge¬ 
setzte Punkte des Sprite sind transparent, so daß die hinter 
diesem Sprite liegenden Werte (normalerweise der Hinter¬ 
grund) zu sehen sind. 

Mehrfarbenmodus 

Im Mehrfarbenmodus kann jedes Sprite bis zu vier ver¬ 
schiedene Farben haben. So wie bei den anderen Mehrfar¬ 
benmodi ist jedoch auch hier die horizontale Auflösung auf 
die Hälfte reduziert. Das heißt, beim Arbeiten im Mehrfar¬ 
benmodus (wie bei Zeichen im Mehrfarbenmodus) enthält 
ein Sprite horizontal nicht mehr 24 Punkte, sondern nur 
noch 12 Punkte. Jedes Punktepaar wird Bitpaar genannt. 
Stellen Sie sich jedes Bitpaar (Punktepaar) als einen ein¬ 
zelnen Punkt in Ihrem Gesamt-Sprite vor, wenn Sie die Far¬ 
ben für die Punkte in Ihren Sprites wählen. 

In der Tabelle 9 finden Sie die Bitpaar-Kombinationen, 
die Sie zum Einschalten der vier Farben für die Sprites be¬ 
nötigen: 


BITPAAR 

BESCHREIBUNG 

00 

TRANSPARENT, BILDSCHIRMFARBE 

01 

SPRITE-MEHRFARBENREGISTER #0 (53285) (SD025) 

10 

SPRITE-FARBENREGISTER 

11 

SPRITE-MEHRFARBENREGISTER #1 (53286) ($d026) 


Tabelle 9. Sprite-Bit-Paare und ihre Farbquellen 


Wählen des Mehrfarbenmodus für ein Sprite 

Den Mehrfarbenmodus für ein Sprite schalten Sie ein, in¬ 
dem Sie das zum Sprite gehörende Bit in der Adresse 
53276 ($D01C) auf 1 setzen. Dies geschieht durch folgende 
POKE-Anweisung: 
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POKE 53276, PEEK (53276) OR (2tSW)i, 

wobei SN die Sprite-Nummer angibt (6 bte' ?) H 

Vergrößerte Sprites j;|' ! * 1 2 3 1;\ | 1 

Der VIC-ll-Chip hat die Fähigkeit, ein Sprite in vertikaler 
und/oder horizontaler Richtung zu vergrößern. Bei der Aus¬ 
dehnung wird jeder Punkt im Sprite doppelt so breit oder 
hoch. Die Auflösung nimmt nicht zu; das Sprite wird ledig¬ 
lich größer. 

Um ein Sprite in horizontaler Richtung zu strecken, ist 
das dazugehörende Bit im VIC-ll-Steuerregister in Adresse 
53277 ($D01D HEX) auf 1 zu setzen. Durch folgende POKE- 
Anweisung wird ein Sprite in X-Richtung vergrößert: 

POKE 53277, PEEK (53277) OR (2tSN) 
wobei SN die Sprite-Nummer (0 bis 7) angibt. 

Durch folgende POKE-Anweisung wird ein Sprite in X- 
Richtung wieder verkleinert: 

POKE 53277, PEEK (53277) AND (255-2ISN) 

wobei SN die Sprite-Nummer von 0 bis 7 angibt. Dadurch 

wird das zum Sprite gehörende Bit wieder gelöscht. 

Die vertikale Streckung eines Sprite geschieht durch 
Setzen des korrespondierenden Bits in Speicherstelle 
53271 ($D017): 

POKE 53271, PEEK (53271) OR (2tSN) 

wobei SN die Sprite-Nummer von 0 bis 7 angibt. 

Bezugspunkt eines Sprites 


Die Verkleinerung bis zur normalen vertikalen Ausdehnung 
erfolgt durch Löschen des Bits: 

POKE 53271, PEEK (53271) AND (255-21 SN) 
wobei SN die Sprite-Nummer von 0 bis 7 angibt. 

Sprite-Positionierung 

Nachdem Sie ein Sprite konstruiert haben, können Sie 
es auf dem Bildschirm bewegen. Hierzu benutzt der C64 
drei Positionsregister: 

1) Sprite X-Positionsregister 

2) Sprite Y-Positionsregister 

3) Höchstes Bit des X-Positionsregisters 
(engl. MSB = Most significant Bit). 

Jedes Sprite hat ein X-Positionsregister, ein Y-Positions¬ 
register und ein Bit im MSB-X-Register. Es stehen Ihnen 
512 mögliche X- und 256 mögliche Y-Positionen zur Verfü¬ 
gung. Die X- und Y-Positionsregister »arbeiten« paarweise 
zusammen. Die Adressen von X- und Y-Register erschei¬ 
nen wie folgt im Speicher: Zunächst das X-Register von 
Sprite 0, dann das Y-Register für das gleiche Sprite. 

Danach folgt das X-Register und dann das Y-Register für 
Sprite 1 etc. 

Nach allen 16 X- und Y-Registern kommt das MSB-X- 
Register, das für jedes Sprite ein Bit zur Verfügung stellt. 

Die Tabelle 10 gibt die Adressen der einzelnen Sprite- 
Positionsregister an. Sie können auf diese Adressen durch 
POKE-Anweisungen zugreifen: 


Als Bezugspunkt eines Sprite zur Positionsangabe dient 
die obere linke Ecke des 24 x 21-Punktebereichs, der für ein 
Sprite zur Verfügung steht. Es spielt herbei keine Rolle, wie 
viele bzw. wenige Punkte Sie für ein Sprite benutzt haben. 
Auch wenn nur ein Punkt für das Sprite benutzt wurde, und 
dieses in der Mitte des Bildschirms stehen soll, müssen Sie 
für die Positionierung die obere linke Ecke des Sprite als 
Bezugspunkt verwenden. 

Vertikale Positionierung 

Die Positionierung in horizontaler Richtung ist etwas 
schwieriger als die vertikale Positionierung. Daher werden 
wir uns zunächst mit ihr beschäftigen. 

Es gibt 200 sichtbare Punktpositionen, die auf dem Bild¬ 
schirm in Y-Richtung programmiert werden können. Das Y- 
Positionsregister der Sprites kann jedoch Zahlen bis zu 255 
fassen, so daß Sprites auch aus dem Bildschirm hinaus- 
bzw. hineinbewegt werden können. 

Der erste Wert, bei dem ein Sprite von oben auf dem Bild¬ 
schirm auftaucht und der für ein in Y-Richtung unvergrößer- 
tes Sprite gilt, ist 30. Für ein in Y-Richtung gestrecktes Spri¬ 
te lautet dieser Wert 9 (da jeder Punkt zweimal so hoch ist 
und die Ausgangsposition auch hier von der obersten lin¬ 
ken Ecke des Sprite berechnet wird, ist hier der entspre¬ 
chende Wert kleiner). 

Der erste Y-Wert, bei dem ein Sprite (vergrößert oder 
nicht) ganz auf dem Bildschirm erscheint (alle 21 mögli¬ 
chen Zeilen werden angezeigt) lautet 50. 

Der letzte Y-Wert, bei dem ein unvergrößertes Sprite 
noch ganz auf dem Bildschirm vorhanden ist, ist 229. Für 
ein vergrößertes Sprite lautet der Wert 208. 

Der erste Y-Wert, bei dem ein Sprite vollständig vom Bild¬ 
schirm vc-schwunden ist, ist 250. In Listing 9 finden Sie ein 
Beispiel zur Positionierung des Sprite 0. 


10 

PRINT CHR*<147> 

:REM BILDSCHIRM L 



OESCHEN 


<038> 

20 

POKE 2040,13 

:REM DATEN SPRITE 



0 AUS BLOCK 13 


<029> 

30 

FOR 1=0 TO 62:POKE B32+I,129:NEXT:REM S 



PRITEDATEN EINTRAEEN 


<044> 

40 

V=53248 

:REM STARTADRESSE 



DES VIDEOCHIP 


<123> 

50 

POKE V+21,1 

: REM SPRITE 0 EINS 



CHALTEN 


<090> 

60 

POKE V+39,1 

:REM SPRITE 0 FÄRB 



E GEBEN 


< 129> 

70 

POKE V+1,100 

: REM SPRITE 0 Y-PO 



SITION 


<104> 

80 

POKE V,100:POKE V+16 

0:REM SPRITE 0 X-P 



OSITION 


< 1B8> 

Listing 9. Positionierung des Sprite Nummer 0 



Horizontale Positionierung 

Positionierung in horizontaler Richtung ist komplizierter, 
da hier mehr als 256 Positionen zur Verfügung stehen. Man 


ADRESSE 

BESCHREIBUNG 

ADRESSE 

BESCHREIBUNG 

DEZIMAL 

HEX. 

DEZIMAL 

HEX. 

53248 

53249 

53250 

53251 

53252 

53253 

53254 

53255 

53256 

($D000) 

(SD001) 

($D002) 

($D003) 

($D004) 

($D005) 

($D006) 

($D007) 

(SD008) 

X-POSITIONSREGISTER VON SPRITE 0 
Y-POSITIONSREGISTER VON SPRITE 0 
X-POSITIONSREGISTER VON SPRITE 1 
Y-POSITIONSREGISTER VON SPRITE 1 
X-POSITIONSREGISTER VON SPRITE 2 
Y-POSITIONSREGISTER VON SPRITE 2 
X-POSITIONSREGISTER VON SPRITE 3 
Y-POSITIONSREGISTER VON SPRITE 3 
X-POSITIONSREGISTER VON SPRITE 4 

53257 

53258 

53259 

53260 

53261 

53262 

53263 

53264 

($D009) 
($D00A) 
($D00B) 
(SD00C) 
(SD00D) 
($D00E) 
(SD00F) 
($D010) 

Y-POSITIONSREGISTER VON SPRITE 4 
X-POSITIONSREGISTER VON SPRITE 5 
Y-POSITIONSREGISTER VON SPRITE 5 
X-POSITIONSREGISTER VON SPRITE 6 
Y-POSITIONSREGISTER VON SPRITE 6 
X-POSITIONSREGISTER VON SPRITE 7 
Y-POSITIONSREGISTER VON SPRITE 7 
X-MSB REGISTER 



Tabelle 10. Die Sprite-Positionsregister 
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benötigt daher ein neuntes Bit zur Steuerung der X- 
Position. Durch Hinzunahme des Extrabits hat ein Sprite 
nun 512 mögliche Positionen in der X-Richtung (links/ 
rechts). Dadurch stehen mehr Positionen zur Verfügung, 
als auf dem Bildschirm angezeigt werden können, und je¬ 
des Sprite kann eine Position von 0 bis 511 haben. Es sind 
jedoch lediglich die Werte zwischen 24 und 343 auf dem 
Bildschirm sichtbar. Wenn die X-Position eines Sprite grö¬ 
ßer als 255 (auf der rechten Bildschirmseite) ist, muß das 
der Sprite-Nummer entsprechende Bit im MSB-Register 
(53264) auf 1 gesetzt sein. Wenn die X-Position eines Sprite 
kleiner als 256 (z. B. auf der linken Bildschirmseite) ist, 
dann muß das X-MSB-Register dieses Sprite auf 0 gesetzt 
sein. 

Die Bits 0 bis 7 des X-MSB-Registers entsprechen den 
Sprites 0 bis 7. Durch das Programm (Listing 10) wird ein 
Sprite über den Bildschirm bewegt. 


10 

PRINT CHR$(147) 

:REM BILDSCHIRM L 



OESCHEN 



<038> 

20 

POKE 2040,13 

: REM 

DATEN SPRITE 



0 AUS BLOCK 13 



<029> 

30 

FOR 1=0 TO 62:POKE 

832+1,: 

129:NEXT:REM S 



PRITEDATEN EINTRÄGEN 


<044> 

40 

V=5324B 

: REM 

STARTADRESSE 



DES VIDEOCHIP 



<123> 

50 

POKE V+21,1 

: REM 

SPRITE 0 EINS 



CHALTEN 



<090> 

60 

POKE V+39,1 

: REM 

SPRITE 0 FÄRB 



E GEBEN 



< 129> 

70 

POKE V+1,100 

: REM 

SPRITE 0 Y-PO 



SITION 



< 104> 

80 

FOR J=0 TO 347 

: REM 

X—POSITIONEN 



SPRITE 0 



< 186> 

90 

HX=INT(J/256):LX=J- 

-256*HX 


<064> 


100 POKE V, LX: POKE V+16,HX:NEXT S< <205> 

Listing 10. Bewegen eines Sprite über den Bildschirm 


Beim Bewegen von vergrößerten Sprites auf die linke 
Bildschirmseite in X-Richtung soll zu Beginn der Bewe¬ 
gung das Sprite auf der rechten Seite nicht sichtbar sein. 
Ein erweitertes Sprite ist nämlich größer als der verfüg¬ 
bare Platz auf der linken Bildschirmseite. Das zeigt Ihnen 
Listing 11. 

Die Bilder 6 und 7 erklären die Sprite-Positionierung. Da¬ 
mit können Sie jedes Sprite beliebig positionieren. Durch 
Bewegung eines Sprite um jeweils eine einzelne Punktpo¬ 
sition wird eine fließende Bewegung möglich. 


10 PRINT CHR* <147) :REM BILDSCHIRM L 

OESCHEN <038> 

20 POKE 2040,13 sREM DATEN SPRITE 

0 AUS BLOCK 13 <029> 

30 FOR 1=0 TO 62:POKE 032+1,255:NEXT:REM S 

PRITEDATEN EINTRABEN <026> 

40 V=5324B :REM STARTADRESSE 

DES VIDEOCHIP <123> 

50 POKE V+21,1 :REM SPRITE 0 EINS 

CHALTEN <090> 

60 POKE V+39,1:POKE V+23,1:P0KE V+29,1:REM 

SPRITE 0 FARBE GEBEN UND VERGROESSERN <062> 
70 POKE V+1,100 :REM SPRITE 0 Y-PO 

SITION <104> 

80 J=48B <102> 

90 HX=INT<J/256):LX=J-256*HX:IF HX<0 THEN 

80 <150> 

100 POKE V,LX:POKE V+16,HX <142> 

110 J=J-1:IF J>511 THEN J=0 <149> 

120 IF J<488 OR J>348 THEN 90 <133> 


Listing 11. Das Sprite wird nun vergrößert und ebenfalls 
über den Bildschirm bewegt 



Bild 6. Sprite-Positionen bei normalem Bildschirm 



Bild 7. Sprite-Positionen bei verkleinertem Bildschirm 


Sprite-Anzeigeprioritäten 

Die Wege der verschiedenen Sprites können sich kreu¬ 
zen. Darüber hinaus können sich Sprites vor oder hinter an¬ 
deren Objekten auf dem Bildschirm bewegen. Durch diese 
räumliche Darstellung können Sie bei Spielen einen dreidi¬ 
mensionalen Effekt erzeugen. Die Priorität der einzelnen 
Sprites ist festgelegt. Sprite 0 hat dabei die oberste, Sprite 
1 die nächste usw., so daß Sprite 7 entsprechend die nied¬ 
rigste Priorität hat. Wenn also Sprite 1 und Sprite 6 einan¬ 
der kreuzen, so erscheint Sprite 1 vor Sprite 6. 

Soll ein Sprite im Bildvordergrund erscheinen, so muß es 
eine niedrigere Nummer erhalten, als das, das im Hinter¬ 
grund erscheinen soll. 

Dabei ist ein .»Fenstereffekt« möglich. Hat ein Sprite mit 
höherer Priorität »Löcher« (Bereiche, in denen die Punkte 
nicht gesetzt sind), so scheinen Sprites mit niedriger Priori¬ 
tät durch. Das gleiche gilt für Sprites und Hintergrundda¬ 
ten. 

Das Prioritätsverhältnis zwischen Sprites und Bild¬ 
schirmhintergrund wird durch ein Register in Adresse 
53275 ($D01B) gesteuert. In diesem Register ist jedem 
Sprite ein Bit zugeordnet. Ist das Bit 0, so hat das ent¬ 
sprechende Sprite eine höhere Priorität als der Bildschirm¬ 
hintergrund, das heißt, das Sprite erscheint vor den Hinter¬ 
grunddaten. Ist das Bit 1, so hat der Hintergrund Priorität 
gegenüber dem Sprite. Dieses erscheint dann hinter den 
Hintergrunddaten. 
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Kollisionserkennung 


Einer der interessanteren Aspekte des VIC-ll-Chips ist die 
Möglichkeit der Kollisionserkennung. Zusammenstöße 
können zwischen verschiedenen Sprites oder Sprites und 
einem bestimmten Hintergrund erkannt werden. Zu einer 
Kollision kommt es, wenn ein »Nicht-0«-Teil eines Sprite ei¬ 
nen »Nicht-0«-Teil eines weiteren Sprite oder ein Bild¬ 
schirmzeichen überlappt. 

Kollision zwischen einzelnen Sprites 

Eine Kollision zwischen einzelnen Sprites wird vom Com¬ 
puter erkannt und im Register 53278 ($D01E) gekennzeich¬ 
net. In diesem Register hat jedes Sprite ein Bit. Ist dieses 
Bit 1, dann ist das Sprite an einer Kollision beteiligt. Die Bits 
in diesem Register bleiben bis zum Lesen (PEEK-Anwei- 
sung) gesetzt. Nach dem Lesen wird das Register automa¬ 
tisch gelöscht. Der Wert sollte daher sofort in einer Varia¬ 
blen gespeichert werden, bis er verarbeitet wird. 

Kollisionen können auch dann auftreten, wenn Sprites 
ausgeschaltet sind. 

Kollision zwischen Sprites und Daten 

Zusammenstöße von Sprites mit Bildschirmzeichen wer¬ 
den im Register in Adresse 53279 ($D01F) festgestellt. 
Auch hier hat jedes Sprite ein Bit. Ist dieses Bit eine 1, dann 
ist dieses Sprite an einer Kollision beteiligt. Die Bits in die¬ 
sem Register bleiben bis zum Lesen (PEEK-Anweisung) 
gesetzt. Auch hier wird das Register nach einem Lesevor¬ 
gang gelöscht, Sie sollten diesen Wert ebenfalls in einer 
Variablen Zwischenspeichern. Der Multi-Color-Wert 01 
wird bei Kollisionen als transparent angesehen, auch wenn 
er auf dem Bildschirm sichtbar ist. Beim Erstellen eines 
Hintergrunds sollte daher all das, was nicht zu einer Kolli¬ 
sion führen darf, im Mehrfarbenmodus auf 01 gesetzt wer¬ 
den. 

Einige Beispiele zur Spriteprogrammierung zeigen die 
Listings 12, 13 und 14. 

Weitere Grafikmöglichkeiten 


Über Bit 4 des VIC-ll-Steuerregisters an Adresse 53265 
($D011) wird das Ein- bzw. Ausschalten des Bildschirms ge¬ 
steuert. Ist dieses Bit eingeschaltet (das heißt auf 1 ge¬ 
setzt), dann ist der Bildschirm normal. Ist Bit 4 ausgeschal¬ 
tet (=0), dann nimmt der gesamte Bildschirm die Rahmen¬ 
farbe an. 

Durch folgende POKE-Anweisung wird der Bildschirm 
weggeblendet. Die Daten gehen nicht verloren, sie werden 
lediglich nicht mehr angezeigt. 

POKE 53265, PEEK(53265) AND 239 

Den normalen Bildschirm erhält man durch: 

POKE 53265, PEEK(53265)0R 16 

Durch Ausschalten des Bildschirms wird der Prozessor 
entlastet und die Programmausführung erfolgt daher etwas 
schneller. 

Rasterregister 

Das Rasterregister befindet sich im VIC-ll-Chip an Adres¬ 
se 53266 ($D012). Es erfüllt einen doppelten Zweck. Beim 
Lesen des Registers werden die unteren 8 Bits der derzeiti¬ 
gen Rasterposition wiedergegeben. Das Bit 9 der Raster¬ 
position befindet sich als Bit 7 in Adresse 53265 ($D011). 
Dieses Register ist von Bedeutung, wenn man beim Verän¬ 
dern von Bildschirminhalten ein Flackern befürchten muß. 
Man sollte solch eine Änderung dann so vornehmen, daß 
die Rasterstrahlposition nicht im sichtbaren Anzeigenbe¬ 
reich liegt, das heißt, wenn die Punktpositionen zwischen 
51 und 251 liegen. 


Schreibt man in das Rasterregister (einschließlich MSB), 
wird die zugeordnete Zahl für den Rastervergleich gespei¬ 
chert. Ist der tatsächliche Rasterwert gleich der Zahl des 
Rasterregisters, so wird ein Bit im VIC-ll-Chip-lnterrupt- 
Register 53273 ($D019) auf 1 gesetzt (EIN). 

Steht das richtige Interrupt-Bit wirksam auf 1, so kommt 
es zu einem Raster-Interrupt (IRQ). 

Interrupt-Statusregister 

Das Interrupt-Statusregister zeigt den derzeitigen Status 
einer beliebigen Interrupt-Quelle. So ist der Status von Bit 
2 des Interrupt-Registers 1, wenn es zu einer Kollision zwi¬ 
schen zwei Sprites kommt. Das gleiche gilt entsprechend 
für die in Tabelle 11 aufgeführten Bits 0 und 3. Auch Bit 7 
wird bei einem Interrupt auf 1 gesetzt. 

Das Interrupt-Statusregister befindet sich in Adresse 
53273 (3D019). 


SCHALTER 

BIT# 

BESCHREIBUNG 

IRST 

0 

Gesetzt, wenn derzeitiger Rasterwert gleich 
gespeichertem Rasterwert. 

IMDC 

1 

Gesetzt durch eine Kollision zwischen Sprite 
und einem Zeichen auf dem Bildschirm, Zu¬ 
rückstellung durch RESET. 

IMMC 

2 

Gesetzt durch eine Kollision zwischen zwei 
Sprites, Zurückstellung durch RESET. 

ILP 

3 

Gesetzt bei negativer Flanke am Lightpen- 
Eingang. 

IRQ 

7 

Wird gesetzt, wenn eines der Bits #0 bis 3 
gesetzt ist. 


Tabelle 11. Die Bedeutung der einzelnen Bits im 
Interrupt-Statusregister 


Nach dem Setzen eines Interrupt-Bits ist dieses »einge¬ 
rastet« und muß durch Einschreiben einer 1 in dieses Bit im 
Interrupt-Register gelöscht werden (= RESET). Hierdurch 
kann der Interrupt selektiv ohne Störung der anderen Inter¬ 
rupt-Bits gehandhabt werden. 

Das Interrupt-Aktivierungsregister befindet sich in Adres¬ 
se 53274 (SD01A). Dieses Register hat das gleiche Format 
wie das Interrupt-Statusregister. Wenn das entsprechende 
Bit im Interrupt-Aktivierungsregister nicht auf 1 gesetzt ist, 
wird von dieser Quelle kein Interrupt angefordert. Das Inter¬ 
rupt-Statusregister kann noch immer abgerufen werden, es 
werden jedoch keine Interrupts erzeugt. Um eine Interrupt- 
Anforderung wirksam zu machen, muß das entsprechende 
lnterrupt-Aktivierungsbit(wieinTabelle11 gezeigt) auf 1 ge¬ 
setzt sein. 

Über diese Interrupt-Struktur können Betriebsarten mit 
geteiltem Bildschirm benutzt werden. So kann z. B. für die 
eine Hälfte des Bildschirms Bit-Mapping, für die andere 
Hälfte Text, mehr als 8 Sprite gleichzeitig usw. benutzt wer¬ 
den. Die Interrupts müssen nur richtig gehandhabt werden. 
Soll die obere Bildschirmhälfte z. B. im Bit-Mapping und die 
untere mit Text dargestellt werden, muß lediglich das Ra¬ 
ster-Vergleichsregister (wie bereits erklärt) für die untere 
Bildschirmhälfte gesetzt sein. Bei einem Interrupt muß der 
VIC-ll-Chip die Zeichen aus dem ROM nehmen; dann wird 
das Raster-Vergleichsregister für einen Interrupt am obe¬ 
ren Bildschirmrand eingestellt. Wenn es dort zu einem In¬ 
terrupt kommt, muß der VIC-ll-Chip die Zeichen aus dem 
RAM (Bit-Mapping) nehmen. 

Auf die gleiche Weise können auch mehr als 8 Sprite an¬ 
gezeigt werden. Hierzu ist Basic jedoch leider nicht schnell 
genug. Beim Arbeiten mit Interrupts müssen Sie also Ma¬ 
schinensprache wählen. 

Vorschläge für Bildschirm-Zeichenfarbe-Kombinationen 

Bei Farbfernsehgeräten gibt es Einschränkungen hin¬ 
sichtlich der Fähigkeit, bestimmte Farben nebeneinander 
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10 REM * SPRITE BEISPIEL 1 * 

<201 > 


ANN DX UMDREHEN 

<091 > 

20 REM DER HEISSLUFTBALLON 

30 VIC=13*4096:REM HIER BEGINNEN DIE VIC-R 

<031 > 

420 

430 

IF X=255 AND DX=1 THEN X=-1:SIDE=1 

REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 

<023> 

EGISTER 

< 157> 


ITE 

<213> 

35 POKE VIC+21,1:REM EINSCHALTEN SPRITE 0 

36 POKE VIC+33,14:REM HINTERGRUNDFARBE HEL 

< 114> 

440 

450 

IF X=0 AND DX=—1 THEN X=256:SIDE=0 

REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 

<063> 

LBLAU 

< 120 > 


ITE 

<233> 

37 POKE VIC+23,1:REM SPRITE 0 IN Y VERDOPP 


460 

X=X+DX:REM ADDIEREN VON DX ZU X 

< 170> 

ELN 

<096> 

470 

X=X AND 255;REM SICHERSTELLEN DASS X I 


38 POKE VIC+29,1:REM UND IN X 

< 184> 


M ERLAUBTEN BEREICH 

<051 > 

40 POKE 2040,192:REM SPRITEZEIGER 0 AUF BL 


480 

Y=Y+DY 

<131 > 

OCK 192 

<181 > 

485 

POKE VIC+16,SIDE 

<070> 

180 POKE VIC,100:REM X-POSITION SPRITE 0 

< 215 > 

490 

POKE VIC,X:REM NEUE X-POSITION SPRITE 


190 POKE VIC+1,100:REM UND Y-POSITION 

<017> 


0 

<000> 

220 POKE VIC+39,1:REM FARBE SPRITE 0 

<090> 

510 

POKE VIC+1,Y:REM NEUER Y-WERT 

<056> 

250 FOR Y=0 TO 63 

<114> 

530 

GOTO 340 

<030> 

300 READ A:REM SPRITEDATEN LESEN 

<026> 

600 

REM ***** SPRITE DATEN ***** 

< 131 > 

310 POKE 192*64+Y,A:REM UND EINTRÄGEN 

<086> 

610 

DATA 0,127,0,1,255,192,3,255,224,3,231 


320 NEXT Y 

<022> 


,224 

< 199> 

330 DX=1 : DY=1 

< 162> 

620 

DATA 7,217,240,7,223,240,7,217,240,3,2 


340 X=PEEK(VIC>:REM X-POSITION PRUEFEN 

<020> 


31,224 

< 191 > 

350 Y=PEEK(VIC+1):REM Y-POSITION TESTEN 

360 IF Y=50 OR Y=200 THEN DY=-DY:REM BEI R 

< 192> 

630 

DATA 3,255,224,3,255,224,2,255,160,1,1 
27,64 

< 198> 

ANDPOSITION DY UMKEHREN 

380 IF X=24 AND (PEEK(VIC+16)AND 1>=0 THEN 

<192> 

640 

DATA 1,62,64,0,156,128,0,156,128,0,73, 
0,0,73,0 

<076> 

DX=—DX:REM WENN SPRITE 

390 REM AM LINKEN RAND (X<24 UND MSB=0> DA 
NN DX UMKEHREN 

400 IF X=40 AND (PEEK(VIC+16)AND 1)=1 THEN 

<054> 

<219> 

650 

DATA 0,62,0,0,62,0,0,62,0,0,28,0,0 

<111> 

DX=-DX:REM WENN SPRITE 

410 REM AM RECHTEN RAND (X=40 UND MSB=1) D 

<201 > 

Listing 12. Sprite-Demo: Ein Ballon fliegt über den Bild¬ 
schirm 


10 REM * SPRITE BEISPIEL 2 * <205> 

20 REM NOCH EINMAL DER HEISSLUFTBALLON <004> 

30 VIC=13*4096:REM HIER BESINNEN DIE VIC-R 

EßlSTER <iSV>0( 

35 POKE VIC+21,63:REM EINSCHALTEN SPRITE 0 

BIS 5 

36 POKE VIC+33,14:REM HINTERSRUNDFARBE HEL 
LBLAU 

37 POKE VIC+23,3:REM SPRITE 0 UND 1 IN Y V 
ERDOPPELN 

38 POKE VIC+29,3:REM UND IN X 
40 POKE 2040,192:REM SPRITEZEIGER 0 AUF BL 


<036> 


< 120 > 


<166> 

<192> 


340 X=PEEK(VIC):REM X-POSITION SPRITE 0 PR 

UEFEN <207> 

350 Y=PEEK (VIC+1):REM Y-POSITION TESTEN <192> 
uoaspwp Y=50 OR Y=200 THEN DY=—DY:REM BEI R 

ANDPOSITION DY UMKEHREN <192> 

3B0 IF X=24 AND (PEEK(VIC+16)AND 1)=0 THEN 

DX=-DX:REM WENN SPRITE <054> 

390 REM AM LINKEN RAND <X<24 UND MSB=0) DA 

NN DX UMKEHREN <219> 

400 IF X=40 AND (PEEK(VIC+16)AND 1)=1 THEN 

DX=—DX:REM WENN SPRITE <201> 

410 REM AM RECHTEN RAND (X=40 UND MSB=1) D 


OCK 192 <181> 
50 POKE 2041,193:REM SPRITEYEIGER 1 <095> 
60 POKE 2042,192:REM SPRITEZEIGER 2 <175> 
70 POKE 2043,193:REM SPRITEZEIGER 3 <255> 
80 POKE 2044,192:REM SPRITEZEIGER 4 <072> 
90 POKE 2045,193:REM SPRITEZEIGER 5 <152> 


100 POKE VIC+4,30:REM X-POSITION SPRITE 2 <151> 
110 POKE VIC+5,58:REM Y-POSITION SPRITE 2 <101> 
120 POKE VIC+6,65:REM X-PDSITION SPRITE 3 <230> 
130 POKE VIC+7,58:REM Y-POSITION SPRITE 3 <154> 
140 POKE VIC+8,100:REM X-POSITION SPRITE 4 <218> 
150 POKE VIC+9,58:REM Y-POSITION SPRITE 4 <207> 
160 POKE VIC+10,100:REM X-POSITION SPRITE 


5 <159> 
170 POKE VIC+11,58:REM Y-POSITION SPRITE 5 <067> 

175 PRINT"<WHITE,CLR>"TAB<15)"DIES SIND 2 
HIRES-SPRITES"; <047> 

176 PRINT TAB(55)"EINER UEBER DEM ANDEREN" <105> 
1B0 POKE VIC,100:REM X-POSITION SPRITE 0 <215> 
190 POKE VIC+1,100:REM UND Y-POSITION <017> 
200 POKE VIC+2,100:REM X-POSITION SPRITE 1 <082> 
210 POKE VIC+3,100:REM Y-POSITION SPRITE 1 <02B> 
220 POKE VIC+39,1:REM FARBE SPRITE 0 <090> 
230 POKE VIC+41,1:REM FARBE SPRITE 2 <223> 
240 POKE VIC+43,1:REM FARBE SPRITE 4 <237> 
250 POKE VIC+40,6:REM FARBE SPRITE 1 <005> 
260 POKE VIC+42,6:REM FARBE SPRITE 3 <021> 
270 POKE VIC+44,6:REM FARBE SPRITE 5 <035> 
280 FOR X=192 TO 193:REM SPRITEDEFINITIONE 

N <221> 
290 FOR Y=0 TO 63:REM BYTEZAEHLER <233> 
300 READ A:REM SPRITEDATEN LESEN <026> 
310 POKE X*64+Y,A:REM UND EINTRÄGEN <232> 
320 NEXT Y,X <227> 
330 DX=1:DY=1 <162> 


ANN DX UMDREHEN <091> 

420 IF X=255 AND DX=1 THEN X=-1:SIDE=3 <025> 

430 REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 

ITE <213> 

440 IF X=0 AND DX=—1 THEN X=256:SIDE=0 <063> 

450 REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 

ITE <233> 

460 X=X+DX:REM ADDIEREN VON DX ZU X <170> 

470 X=X AND 255:REM SICHERSTELLEN DASS X I 

M ERLAUBTEN BEREICH <051> 

480 Y=Y+DY <131> 

485 POKE VIC+16,SIDE <070> 

490 POKE VIC,X:REM NEUE X-POSITION SPRITE 

0 < 000 > 

500 POKE VIC+2,X:REM NEUER X-WERT SPRITE 1 <137> 

510 POKE VIC+1,Y:REM NEUER.Y-WERT <056> 

520 POKE VIC+3,Y:REM NEUER Y-WERT SPRITE 1 <035> 

530 GOTO 340 <030> 

600 REM ***** SPRITE DATEN ***** <131> 

610 DATA 0,255,0,3,153,192,7,24,224,7,56,2 

24,14,126,112,14,126,112,14,126,112 <192> 

620 DATA 6,126,96,7,56,224,7,56,224,1,56,1 

28,0,153,0,0,90,0,0,56,0 <148> 

630 DATA 0,56,0,0,0,0,0,0,0,0,126,0,0,42,0 

,0,84,0,0,40,0,0 <001> 

640 DATA 0,0,0,0,102,0,0,231,0,0,195,0,1,1 

29,128,1,129,128,1,129,128 <225> 

650 DATA 1,129,128,0,195,0,0,195,0,4,195,3 

2,2,102,64,2,36,64,1,0,128 <248> 

660 DATA 1,0,128,0,153,0,0,153,0,0,0,0,0,8 

4,0,0,42,0,0,20,0,0 <110> 


Listing 13. Mit einem Trick lassen sich auch farbige 
Hires-Sprites darstellen 
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anzuzeigen. Bestimmte Kombinationen von Bildschirm 
und Zeichenfarben führen zu unscharfen Bildern. Tabelle 
12 zeigt Ihnen, welche Farbkombinationen Sie besser ver¬ 
meiden sollten und welche Farben gut miteinander kombi¬ 
niert werden können. 
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O = GUT 


= ANNEHMBAR 


x = SCHLECHT 


Tabelle 12. Die Wirkung verschiedener Zeichen-/ 


450 REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 


ITE <233> 

460 X=X+DX:REM ADDIEREN VON DX ZU X <170> 

470 X=X AND 255:REM SICHERSTELLEN DASS X I 

M ERLAUBTEN BEREICH <051> 

480 Y=Y+DY <131> 

485 POKE VIC+16,SIDE <070> 

490 POKE VIC,X:REM NEUE X-POSITION SPRITE 

0 < 000 > 

510 POKE VIC+1,Y:REM NEUER Y-WERT <056> 

520 GET AS:REM ERWARTET TASTENDRUCK <082> 

521 IF A*="M" THEN POKE VIC+2B,1:REM UMSCH 

ALTEN AUF MULTICOLORSPRITE <116> 

522 IF A*="H" THEN POKE VIC+28,0:REM UMSCH 

ALTEN AUF HIRES-SPRITE <217> 

530 GOTO 340 <030> 

600 REM ***** SPRITE DATEN ***** <131> 


610 DATA 64,0,1,16,170,4,6,170,144,10,170, 

160,42,170,168,41,105,104,169,235,106 <165> 

620 DATA 169,235,106,169,235,106,170,170,1 

70,170,170,170,170,170,170,170,170,170 <128> 
630 DATA 166,170,154,169,B5,106,170,85,170 

,42,170,168,10,170,160,1,0,64,1,0,64 <206> 

640 DATA 5,0,80,0 <114> 

Listing 14. Mit den Tasten <M> und <H> läßt sich das 
Sprite zwischen Hires- und Multicolor-Modus umschalten 


Noch einmal: Sprites 

Es gibt mindestens drei verschiedene Basic-Program- 
miertechniken zum Erstellen von Grafikbildern und Zei¬ 
chentrickfilmen mit dem C64. Sie können den computerei¬ 
genen Grafikzeichensatz benutzen. Sie können in Ihren ei¬ 
genen Zeichen programmieren oder, die beste Möglich¬ 
keit... die in den Computer eingebauten Sprites benutzen. 

Damit Sie sehen, wie einfach dies ist, zeigen wir Ihnen in 
Listing 15 ein kurzes Programm für die Erstellung von Spri- 


Bildschirm-Farbkombinationen 


tes in B' iic. 


10 REM * SPRITE BEISPIEL 3 * <209> 

20 REM DAS HEISSLUFTMONSTER <14S> 

30 VIC=13*4096:REM HIER BEGINNEN DIE VIC-R 

EGISTER <157> 

35 POKE VIC+21,1:REM EINSCHALTEN SPRITE 0 <114> 

36 POKE VIC+33,14:REM HINTERGRUNDFARBE HEL 

LBLAU <120> 

37 POKE VIC+23,1:REM SPRITE 0 IN Y VERDOPP 

ELN <096> 

38 POKE VIC+29,1:REM UND IN X <1B4> 

40 POKE 2040,192:REM SPRITEZEIGER 0 AUF BL 

OCK 192 < 181 > 

50 POKE VIC+28,1:REM MEHRFARBENMODUS SPRIT 

E 0 <145> 

60 POKE VIC+37,7:REM FARBREGISTER 0 SETZEN <027> 

70 POKE VIC+38,4:REM FARBREGISTER 1 SETZEN <02B> 

180 POKE VIC,100:REM X-POSITION SPRITE 0 <215> 

190 POKE VIC+1,100:REM UND Y-POSITION <017> 

220 POKE VIC+39,2:REM FARBE SPRITE 0 <094> 

250 FOR Y=0 TO 63 <114> 

300 READ A:REM SPRITEDATEN LESEN <026> 

310 POKE 192*64+Y,A:REM UND EINTRÄGEN <0B6> 

320 NEXT Y <022> 

330 DX=1:DY=1 <162> 

340 X=PEEK(VIC):REM X-POSITION PRUEFEN <020> 

350 Y=PEEK<VIC+1):REM Y-POSITION TESTEN <192> 

360 IF Y=50 OR Y=208 THEN DY=—DY:REM BEI R 

ANDPOSITION DY UMKEHREN <064> 

380 IF X=24 AND <PEEK(VIC+16)AND 1>=0 THEN 

DX=—DX.-REM WENN SPRITE <054> 

390 REM AM LINKEN RAND (X<24 UND MSB=0) DA 

NN DX UMKEHREN <219> 

400 IF X=40 AND (PEEK(VIC+16)AND 1)=1 THEN 

DX=-DX:REM WENN SPRITE <201> 

410 REM AM RECHTEN RAND (X=40 UND MSB=1) D 

ANN DX UMDREHEN <091> 

420 IF X=255 AND DX=1 THEN X=-1:SIDE=1 <023> 

430 REM UMSCHALTEN AUF ANDERE BILDSCHIRMSE 

ITE <213> 

440 IF X=0 AND DX=—1 THEN X=256:SIDE=0 <063> 


10 PRINT CHR*<147> 

<039> 

20 POKE 2040,13 

<069 > 

30 FOR 5=832 TO 832+62.-P0KE S,255:NEXT 

<165> 

40 V=5324S 

< 173> 

50 POKE V+21,1 

< 197> 

60 POKE V+39,1 

<241 > 

70 POKE V,24 

< 107> 

30 POKE V+1,100 

<099> 

Listing 15. Dieses kurze Programm beinhaltet schon das 

Wichtigste zur Erstellung von Sprites 



Dieses Programm enthält die Hauptbestandteile, die Sie 
zum Erstellen von Sprites benötigen. Es definiert das erste 
Sprite - Sprite 0 - als weißes Quadrat auf dem Bildschirm. 
Wir wollen das Programm nun Zeile für Zeile erklären: 

Zeile 10 löscht den Bildschirm. 

Zeile 20 setzt den »Sprite-Zeiger« auf die Speicherstelle, 
aus der der C64 die Spritedaten lesen soll. Sprite 0 wird in 
2040, Sprite 1 in 2041, Sprite 2 in 2042 usw. und Sprite 7 in 
2047 gesetzt. Durch Verwendung der nachfolgenden Zeile 
anstelle von Zeile 20 können alle 8 Sprite-Zeiger auf 13 ge¬ 
setzt werden: 

FOR SP = 2040 T0 2047:POKE SP, 13:NEXT SP 

Zeile 30 schreibt das erste Sprite (Sprite 0) in 63 Byte des 
Speichers beginnend bei Adresse 832 (jedes Sprite benö¬ 
tigt 63 Byte des Speichers). Das erste Sprite (Sprite 0) wird 
so in den Speicherplätzen 832 bis 894 abgelegt. 

Zeile 40 setzt die Variable »V« gleich 53248, der Start¬ 
adresse des Videochips. Durch diese Eingabe können wir 
die Formel (V + Zahl) für Spriteeingaben benutzen. Das ist 
deshalb sinnvoll, weil sie Speicherkapazität spart und das 
Arbeiten mit kleineren Zahlen ermöglicht. So haben wir 
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z.B. in Zeile 50 POKE V + 21 eingegeben. Das entspricht 
der Eingabe von POKE 53248 + 21 oder 53269. V+21, be¬ 
nötigt jedoch weniger Platz als 53269 und läßt sich leichter 
merken. 

Zeile 50 aktiviert Sprite 0. Zum Einschalten der einzelnen 
Sprites oder einer Kombination von Sprites müssen Sie le¬ 
diglich POKE V + 21, gefolgt von einer Zahl zwischen 0 
(Ausschalten aller Sprites) und 255 (Einschalten aller 8 
Sprites), eingeben. Durch das POKEn der Zahl in Tabelle 
13 können ein oder mehrere Sprites eingeschaltet werden: 


All# Sprite# 

Sprit# 0 

Sprlto 1 

Sprlto 2 

Spnto3 

Spnlo« 

Spnto 6 

Sprlto e 

Spnto 7 

Allo au# 

V-81.2M 

V.21,1 

V+21,2 

V+21A 

V-?tfl 

v-.2i.te 

V.21J2 

V+2t,ft4 

V+21,12« 

V+210 


Tabelle 13. Die POKEs zum Ein- und Ausschalten der 
Sprites 

Durch POKE V+21,1 wird Sprite 0 eingeschaltet, POKE 
V+21,128 schaltet Sprite 7 ein. Auch Spritekombinationen 
sind erlaubt. So wird z.B. durch POKE V+21',129 sowohl 
Sprite 0 als auch Sprite 7 durch Addition der beiden Zahlen 
( 1 + 128 ) eingeschaltet. 

Zeile 60 legt die Farbe von Sprite 0 fest. Es gibt 16 mögli¬ 
che Spritefarben, die von 0 (Schwarz) bis 15 (Grau) nume¬ 
riert sind. Jedes Sprite benötigt für die Farbe eine unter¬ 
schiedliche POKE-Anweisung von V+39 bis V+46. POKE 
V+39,1 gibt Sprite 0 die Farbe Weiß. Durch POKE V+46,15 
erhält Sprite 7 die Farbe Grau. 

Beim Erstellen eines Sprite bleibt dieses so lange im 
Speicher erhalten, bis es neu definiert oder der Computer 
abgeschaltet wird. Auf diese Weise können Farbe, Position 
und Form des Sprite im Direktmodus geändert werden. 
Dies ist besonders sinnvoll beim Editieren. 

Führen Sie z.B. obiges Programm aus, und geben Sie 
danach diese Zeile im Direktmodus (ohne Zeilennummer) 
ein. Danach drücken Sie <RETURN>. 

POKE V+39,8 

Das Sprite auf dem Bildschirm ist nun orange. Versuchen 
Sie das POKEn einer anderen Zahl zwischen 0 und 15. Es 
wird eine andere Spritefarbe erscheinen. Da dies im Direkt¬ 
modus erfolgte, wird das Sprite beim Ausführen des Pro¬ 
gramms wieder die ursprüngliche Farbe (Weiß) haben. 

Zeile 70 bestimmt die horizontale oder »X«-Position des 
Sprite auf dem Bildschirm. Diese Zahl legt die Position der 
oberen linken Ecke des Sprite fest. Das Sprite berührt den 
linken Bildschirmrand, wenn es in Position 24 steht. Mit 
kleineren Werten kann es links aus dem Bildschirm heraus 
bewegt werden. 

Zeile 80 bestimmt die vertikale oder »Y«-Position des 
Sprite. In diesem Programm plazierten wir das Sprite an die 
»X«-Position 100. Probieren Sie eine andere Position aus. 
Geben Sie dazu folgende POKE-Anweisung im Direktmo¬ 
dus ein und drücken Sie danach < RETURN >. 

POKE V,24:POKE V+1,50 

Hierdurch wird das Sprite in die obere linke Bildschirm¬ 
ecke gesetzt. Um das Sprite in die untere linke Ecke zu be¬ 
wegen, geben Sie ein: 

POKE V,24:POKE V+1,229 

Jede Adresse von 832 bis 895, also der Speicherbereich 
von Sprite 0, repräsentiert einen Satz von 6 Pi^el, wobei drei 
8-Pixel-Sätze eine horizontale Reihe des Sprite darstellen. 
Die Schleife in Zeile 30 gibt dem Cbmputer die Anweisung 
POKE 832,255, wodurch die ersten 8 Pixel »ausgefüllt« wer¬ 
den, danach werden durch POKE 333,255 die nächsten 8 
Pixel ebenfalls »ausgefüllt« usw., bis zu Adresse 894, die 
die letzte Gruppe von 8 Pixel in der unteren rechten Spri- 
teecke angibt. 

Damit Sie besser sehen, wie dies funktioniert, versuchen 
Sie folgendes im Direktmodus und beachten Sie, daß die 
zweite Gruppe der 8 Pixel gelöscht wird: 



Bild 8. Der Bildschirm ist in ein Gitter aus X- und 
Y-Koordinaten unterteilt 

POKE 833,0 
POKE 833,255 

Durch folgende Zeile, die Sie in Ihr Programm aufneh¬ 
men können, wird die Mitte des Sprite gelöscht: 

90 F0R A = 836 T0 891 STEP 3:POKE A,0:NEXT A 
Denken Sie daran, daß die Pixel, aus denen die Sprites 
aufgebaut sind, in Sätzen von jeweils 8 (1 Byte) gruppiert 
sind. Diese Zeile löscht die fünfte Gruppe von 8 Pixel (Satz 
836) und jeden dritten Satz bis zu Satz 890. Versuchen Sie, 
andere Zahlen in die Adressen von 832 bis 894 zu POKEn. 

Positionierung der Sprites 
auf dem Bildschirm 


Der gesamte Bildschirm ist wie ein Koordinatensystem in X- 
und Y-Koordinaten unterteilt. Die X-Koordinate ist die hori¬ 
zontale Position und die Y-Koordinate die vertikale Position 
auf dem Bildschirm (siehe Bild 8). 

Um die Sprites auf dem Bildschirm zu positionieren, 
müssen zwei Eingaben - X- und Y-Position - gePOKEt wer¬ 
den. Auf diese Weise erfährt der Computer, wo sich die obe¬ 
re linke Ecke des Sprite auf dem Bildschirm befinden soll. 
Bitte denken Sie daran, daß ein Sprite aus 504 einzelnen Pi¬ 
xel (24 horizontal mal 21 vertikal) besteht. Die Anzeige be¬ 
ginnt in der von Ihnen definierten X-Y-Position. Sie basiert 
stets auf der oberen linken Ecke, auch wenn Sie für das 
gesamte Sprite lediglich einen kleinen Teil des 24 x 21-Pi- 
xel-Spritebereichs benutzen. Die Funktionsweise der X-Y- 
Positionierung können Sie Bild 9 entnehmen. Dieses zeigt 
die X- und Y-Werte in Zusammenhang mit der Bildschirm¬ 
anzeige. Bitte beachten Sie, daß der weiße Bereich den Teil 
außerhalb des Bildschirms angibt. 

Um ein Sprite an der gewählten Stelle anzuzeigen, müs¬ 
sen Sie die X- und Y-Eingabe für jedes Sprite POKEn...den¬ 
ken Sie daran, daß jedes Sprite seine eigene X- und Y- 
POKE-Anweisung hat. In Tabelle 14 sehen Sie die X- und 
Y-Eingaben für alle 8 Sprites. 


V=53248 

Sprite 0 

Sprite 1 

Sprite 2 

Sprite 3 

Sprite 4 

Sprlto 5 

Sprlto 6 

Sprlte7 

SET X 

V.X 

V+2.X 

V+4.X 

V+6.X 

V+8.X 

V+10.X 

V+12.X 

V+14.X 

SETY 

V+1.Y 

V+3.Y 

V+5.Y 

V+7.Y 

V+9,Y 

V+11.Y 

V+13.Y 

V+15.Y 

MSB-X 

V+16.1 

V+16,2 

V+1S4 

V+16,8 

V+16,16 

V+16,32 

V+16,64 

V+16.128 


Tabelle 14. Zum Setzen der X-Y-Sprite-Positionen 
verwenden Sie bitte diese Werte 
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Setzen einer X-Position: 

Die möglichen X-Werte sind, gezählt von links nach 
rechts, 0 bis 255. Die Werte 0 bis 23 plazieren alles oder ei¬ 
nen Teil des Sprite außerhalb des sichtbaren Bereichs auf 
der linken Bildschirmseite - die Werte 24 bis 255 zeigen das 
Sprite im sichtbaren Bereich bis zur 255. Position an. Um 
ein Sprite in eine dieser Positionen zu plazieren, geben Sie 
lediglich die X-Positions-POKE-Anweisung für das benutz¬ 
te Sprite ein. Um z. B. Sprite 1 an die äußerste linke X-Posi¬ 
tion im sichtbaren Bereich zu POKEn, geben Sie folgendes 
ein: POKE V + 2,24. 

X-Werte oberhalb der 255. Position: 

Um über die 255. Position des Bildschirms hinauszuge¬ 
langen, benötigen Sie eine zweite POKE-Anweisung. Nor¬ 
malerweise geht die horizontale Numerierung (X) über die 
255. Position hinaus. Da die Register jedoch nur 8 Bit ent¬ 
halten, müssen wir ein »zweites Register« erstellen, um auf 
die rechte Bildschirmseite zu gelangen. Die X-Numerie- 
rung beginnt hier wieder mit 0. Um also über die X-Position 
255 hinauszukommen, ist POKE V+16 sowie eine Zahl (ab¬ 


V=53240 

Sprite 0 

Sprite 1 

Sprite 2 

Sprite 3 

Sprite 4 

Sprlto 5 

Sprite 0 

Spritc7 

SET X 

v,x 

V+2.X 

V+4.X 

V+6.X 

V+8.X 

V+10.X 

V+12.X 

V+14.X 

SET Y 

V+1.Y 

V+3.Y 

V+5.Y 

V+7.Y 

V+9.Y 

V+11.Y 

V+13.Y 

V+15.Y 

MSB-X 

v+iai 

vtie.2 

V+16,4 

V+16,8 

V+16,16 

V+16,32 

V+16,64 

V+16.128 


Tabelle 14. Zum Setzen der X-Y-Sprite-Positionen verwen¬ 
den Sie bitte diese Werte 


hängig vom Sprite, siehe Tabelle 14) erforderlich. Hierdurch 
erhalten Sie 64 zusätzliche X-Positionen (numeriert von 0 
bis 65) im sichtbaren Bereich auf der rechten Bildschirm¬ 
seite. 

Setzen einer Y-Position: 

Die möglichen Y-Werte sind 0 bis 255 und werden von 
oben nach unten gezählt. Durch die Werte 0 bis 49 wird das 
Sprite ganz oder teilweise außerhalb des sichtbaren Be¬ 
reichs oben am Bildschirm gezeigt. Mit den Werten 50 bis 
259 befindet sich das Sprite im sichtbaren Bereich. Durch 
die Werte 230 bis 255 wird das Sprite ganz oder teilweise 
aus dem sichtbaren Bereich hinausbewegt. 

Wir wollen uns nun mit der X-Y-Positionierung beschäfti¬ 
gen und nehmen hierzu Sprite 1 als Beispiel. Geben Sie 
hierzu Listing 16 ein. 

Dieses einfache Programm zeigt Sprite 1 als Kästchen 


10 PRINT CHR*<147>:V=53248:POKE V+21,2:P0K 
E 2041,13:FOR S=832 TO B95:P0KE S,255:N 
EXT 

< 127> 

20 POKE V+40,7 

< 173> 

30 POKE V+2,24 

< 118> 

40 POKE V+3,50 

<029> 

Listing 16. Ein Beispiel zur Sprite-Positionierung 



an und setzt es in die obere linke Bildschirmecke. Ändern 
Sie die Zeile 40 nun wie folgt: 

40 POKE V+3,229 

Hierdurch wird das Sprite in die untere linke BildschirrT.- 
ecke bewegt. Nun wollen wir die rechte X-Grenze des Spri¬ 
te überprüfen: Ändern Sie Zeile 30 wie folgt: 

30 POKE V+2,255 

Hierdurch wird das Sprite nach rechts bewegt. Es er¬ 
reicht die rechte X-Grenze, die durch 255 festgelegt ist. Von 
diesem Punkt an muß das höchste Bit in Register 16 gesetzt 
werden. Sie müssen POKE V+16 sowie eine Zahl einge¬ 
ben, die in der rechten »X«-Spalte in der X-Y-POKE-Tabelle 
(siehe Bild 9) angezeigt wird. Auf diese Weise wird der X- 
Positionszähler bei der 256. Pixel-Position auf dem Bild¬ 
schirm neu gestartet. Ändern Sie Zeile 30 wie folgt: 

30 POKE V+16, PEEK(V+16) 0R 2:P0KE V+2,0 

Durch POKE V +16,2 wird das höchste Bit der X-Position 
für Sprite 1 gesetzt und bei der 256. Pixel-Position auf dem 
Bildschirm ein neuer 0-Punkt festgelegt. Durch POKE 
V+2,0 wird das Sprite an der neuen 0-Position, die nun auf 
den 256. Pixel gesetzt ist, abgebildet. 

Um zurück zur linken Bildschirmseite zu gelangen, muß 
das höchste Bit des X-Positionszählers wieder auf 0 gesetzt 
werden. Geben Sie hierzu für Sprite 1 folgendes ein: 

CPOXE V' 1 PEEK (V+16) AND 253 

Positionieren mehrerer Sprites auf dem Bildschirm 

In Listing 17 sehen Sie ein Programm, das drei verschie¬ 
dene Sprites (0,1 und 2) in verschiedenen Farben definiert 
und in verschiedenen Positionen auf dem Bildschirm dar¬ 
stellt. 


10 PRINT CHR$(147):V=5324B:FOR S=832 TO 

89 

5:POKE S,255:NEXT 

<212> 

20 FOR M=2040 TO 2042:POKE M,13:NEXT 

<1B0> 

30 POKE V+21,7 

< 183> 

40 POKE V+39,1:POKE V+40,7:POKE V+41,B 

<056> 

50 POKE V,24:POKE V+1,50 

<094> 

60 POKE V+2,12:POKE V+3,229 

< 109> 

70 POKE V+4,255:POKE V+5,50 

< 159> 

Listing 17. Bringt mehrere Sprites in verschiedenen 

Farben auf den Bildschirm 



Der Einfachheit halber sind alle drei Sprites als durchge¬ 
hende Quadrate definiert, die ihre Daten alle aus demsel¬ 
ben Speicherbereich erhalten. Wichtig ist hierbei, wie alle 
drei Sprites positioniert werden. Das weiße Sprite 0 befin¬ 
det sich in der oberen linken Ecke, das gelbe Sprite 1 in der 
unteren Ecke, jedoch halb außerhalb des Bildschirms. Den¬ 
ken Sie daran, 24 ist die äußerste linke X-Position im sicht¬ 
baren Bereich... durch eine X-Position unter 24 wird das 
Sprite ganz oder teilweise aus dem Bildschirm »hinausge¬ 
schoben«. Wir haben hier die X-Position 12 benutzt, so daß 
die Hälfte des Sprite außerhalb des Bildschirms liegt. Das 
orangefarbene Sprite 2 liegt an der rechten X-Grenze (Posi¬ 
tion 255). 

Spriteprioritäten 

Verschiedene Sprites können sich vor- bzw. hintereinan¬ 
der auf dem Bildschirm bewegen. Dieser dreidimensionale 
Effekt wird durch die Spriteprioritäten erzielt, die bestim- 
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men, welches Sprite bei einer eventuellen Überdeckung 
auf dem Bildschirm Vorrang gegenüber dem anderen hat. 

Die Regelung »wer zuerst kommt, mahlt zuerst«, gilt auch 
hier: Das Sprite mit der niedrigeren Zahl hat automatisch 
Priorität über Sprites mit höheren Zahlen. Werden z.B. 
Sprite 0 und Sprite 1 an der gleichen Stelle des Bildschirms 
angezeigt, so erscheint Sprite 0 vor Sprite 1. Sprite 0 hat da¬ 
her stets Vorrang vor allen anderen Sprites, da es dasjenige 
mit der niedrigsten Zahl ist. Sprite 1 hat Priorität über die 
Sprites 2 bis 7, Sprite 2 Vorrang vor den Sprites 3 bis 7 usw. 
Sprite 7 (das letzte Sprite) hat die niedrigste Priorität und 
wird daher bei einer Uberdeckung stets hinter allen ande¬ 
ren Sprites erscheinen. 


10 PRINT CHR*(147)sV=53248:F0R S=832 TO 89 


5:POKE S,255:NEXT <212> 
20 FOR 11=2040 TO 2042:POKE M,13:NEXT <180> 
30 POKE V+21,7 <183> 
40 POKE V+39,1:POKE V+40,7:POKE V+41.B <056> 
50 POKE V,24:P0KE V+1,50:POKE V+16,0 <229> 
60 POKE V+2,34:POKE V+3,60 <254> 
70 POKE V+4,44:POKE V+5,70 <137> 


Listing 18. Sprites haben verschiedene Prioritäten 


Ändern Sie die Zeilen 50, 60 und 70 des letzten Pro¬ 
gramms wie in Listing 18 dargestellt. 

Sie müssen nun ein weißes Sprite über einem gelben 
Sprite sehen und unter diesen beiden muß ein orangefar¬ 
benes Sprite angezeigt sein. Nun wissen Sie, wie die Priori¬ 
täten gesetzt sind und können die Sprites beliebig bewe¬ 
gen. Dies hilft bei der Programmierung von Trickfilmen. 


10 PRINT'O" POKE532S0-8 P0KE532S1.6 
20 V=53240‘POKEV+34,3 
30 POK E53263,4 : P0KE2U42.13 
40 FORN-0TO62- PERDU P0KE832+N,0■HEXT 


100 

101 

102 

103 

104 

105 

106 
107 
10S 
103 
110 
111 
112 

113 

114 

115 

116 
117 
IIS 
113 
120 
200 


DRTA255.255.255— 
DRTA12S.0.1 
DATA 123.0 ■ 1 
DATA 120.0. 1 
DATAl 44.0.1 



DATA 144.0. 
DRTA144.0. 
DATA144.0. 
DATAl44.0, 
DATA144.0. 
DATA144.0. 
DATA144.0, 
DATA144.0. 
DATA144,0, 
DATA12S.0. 
DATA128.0, 
DATA128.0. 
DATA 128.0. 
DATA12S.0. 
DATA128.0. 


DATA235,255,255—1 
»•200:V=10O P0KE53852.X POKE53253, 


Listing 19. Ein anschauliches Sprite-Entwurfsprogramm 
mit nebenliegendem Entwurfsblatt 


Jedes kleine »Kästchen« stellt ein Pixel im Sprite dar. Es 
gibt 24 horizontale mal 21 vertikale oder insgesamt 504 Pi¬ 
xel pro Sprite. Um dem Sprite nun eine bestimmte Form zu 
geben, müssen Sie diese Pixel im einem Programm aus¬ 
malen.... Wie können jedoch mehr als 500 Pixel angesteu¬ 
ert werden? Sie müssen nicht 504 einzelne Zahlen, son¬ 
dern lediglich 63 Zahlen für jedes Sprite eingeben. Das 
funktioniert folgendermaßen: Um die Erstellung von Spri¬ 
tes für Sie so einfach wie möglich darzustellen, wollen wir 


Zeichnen eines Sprite c- osb onti 

Das Zeichnen eines Sprite verläuft genauso wie das Aus¬ 
malen eines Malbuchs. Jedes Sprite besteht aus winzigen 
Punkten, die Pixel genannt werden. Um ein Sprite zu zeich¬ 
nen, brauchen Sie lediglich einige der Pixel »auszumalen«. 

Sehen Sie sich das Gitter in Bild 10 an. So sieht ein leeres 
Sprite aus. 


1 

2 6 3 1 
8 4 2 6 8 4 2 


1 

2 2 3 1 

8 4 2 6 8 4 2 1 


1 

2 6 3 1 

8 4 2 6 8 4 2 1 


sie schrittweise erklären: 

Scfhr 11: 

Schreiben Sie das Sprite-Erstellungs-Programm, wie in 
Listing 19 gezeigt, auf ein Stück Papier. Bitte beachten Sie, 
daß in Zeile 100 ein Abschnitt mit DATAs beginnt, der die 63 
Zahlen für die Spriteerstellung enthält. 

Schritt 2: 

Malen Sie die Pixel im Gitter in Bild 10 aus (oder nehmen 
Sie ein Blatt Millimeterpapier. Denken Sie daran, daß ein 
Sprite aus 24 horizontalen mal 21 vertikalen Kästchen be¬ 
steht). Benutzen Sie einen Bleistift und drücken Sie nicht zu 
fest auf, damit Sie dieses Gitter wieder benutzen können 
(oder machen Sie sich einige Fotokopien des Gitters). Sie 
können beliebige Bilder erstellen. Am Anfang wollen wir je¬ 
doch als Beispiel einen einfachen Kasten zeichnen. 
Schritt 3: 

Sehen Sie sich die ersten acht Pixel an. Über jeder Spal¬ 
te von Pixel steht eine Zahl (128, 64,32,16, 8, 4, 2). Die be¬ 
sondere Art der Addition, die wir benutzen wollen, stammt 
aus der Binär-Arithmetik, die bei Computern oft verwendet 
wird. Bild 11 zeigt Ihnen die ersten acht Pixel in der oberen 
linken Spriteecke. 


128 

64 

32 

16 

8 

4 

2 

1 










Bild 10. Ein Gitter für die Sprite-Erstellung 


Bild 11. Die ersten 8 Pixel der oberen linken Ecke des Sprite 

Schritt 4: 

Addieren Sie die Zahlen der ersten ausgemalten Pixel. 
Die erste Gruppe der acht Pixel ist vollständig ausgemalt, 
so daß sich eine Summe von 255 ergibt. 
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Schritt 5: 

Geben Sie diese Zahl als erste DATA-Anweisung in Zeile 
100 des Sprite-Erstellungsprogramms ein. Geben Sie 255 
für die zweite und dritte Achtergruppe ein. 

Schritt 6: 

Sehen Sie sich die ersten acht Pixel in der zweiten Sprite- 
reihe an. Addieren Sie die Werte der ausgemalten Pixel. Da 
in unserem Beispiel nur ein Pixel ausgemalt ist, ergibt sich 
die Summe 128. Geben Sie diesen Wert als erste DATA- 
Anweisung in Zeile 101 ein (siehe Bild 12). 


128 

64 

32 

16 

8 

4 

2 

1 

• 









Bild 12. Die ersten 8 Pixel der zweiten Sprite-Reihe 

Schritt 7: 

Addieren Sie die Werte der nächsten Gruppe von acht Pi¬ 
xel (die Summe ist 0, da hier alle Pixel leer sind). Geben Sie 
diese Zahl in Zeile 101 ein. Nun nehmen wir uns die nächste 
Gruppe vor und führen das gleiche für alle Achtergruppen 
durch (es gibt drei Gruppen pro Reihe und insgesamt 21 
Reihen). Es ergibt sich also eine Gesamtanzahl von 63. Je¬ 
de Zahl gibt eine Gruppe zu je acht Pixel an, und 63 Grup¬ 
pen mit acht Pixel ergeben insgesamt 504 vollständig un¬ 
abhängige Pixel. Das Programm läßt sich vielleicht noch 
besser wie folgt erklären: Jede Programmzeile stellt eine 
Reihe im Sprite dar. Jede der drei Zahlen in jeder Reihe 
steht für eine Gruppe mit je acht Pixel. Und jede Zahl weist 
den Computer an, welches Pixel ausgemalt und welches 
leer sein soll. 

Schritt 8: 

Komprimieren Sie das Programm. Dazu werden alle 
DATA-Anweisungen wie in Listing 20 zusammengefaßt. Be¬ 
achten Sie, daß Sie das Spriteprogramm zunächst auf ein 


10 PRINT CHR*<147>:POKE 53280,5:PQKE 53281 

,6 <061> 

20 V=5324B:P0KE V+34,3 <131> 

30 POKE 53269,4:POKE 2042,13 <168> 

40 FDR N=0 TD 62:READ Q:POKE 832+N,Q:NEXT <1S8> 

100 DATA 255,255,255,128,0,1,128,0,1,128,0 

,1,144,0,1,144,0,1,144,0,1,144,0,1 <115> 

101 DATA 144,0,1,144,0,1,144,0,1,144,0,1,1 

44,0,1,144,0,1,128,0,1,12B,0,1 <029> 

102 DATA 128,0,1,128,0,1,128,0,1,128,0,1,2 

55,255,255 <075> 

200 X=200:Y=100:POKE 53252,X:POKE 53253,Y <024> 


Listing 20. Das Entwurfsprogramm in komprimierter Form 


Blatt Papier schreiben sollten. Das hat einen guten Grund. 
Die DATA-Anweisungszeilen 100 bis 120 im Programm in 
Schritt 1 sollen Ihnen lediglich zeigen, welche Zahl zu wel¬ 
cher Pixelgruppe Ihres Sprite gehört. 

Bewegen der Sprites auf dem Bildschirm 

Jetzt ist das Sprite fertig, und wir können es nun zu inter¬ 
essanten Dingen benutzen. Um das Sprite über den Bild¬ 
schirm zu bewegen, fügen Sie folgende zwei Zeilen in Ihr 
Programm ein: 

50 POKE V+5,100:F0R X=24 T0 255:POKE V+4,X:NEXT: 
POKE V +16,4 

55 F0R X = 0 T0 65:POKE V+4, X:NEXT X:P0KE V+ 

16,0 : GOTO 50 

Durch Zeile 50 wird die Y-Position bei 100 gesetzt (pro¬ 
bieren Sie auch 50 oder 229 aus). Dann wird eine FOR- 


5 S=54272:POKE S+24,15:P0KE S,220:POKE S+l 

,68:POKE S+5,15:P0KE 6+6,215 <070> 

10 POKE S+7,120:PDKE S+B,100:POKE S+12,15: 

POKE S+l3,215 <166> 

15 PRINT CHR*(147):V=5324B:POKE V+21,1 <044> 

20 FOR S1=12288 TO 12350:READ 01:POKE S1,Q 

1:NEXT <102> 

25 FOR S2=12352 TO 12414:READ Q2:P0KE S2,Q 

2:NEXT <186> 

30 FOR 83=12416 TO 12478:READ Q3:P0KE S3,Q 

3:NEXT <248> 

35 POKE V+39,15:POKE V+1,68 <168> 

40 PRINT TAB(160)"CWHITEJICH BIN DIE TANZM 

AUS !CLIQ.BLUE>" <16B> 

45 P=192 <201> 

50 FOR X=0 TO 347 STEP 3 <206> 

55 RX=INT(X/256):LX=X—RX*256 <031> 

60 POKE V,LX:POKE V+16,RX <232> 

70 IF P=192 THEN BOSUB 200 <188> 

75 IF P=193 THEN GOSUB 300 <069> 

80 POKE 2040,P:FOR T=1 TO 60:NEXT <153> 

85 P=P+1:IF P>194 THEN P=192 <027> 

90 NEXT <100> 

95 END <097> 

100 DATA 30,0,120,63,0,252,127,129,254,127 

,129,254,127,1B9,254,127,255,254 <197> 

101 DATA 63,255,252,31,1B7,248,3,187,192,1 

,255,128,3,189,192,1,231,128,1,255,0 <161> 

102 DATA 31,255,0,0,124,0,0,254,0,1,199,32 

,3,131,224,7,1,192,1,192,0,3,192,0 <073> 

103 DATA 30,0,120,63,0,252,127,129,254,127 

,129,254,127,189,254,127,255,254 < 200> 

104 DATA 63,255,252,31,221,248,3,221,192,1 

,255,128,3,255,192,1,195,128,1,231,3 <211> 

105 DATA 31,255,255,0,124,0,0,254,0,1,199, 

0,7,1,128,7,0,204,1,128,124,7,128,56 <170> 

106 DATA 30,0,120,63,0,252,127,129,254,127 

,129,254,127,189,254,127,255,254 < 203 > 

107 DATA 63,255,252,31,221,248,3,221,192,1 

,255,134,3,189,204,1,199,152,1,255,48 <051> 

1,0(3 D.ATA 1,255,224,1,252,0,3,254,0 <219> 

109 DAT' 1 . 7,14,0,204,14,0,248,56,0,112,112, 

0,0,60,0,-! <100> 

200 POKE S+4,129:POKE S+4,128:RETURN <182> 

300 POKE S+l1,129:POKE S+l1,128:RETURN <018> 


Listing 21. »Die Tanzmaus«, ein Beispiel für Trickfilm¬ 
effekte mit Sprites 


NEXT-Schleife aufgebaut, durch die das Sprite nacheinan¬ 
der in die X-Positionen 0 bis 255 gesetzt wird. Beim Errei¬ 
chen der 255. Position wird das MSB gesetzt (POKE V 
+16,2), das zum Erreichen des rechten Bildschirmrandes 
benötigt wird. 

Zeile 55 enthält ebenfalls eine FOR-NEXT-Schleife, 
durch die das Sprite in die letzten 65 Bildschirmpositionen 
gebracht wird. Bitte beachten Sie, daß der X-Wert auf 0 zu¬ 
rückgestellt wurde. Da Sie jedoch das höchste Bit der X- 
Position gesetzt hatten (POKE V + 16,2), beginnt X auf der 
rechten Bildschirmseite ab Position 256. 

Diese Zeile wird immer wieder durchlaufen (GOTO 50). 
Soll das Sprite sich nur einmal über den Bildschirm bewe¬ 
gen und dann verschwinden, nehmen Sie GOTO 50 einfach 
heraus. 

Nachstehend sehen Sie eine Zeile, durch die das Sprite 
vor- und zurückbewegt wird: 

50 POKE V+5,100:FOR X=24 T0 255:POKE V +4,X: NEXT: 

POKE V+16,4:F0R X= 0 T0 65: POKE V+4,X: NEXT X 
55 FOR X = 65 T0 0 STEP-1:P0KE V+4,X:NEXT:POKE V+ 
16,0:F0R X=255 T0 24 STEP-1:P0KE V+4,X:NEXT 
60 GOTO 50 

Sehen Sie, wie dieses Programm funktioniert? Es ist das 
gleiche wie das vorherige. Nur wird hier beim Erreichen der 
rechten Bildschirmseite der Ablauf stets umgekehrt, so daß 
das Sprite sich wieder in die andere Richtung bewegt. Dies 
wird durch STEP-1 bewirkt. Das Programm wird angewie¬ 
sen, das Sprite in die X-Werte von 65 bis 0 auf der rechten 




116 


SONDERHEFT 45 


















GRAFIKKURS 


Bildschirmseite und darüber hinaus von 255 bis 0 auf der 
linken Bildschirmseite zu positionieren. Hierzu wird jeweils 
um den Schritt -1 zurückgegangen. 

Vertikales Rollen 

Diese Art der Spritebewegung wird »Rollen« genannt. 
Um das Sprite auf diese Weise nach oben oder unten in die 
Y-Position zu bewegen, brauchen Sie lediglich eine Zeile. 
Löschen Sie die Zeilen 50 und 55, indem Sie die Zeilen¬ 
nummern eingeben und danach jeweils < RETURN < 
drücken. 

Geben Sie nun Zeile 50 wie folgt ein: 

50 POKE V+4,24:F0R Y = 0 TO 255:POKE V+5,Y:NEXT 

Die Tanzmaus - 
ein Sprite-Programmbeispiel 


READ Ql 


POKE S1.Q1 


NEXT 


Gelegentlich sind die in Programmieranleitungen be¬ 
schriebenen Techniken nur schwer zu verstehen. Aus die¬ 
sem Grund haben wir in Listing 21 ein Spriteprogramm er¬ 
stellt, das drei verschiedene Sprites in einem Zeichentrick 
mit Geräuscheffekten benutzt. Damit Sie genau verstehen, 
wie dieses Programm funktioniert, haben wir jeden Befehl 
erklärt: 


Zeile 25: 

FOR S2=12352 
TO 12414 


Zeile 5: 
S=54272 


POKE S+24,15 
POKE S.220 

POKE S+1,68 

POKE S+6,215 

Zeile 10: 

POKE S+7,120 

POKE S+8,100 

POKE S+12,15 

POKE S+13,215 


Zeile 15 

PRINT CHR$(147) 
V = 53248 


POKE V+21.1 

Zeile 20: 

FOR S1=12288 
TO 12350 


Setzt die Variable »S« gleich 54272, also der Anfangs¬ 
speicheradresse des Sound-Chip. Statt nun einen di¬ 
rekten Speicherplatz zu POKEn, werden wir ab jetzt 
POKE S+X eingeben. 

Entspricht POKE 54296,15. Hierdurch wird die höchste 
Lautstärke eingestellt. 

Entspricht POKE 54272,220. Setzt das Low-Byte in 
Stimme 1 für eine Note, die ungefähr dem hohen G in 
Oktave 6 entspricht. 

Entspricht POKE 54277,15. Setzt das Attack/Decay für 
Stimme 1 und besteht in diesem Fall aus dem maxima¬ 
len Abklingpegel ohne Einsetzen. Hierdurch entsteht 
der Echo-Effekt. 

Entspricht POKE 54278,215. Setzt das Sustain/Release 
für Stimme 1 (215 stellt eine Kombination zwischen 
Sustain- und Releasezeit dar.) 

Entspricht POKE 54279,120. Setzt Low-Byte für Stimme 

2 . 

Entspricht POKE 54280,100. Setzt High-Byte für Stim¬ 
me 2. 

Entspricht POKE 54284,15. Setzt Attack/Decay für 
Stimme 2 auf den gleichen Pegel wie für Stimme 1. 
Entspricht POKE 54285,215. Setzt das Sustain/Re¬ 
lease für Stimme 2 auf den gleichen Pegel wie für Stim¬ 
me 1. 

Löscht den Bildschirm bei Programmbeginn. 

Definiert die Variable »V« als Startadresse des VIC- 
Chip, der die Sprites steuert. Von nun an werden alle 
Sprite-Register des VIC als V plus einen Wert definiert. 
Schaltet die Spritenummer 1 ein (Aktivierung). 

In diesem Zeichentrick benutzen wir ein Sprite (Sprite 
0). Wir werden jedoch drei verschiedene Spritedaten 
für die Definition von drei unterschiedlichen Formen 
benutzen. Dazu schalten wir die Zeiger für Sprite 0 auf 
drei verschiedene Speicherplätze, in denen die Daten 
für die Definition der unterschiedlichen Formen gespei¬ 
chert sind. Dasselbe Sprite wird hintereinander schnell 
in drei verschiedenen Formen definiert. Hierdurch ent¬ 
steht der Tanzmaus-Trickfilm. 

Sie können Dutzende von Spriteformen in DATA- 
Anweisungen benutzen und diese Formen mit einem 
oder mehreren Sprites ansteuern. Sie brauchen daher 
nicht ein Sprite auf eine Form zu begrenzen (und umge- 


READ Q2 


POKE S2,Q2 


NEXT 

Zeile 30: 

FOR S3=12416 
TO 12478 
READ Q3 
POKE S3.Q3 
NEXT 

Zeile 35: 

POKE V+39,15 
POKE V+1,68 


Zeile 40: 

PRINT TAB(160) 


(WHITE) 


ICH BIN DIE 
TANZMAUS! 
jLIG.BLUEJ 


Zeile 45: 
P=192 


Zeile 50: 
FOR X=0 TO 


kehrt). Ein Sprite kann viele verschiedene Formen ha¬ 
ben, indem einfach die Pointer für dieses Sprite auf ver¬ 
schiedene Adressen zeigen. In den Speicherplätzen 
sind dann die Spritedaten der verschiedenen Formen 
gespeichert. 

Diese Zeile bedeutet, daß wir die Daten für »Spriteform 
1« in die Speicherplätze 12288 bis 12350 eingegeben 
haben. 

Liest nacheinander 63 Zahlen der DATA-Anweisung, 
beginnend bei Zeile 100. Ql ist ein beliebiger Varia¬ 
blenname. 

POKEt die erste Zahl der DATA-Anweisungen (erstes 
Ql ist 30) in den ersten Speicherplatz (12288). Ent¬ 
spricht POKE 12288/30. 

Weist den Computer an, die Befehle zwischen den Tei¬ 
len FOR und NEXT der Schleife auszuführen. (READ 
Ql und POKE S1.Q1 mit den NEXT-Zahlen). Durch die 
NEXT-Anweisung liest der Computer NEXT Ql von den 
DATA-Anweisungen. NEXT Ql ist 0. Außerdem wird S1 
um 1 erhöht, dies entspricht 12289. Das Ergebnis ist 
POKE 12289,0... durch den NEXT-Befehl wird die 
Schleife bis zu den letzten Werten der Serie durchge¬ 
führt, also bis zu POKE 12350.0. 

Die zweite Form von Sprite 0 wird durch die DATAs defi¬ 
niert, die in die Adressen 12352 bis 12414 geschrieben 
werden. Bitte beachten Sie, daß Adresse 12351 über¬ 
sprungen wird. Dies ist der 64. Platz der Definition der 
ersten Sprite-Gruppe. Er enthält jedoch keine Sprite- 
Daten. Beachten Sie bei der Sprite-Definition, daß 64 
Plätze benutzt werden. Sprite-Daten werden jedoch 
nur in die ersten 63 Plätze gePOKEt. 

Durch diese READ-Anweisung wird die nächste Zahl 
im DATA-Bereich gesucht, und 63 Zahlen werden nach¬ 
einander gelesen. 

Hierdurch werden die Daten (Q2) in die Speicherplätze 
(S2) für unsere zweite Sprite-Form gePOKEt, die bei 
Adresse 12352 beginnt. 

Entspricht Zeile 20. 


Die dritte Form von Sprite 0 wird durch die DATAs in den 
Adressen 12416 bis 12478 definiert. 

Liest nacheinander die letzten 63 Zahlen als Q3. 
POKEt diese Zahlen in die Adressen 12416 bis 12478 
Entspricht den Zeilen 20 und 25. 

Setzt für Sprite 0 die Farbe Hellgrau. 

Setzt die obere rechte Ecke des Sprite-Quadrats in die 
Vertikalposition 68 (Y). Zum Vergleich: Position 50 ist 
die oberste Position auf dem sichtbaren Bildschirm. 

Hierdurch wird der Cursor um 160 Leerstellen ab der 
oberen linken Bildschirmecke versetzt - dies entspricht 
vier Reihen. Hierdurch beginnt die PRINT-Meldung in 
der fünften Zeile auf dem Bildschirm. 

Die Tasten <CTRL> und <2> gleichzeitig drücken. 
Geschieht dies innerhalb von Anführungszeichen, so 
erscheint ein -reverses E«. Hierdurch wird die Farbe al¬ 
ler nachfolgenden Eingaben Weiß. 

Dies ist eine einfache PRINT-Anweisung. 

Hierdurch wird die Farbe nach Ende der PRINT-An¬ 
weisung von Schwarz auf Hellblau geändert. Durch 
gleichzeitiges Drücken der Tasten <CBM> und <7> 
innerhalb von Anführungszeichen wird eine »negativ 
dargestellte Raute« angezeigt. 

Setzt die Variable P gleich 192. Die Zahl 192 ist der zu 
benutzende Zeiger. In diesem Fall wird Sprite 0 aus den 
Speicherplätzen ausgelesen, die ab Adresse 12288 be¬ 
ginnen. Durch »Verstellen« des Zeigers auf die Adres¬ 
sen der beiden anderen Spriteformen kann mit nur ei¬ 
nem Sprite ein Trickfilm mit drei verschiedenen Formen 
erstellt werden. 

Bewegt das Sprite von Position 0 bis Position 347 in 
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347 STEP 3 
Zeile 55: 
RX=INT(X/256) 


LX=X-RX-256 


Zelle 60: 
POKE V,LX 


POKE V+16.RX 


Zeile 70: 

IF P=192 THEN 
GOSUB 200 

Zelle 75: 

IF P=193 THEN 
GOSUB 300 


Zeile 80: 
POKE 2040,P 


FOR T = 1 TO 
60:NEXT 


Zeile 85: 

P=P+1 

IF P>194 THEN 
P=192 


Zeile 90: 
NEXTX 


3er-Schritten (hierdurch entsteht schnelle Bewegung). 

RX ist der ganzzahlige Anteil von X/256, was bedeutet, 
daß RX auf 0 gerundet wird, wenn X kleiner als 256 ist, 
und auf 1, wenn X die Position 256 erreicht. Wir werden 
RX gleich für die Anweisung POKE V + 16 mit einer 0 
oder 1 benutzen, um die rechte Bildschirmseite »einzu¬ 
schalten«. 

Wenn sich das Sprite an der X-Position 0 befindet, sieht 
die Gleichung wie folgt aus: LX=0- (0 mal 256) =0. 
Wenn sich das Sprite an der X-Position 1 befindet, sieht 
die Gleichung wie folgt aus: LX=1 -(0 mal 256) =1. 
Wenn sich das Sprite an der X-Position 256 befindet, 
sieht die Gleichung so aus: LX=256 -(1 mal 256) =0. 
Hierdurch wird X zurück auf 0 gesetzt. Dies ist erforder¬ 
lich, wenn die Bewegung bis zum rechten Rand erfol¬ 
gen soll (POKE V + 16,1). 

Mit der Anweisung POKE V wird die horizontale Posi¬ 
tion (X) von Sprite 0 auf den Bildschirm gesteuert (siehe 
Tabelle 15). Wie oben gezeigt, ändert sich der Wert von 
LX (horizontale Spriteposition) von 0 bis 255. Wenn er 
255 erreicht, wird er automatisch aufgrund der Glei¬ 
chung für LX in Zeile 55 auf 0 zurückgestellt. 

Durch POKE V+16 wird stets die rechte Bildschirmseite 
nach Erreichen der Position 256 eingeschaltet, um die 
horizontalen Positionierungskoordinaten auf 0 zurück¬ 
zustellen. RX ist entweder 0 oder 1, je nach der durch 
die Gleichung RX in Zeile 55 bestimmten Spriteposi¬ 
tion. 

Ist der Sprite-Pointer auf 192 gesetzt (erste Spriteform), 
dann wird die Wellenformsteuerung des ersten Ge¬ 
räuscheffekts in Zeile 200 auf 129 und 128 gesetzt. 

Ist der Sprite-Pointer auf 193 (zweite Spriteform) ge¬ 
setzt, dann wird die Wellenformsteuerung für den zwei¬ 
ten Geräuscheffekt (Stimme 2) auf 129 und 128 in Zeile 
300 gesetzt. 

Setzt den Sprite-Pointer auf Adresse 192 (erinnern Sie 
sich noch an P=192 in Zeile 45? P wird nun hier be¬ 
nutzt). 

Eine einfache Zeitverzögerungs-Schleife, die die Ge¬ 
schwindigkeit festlegt, mit der die Maus tanzt. (Probie¬ 
ren Sie eine höhere bzw. geringere Geschwindigkeit 
durch Erhöhung/Reduzierung der Zahl 60 aus.) 

Nun erhöhen wir den Zeigerwert, indem wir den Origi¬ 
nalwert P um 1 erhöhen. 

Wir wollen das Sprite nur auf drei Adreßbereiche zei¬ 
gen lassen. 

192 zeigt auf die Adressen 12288 bis 12350,193 auf die 
Adressen 12352 bis 12414 und 194 auf die Adressen 
12416 bis 12478. Diese Zeile weist den Computer an, P 
zurück auf 192 zu setzen, sobald P 195 wird. Auf diese 
Weise kann P nie wirklich 195 werden. P ist 192, 193, 
194 und wird dann zurück auf 192 gesetzt. Der Zeiger 
zeigt nacheinander auf die drei Sprite-Formen in den 
drei 64-Byte-Gruppen der Adreßbereiche mit den Da¬ 
ten. 

Nachdem das Sprite eine der drei durch die DATAs be¬ 
stimmten Formen erhalten hat, kann es sich über den 
Bildschirm bewegen. Es überspringt jeweils drei X- 
Positionen (und bewegt sich nicht ruhig um jeweils eine 
Position weiter, was auch möglich ist). Hierdurch tanzt 
die Maus schneller über den Bildschirm, NEXT X 
schließt die Schleife FOR....X in Zeile 50 ab. 


Zeile 95: 

END 

Zeilen 100-109: 

DATA 


Zeile 200: 
POKE S+4,129 

POKE S+4,128 

RETURN 


Beendet das Programm, wenn das Sprite sich aus dem 
Bildschirm hinausbewegt. 

Die Spriteformen werden nacheinander aus den DATA- 
Anweisungen gelesen. Zunächst werden die 63 Zah¬ 
len, die die Sprite-Form 1 enthalten, gelesen, danach 
die 63 Zahlen für Sprlte-Form 2 und dann für Sprite- 
Form 3. Die Daten werden in die drei aufeinanderfol¬ 
genden Adreßbereiche gelesen. Nach dem Einlesen In 
diese Adressen braucht Sprite 0 lediglich noch auf die 
drei Speicherplätze zu zeigen. Das Sprite nimmt dann 
automatisch die entsprechende Form an. Da es auf die¬ 
se Weise nacheinander entsprechend den Daten in 
den drei Sprite-Adressen unterschiedliche Formen an¬ 
nimmt, können wir einen Trickfilmeffekt erzeugen. 
Wenn Sie wissen wollen, wie diese Zahlen das einzelne 
Sprite beeinflussen, verändern Sie die ersten drei Zah¬ 
len in Zeile 100 zu 255,255,255. Wegen weiterer Einzel¬ 
heiten schlagen Sie bitte im Abschnitt über die Defini¬ 
tion der Sprite-Formen nach. 

Die auf 129 gesetzte Wellenformsteuerung schaltet 
den Geräuscheffekt ein. 

Die auf 128 gesetzte Wellenformsteuerung schaltet 
den Geräuscheffekt aus. 

Läßt das Programm zu Zeile 70 zurückspringen. 


Zeile 300: 

POKE S+11,129 Die auf 129 gesetzte Wellenformsteuerung schaltet 
den Geräuscheffekt ein. 

POKE S+11,128 Die auf 128 gesetzte Wellenformsteuerung schaltet 
den Geräuscheffekt aus. 

RETURN Läßt das Programm zurück zum Ende von Zeile 75 

springen. 


Zusammenfassende 
Hinweise zur Sprite-Erstellung 


ln Bild 13 sehen Sie verschiedene Sprite-Speicher-Zeiger 
und Speicheradressen bei Verwendung des Kassettenpuf¬ 
fers. Dieser wird bei einem Reset des Computers allerdings 
gelöscht. Die Sprite-Definitionen gehen dann verloren. 

Zudem bietet der Kassettenpuffer mit 200 Byte Größe nur 
Platz für 3 Sprites. Wollen Sie also animierte Sprites mit Se¬ 
quenzen programmieren, bei denen zwischen vielen ver¬ 
schiedenen Sprite-Definitionen umgeschaltet wird, so 
empfiehlt es sich, einen anderen Bereich zu wählen. 

Einschalten der Sprites 

Durch POKE V+21 ,X (X=Zahl aus der Tabelle 15) können 
Sie jedes beliebige Sprite einschalten. Durch Einschalten 
von nur einem Sprite werden jedoch andere Sprites ausge¬ 
schaltet. Um zwei oder mehrere Sprites einzuschalten, 
müssen die Zahlen der betreffenden Sprites addiert wer¬ 
den. (Durch POKE V+21,6 werden z. B. die Sprites 1 und 2 
eingeschaltet.) Nachstehend wird erklärt, wie Sie ein Sprite 
ein- und ausschalten können, ohne andere Sprites zu be¬ 
einträchtigen (besonders nützlich bei Trickfilmen). 

Beispiel: 

Um nur Sprite 0 auszuschalten, geben Sie ein: POKE 
V+21, PEEK V+21 AND (255-1). Ändern Sie die Zahl 1 in 
(255-1) in 1, 2, 4, 8,16, 32, 64 oder 128 um (für die Sprites 
0 bis 7). Um das Sprite wieder einzuschalten und nicht die 
bereits eingeschalteten übrigen Sprites zu beeinflussen, 


Speichern im Adreßbereich 
(Zeiger setzen) 

Sprite 0 
2040,13 

Sprite 1 
2041,14 

Sprite 2 
2042,15 

Wenn Sie 1 bis 3 Sprites benutzen, können Sie die Spei¬ 
cherplätze im Kassettenpuffer (832 bis 1023) benutzen. Bei 

Sprite-Pixel-Adressen für 

Speicherblöcke 13-15 

832 

bis 894 

896 
bis 958 

960 

bis 1022 

mehr als 3 Sprites empfehlen wir jedoch, die Plätze 12288 
bis 12798 (siehe Tabelle 15) zu benutzen 



Bild 13. Sprite-Zeiger und Adressen bei Verwendung des Kassetten-Puffers 

ns 
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Zum einfachen Konstruieren von Sprites 


Sprite 0 

Sprite 1 

Sprite 2 

Sprite 3 

Sprite 4 

Sprite 5 

Sprite 6 

Sprite 7 

Sprite einschalten 

V+21,1 

V+21,2 

V+21,4 

V+21,8 

V+21,16 

V+21,32 

V+21,64 

V+21,128 

Speichern im Adreßbereich 

2040, 

2041, 

2042, 

2043, 

2044, 

2045, 

2046, 

2047, 

(Zeiger setzen) 

192 

193 

194 

195 

196 

197 

198 

199 

Plätze für 

12288 

12352 

12416 

12480 

12544 

12608 

12672 

12736 

Sprite-Pixel 

to 

to 

to 

to 

to 

to 

to 

to 

(12288-12798) 

12350 

12414 

12478 

12542 

12606 

12670 

12734 

12798 

Spritefarbe 

V+39,C 

V+40.C 

V+41.C 

V+42.C 

V+43.C 

V+44,C 

V+45.C 

V+46.C 

Linke X-Position setzen (0-255) 

V+O.X 

V+2.X 

V+4,X 

V+6.X 

V+8.X 

V+10.X 

V+12.X 

V+14.X 

Rechte X-Position 

V+16,1 

V+16,2 

V+16,4 

V+16,8 

V+16,16 

V+16,32 

V+16,64 

V+16,128 

setzen (0-255) 

v+o,x 

V+2.X 

V+4,X 

V+6.X 

V+8.X 

V+10,X 

V+12.X 

V+14.X 

Y-Position setzen 

V+1.Y 

V+3,Y 

V+5,Y 

V+7,Y 

V+9.Y 

V+11.Y 

V+13,Y 

V+15.Y 

Sprite horizontal (X) vergrößern 

V+29,1 

V+29,2 

V+29,4 

V+29,8 

V+29,16 

V+29,32 

V+29,64 

V+29,128 

Sprite vertikal (Y) vergrößern 

V+23,1 

V+23,2 

V+23,4 

V+23,8 

V+23,16 

V+23,32 

V+23,64 

V+23,128 

Setzen des Mehrfarbenmodus 

V+28,1 

V+28,2 

V+28,4 

V+28,8 

V+28,16 

V+28,32 

V+28,64 

V+28,128 

Multicolorfarbe 1 (erste Farbe) 

V+37.C 

V+37.C 

V+37.C 

V+37.C 

V+37.C 

V+37.C 

V+37.C 

V+37.C 

Multicolorfarbe 2 (zweite Farbe) 

V+38.C 

V+38,C 

V+38,C 

V+38,C 

V+38,C 

V+38.C 

V+38.C 

V+38.C 

Setzen der Sprite-Prioritäten 

Die Sprites mit der niedrigeren Zahl haben stets Vorrang vor den Sprites mit der höheren Zahl. So 1 

hat zum Beispiel Sprite 0 Vorrang vor allen anderen Sprites und Sprite 7 die letzte Priorität. Sprites 


| mit niedrigeren Zahlen erscheinen daher stets vor Sprites mit höheren Zahlen. 


Kollision (zwischen Sprites) 

V+30 IF PEEK(V+30) AND X=X THEN [action] 

Kollision 

V+31 IF PEEK(V+31) AND X=X THEN [action] 





(zwischen Sprites und Hintergrund) 

i 









Tabelle 15. Eine Übersicht zum einfachen Konstruieren von Sprites 


geben Sie POKE V+21, PEEK(V+21) OR 1 ein und ändern sollen, müssen ihre Sprite-Zeiger auf die gleichen Sprite- 
Sie OR 1 in OR 2 (Sprite 2), OR 4 (Sprite 3) usw. um. Date, zeigen. 


X-Positionswerte außerhalb von 255 

X-Positionen reichen von 0 bis 255... und beginnen dann 
wieder bei 0. Um ein Sprite über die X-Position 255 hinaus 
bis an den rechten Bildschirmrand zu bewegen, ist zu¬ 
nächst die Anweisung POKE V+16,1 erforderlich. Dann 
wird ein neuer X-Wert von 0 bis 63 gePOKEt, der das Sprite 
in eine der X-Positionen auf der rechten Bildschirmseite 
setzt. Um zurück zu den Positionen 0 bis 255 zu gelangen, 
ist POKE V+16,0 und das POKEn eines X-Werts zwischen 
0 und 255 erforderlich. 


Y-Positionswerte 

Die Skala der möglichen Y-Positionen von 0 bis 255. 
Hierbei liegen die Positionen 0 bis 49 über dem oberen Bild¬ 
schirmrand, 50 bis 229 im sichtbaren Bereich und 230 bis 
255 außerhalb des unteren Bildschirmrandes. 


Spritefarben 

Damit Sprite 0 seine Farbe ändert, geben Sie folgendes 
ein: POKE V+39,F (benutzen Sie für »F« die Farb-POKE- 
Eingabe aus Tabelle 15 sowie nachstehende Farb-Codes): 


0 - schwarz 8 - orange 

1 - weiß 9 - braun 

2 - rot 10 - hellrot 


3 - zyan 

4 - purpur 

5 - grün 

6 - blau 

7 - gelb 


11 - dunkelgrau 

12 - mittelgrau 

13 - hellgrün 

14 - hellblau 

15 - hellbraun 


Speicherplatz 

Für jedes Sprite müssen Sie einen getrennten 64-Byte- 
Satz im Computerspeicher »reservieren«. Hiervon werden 
63 Byte für die Sprite-Daten benutzt. Die nachstehend ge¬ 
zeigten Speicherbereiche entsprechen den Sprite-Zeigern 
in Tabelle 15. Jedes Sprite kann entsprechend Ihren Wün¬ 
schen definiert werden. Wenn alle Sprites gleich aussehen 


Verwendung der Sprite-Pointer 

Diese Sprite-Pointer-Angaben sind nur als Empfehlun¬ 
gen zu verstehen. Sie können Sprite-Zeiger beliebig im 
RAM-Speicher setzen. Werden sie jedoch zu »niedrig« im 
Speicher gesetzt, kann ein langes Basic-Programm Ihre 
Sprite-Daten überschreiben oder umgekehrt. Um ein be¬ 
sonders langes Basic-Programm vor einer Oberschrei¬ 
bung durch Sprite-Daten oder umgekehrt zu schützen, kön¬ 
nen die Sprites in einem höheren Speicherbereich abge¬ 
legt werden (z. B. POKE 2040,192 für Sprite 0 an den Adres¬ 
sen 12288 bis 12350... POKE 2041,193 an den Adressen 
12352 bis 124,14 für Sprite 1 usw.). Durch geschickte Wahl 
der Speicheradressen, aus denen die Sprites ihre Daten 
empfangen, können Sie 64 verschiedene Sprites sowie ein 
ansehnliches Basic-Programm zusammen benutzen. 

Definieren Sie hierfür verschiedene Sprite-Formen in Ih¬ 
ren DATA-Anweisungen und definieren Sie dann ein be¬ 
stimmtes Sprite neu, indem Sie den Zeiger so ändern, daß 
für das betreffende Sprite verschiedene Speicherbereiche 
mit verschiedenen Sprite-Daten benutzt werden. Sehen 
Sie sich hierzu auch das Programm »Tanzmaus« (Listing 21) 
an. Sollen zwei oder mehrere Sprites die gleiche Form ha¬ 
ben (Sie können immer noch Position und Farbe jedes Spri¬ 
te ändern), benutzen Sie den gleichen Sprite-Zeiger und 
damit den gleichen Speicherbereich für die betreffenden 
Sprites (so können z. B. die Sprites 0 und 1 auf den gleichen 
Speicherplatz zeigen. Hierzu dient die Anweisung POKE 
2040,192 und POKE 2041,192). 

Prioritäten 

Priorität bedeutet, daß ein Sprite vor oder hinter einem 
anderen Sprite auf dem Bildschirm gezeigt wird. Sprites mit 
höherer Priorität erscheinen stets vor (bzw. über) den Spri¬ 
tes mit niedriger Priorität. Hierbei haben Sprites mit niedri¬ 
gerer Nummer stets den Vorrang vor solchen mit höherer 
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Nummer. Sprite 0 hat Priorität über alle anderen Sprites 
und Sprite 7 die niedrigste Priorität. Entsprechend hat Spri¬ 
te 1 Vorrang vor den Sprites 2 bis 7. Befinden sich zwei Spri¬ 
tes an der gleichen Bildschirmposition, so erscheint das 
mit der höheren Priorität vor dem mit der niedrigeren. Das 
Sprite mit der niedrigeren Priorität ist entweder verdeckt 
oder »scheint durch«. 

Arbeiten im Mehrfarbenmodus 

Sie können mehrfarbige Sprites erstellen. Im Mehrfar¬ 
benmodus müssen Sie jedoch statt einzelner Punkte in Ih¬ 
rem Spritebild stets Pixel-Paare benutzen (das heißt, jeder 
farbige »Punkt« oder »Block« im Sprite besteht aus minde¬ 
stens zwei nebeneinanderliegenden Pixel). Es stehen vier 
Farben zur Auswahl: Spritefarbe (siehe Tabelle 15), Hilfsfar¬ 
be 1, Hilfsfarbe 2 und »Hintergrundfarbe« (die Hintergrund¬ 
farbe wird durch das Pixel-Paar 00 angewählt. In diesem 
Fall scheint der Hintergrund durch). Betrachten Sie einen 
horizontalen 8-Pixel-Satz in einem Spritemuster. Je nach¬ 
dem, ob das linke, rechte oder beide Pixel ausgefüllt sind, 
wird die Farbe jedes Pixel-Paares bestimmt (siehe Bild 14). 


HINTERGRUND (Wenn beide Pixel leer (0) sind, scheint 
die Bildschirmfarbe durch.) 


MEHRFARBIG 1 (Wenn das rechte Pixel in einem Pixel- 
Paar ausgefüllt ist, werden beide in der 
Hilfsfarbe 1 dargestellt.) 


SPRITEFARBE (Wenn das linke Pixel in einem Pixel- 
Paar ausgemalt ist, haben beide die 
Spritefarbe.) 


MEHRFARBIG 2 (Wenn beide Pixel in einem Pixel-Paar 
ausgemalt sind, werden beide in der 
Hilfsfarbe 2 dargestellt.) 


Bild 14. Pixel-Paare und ihre Farbquellen bei 
Multicolor-Sprites 

Sehen Sie sich die horizontale 8-Pixel-Reihe in Bild 15 
an. Nach dem oben Gesagten erscheint das erste Pixel- 
Paar in der Hintergrundfarbe, das zweite in der Hilfsfarbe 1, 
und für das dritte gilt die Sprite-Farbe. Das vierte Paar er¬ 
hält die Hilfsfarbe 2. Die Farbe der einzelnen Pixel-Paare 
hängt also davon ab, welche Bits in dem Paar ausgemalt 
und welche leer sind. Wenn Sie festgelegt haben, welche 
Farben Sie für die einzelnen Pixel-Paare wünschen, müs¬ 
sen die Werte der ausgemalten Pixel im 8-Pixel-Satz ad¬ 
diert und danach diese Zahl in den geeigneten Speicher¬ 
platz gePOKEt werden. Ist z. B. die 8-Pixel-Reihe in Bild 15 
die erste Reihe in einem Sprite, die bei Speicherplatz 832 
beginnt, so lautet der Wert der ausgemalten Pixel 16+8+ 
2+1=27 und es gilt die folgende Anweisung: POKE 832,27. 

Kollision 

Über folgende Zeile können Sie erkennen, ob Sprites 
miteinander kollidiert sind: 

IF PEEK(V+30) AND X=X THEN (hier Aktion eingeben). 

Es wird dabei festgestellt, ob das Sprite X-1 mit irgendei¬ 
nem anderen Sprite zusammengestoßen ist. X ist 1 für Spri¬ 
te 0, 2 für Sprite 1 und so fort bis 128 für Sprite 7. 

Um festzustellen, ob das fragliche Sprite mit einem Zei¬ 
chen des Bildschirmhintergrundes zusammengestoßen 
ist, kann man diese Zeile verwenden: 

IF PEEK(V+31) AND X=X THEN (hier Aktion vorsehen). 
Benutzen von Grafikzeichen in Datenanweisungen: 

Das kleine Programm in Listing 22 ermöglicht Ihnen die 
Erstellung eines Sprite mit Leerstellen und ausgemalten 
Kreisen (<SHIFT Q>) in DATA-Anweisungen. Die in die 
Sprite-Datenregister gePOKEten Sprites und Zahlen wer¬ 
den am Bildschirm angezeigt. 


10 PRINT CHR*<147>:FOR 1=0 TO 63:POKE 832+ 

I,0:NEXT <117> 

20 60SUB 60000 <040> 

999 END <239> 

60000 DATA ". QSBQPB9 .■■ <047> 

60001 DATA ". fl-Q-Q-9-fl.9fl.9fl BP .•' <056> 

60002 DATA ". B-Q-Q.8.PBQB9BB9B .“ < 177> 

60003 DATA ". .S.Q.B.B.S. . . . fl.Q.QP.B .•' <247> 

60004 DATA ". fl.B.Q.B.fl . fl.flQ . . B.B.BB _" <054> 

60005 DATA ". B.B.B.B.B . BBB . BBSBB _'• <084> 

60006 DATA ". BB BBB . B BS . . B.B.BB _" <056> 

60007 DATA ". B.B.B.B.B . ■ ■ B.B.B.B.B. ." <251 > 

60008 DATA ". B.Q-fl.Q.Q.S.Bfl-P-Q.9.8fl. ." <183> 

60009 DATA ". P P fl Q P fl BBB B B S B .'• <184> 

60010 DATA ".fl. B9BB9B9BB . 9." <039> 

60011 DATA "..9. fl.Q.Q Bfl.Q Q . 9.•' <204> 

60012 DATA ".9. . BBBB9 . . 9." <059> 

60013 DATA "..9. ■ fl.P.fl.. . .9.•• <168> 

60014 DATA ".fl. ■ BBB . . 9." <169> 

60015 DATA ".fi. .S. .£." <174> 

60016 DATA ".Ä-.S. .£." <175> 

60017 DATA ". BBPSP .“ <174> 

60018 DATA ”. .B.B.B.B.B ." <175> 

60019 DATA ". B99BB ." <176> 

60020 DATA “. fl-B.B ." <057> 

60100 V=53248:POKE V,200:POKE V+1,100:POKE 

V+21,1:POKE V+39,14:POKE 2040,13 <245> 

60105 POKE V+23,1:POKE V+29,1 <186> 

60110 FOR 1=0 TO 20:READ A*:FOR K=0 TO 2:T 

=0:FOR J=0 TO 7:B=0 <201> 

60140 IF MID*<A*,J+K*8+l,l)="fi" THEN B=1 <086> 

60150 T=T+B*2T(7-J):NEXT:PRINT T;:POKE 832 

+I*3+K,T:NEXT:PRINT:NEXT <251> 

60200 RETURN <057> 


Listing 22. Ein einfacher Sprite-Editor 


16 + 8 + 2+1 


128 

64 

32 

16 

8 

4 

2 

1 










Sieht im Sprite wie folgt aus 


Hinter- 

Hilfs- 

Sprite- 

Hilfs- 

grundfarbe 

färbe 1 

färbe 

färbe 2 


Bild 15. Ein Beispiel für die Farbzuordnungen in einem 
Multicolor-Sprite 

Um Ihnen einen Überblick zu geben, finden Sie in Tabelle 
16 alle Register des VIC-ll-Chip und ihre Bedeutung aufge¬ 
führt. 

Mit dem erworbenen Wissen über die verschiedenen 
Grafikmodi des C64, deren Programmierung und Sprites 
besitzen Sie das Rüstzeug, um weiter in die Materie der 
Computergrafik einzudringen. 

Auf den folgenden Seiten werden Sie sowohl in die prak¬ 
tischen als auch die theoretischen Grundlagen der Compu¬ 
tergrafik auf dem C64 eingeweiht. Auch Programmierung 
von bewegter dreidimensionaler Grafik wird dann kein 
Buch mit sieben Siegeln mehr sein. 

Theorie und Praxis 


Ausführlich und detailliert erfahren Sie nun, wie man Punk¬ 
te setzt, Linien zeichnet und Kreise auf den Bildschirm zau¬ 
bert, in Basic und Maschinensprache. Neben den erforder- 
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Register 

Adresse 

Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 

Bit 2 Bit 1 Bit 0 

0 

53248 

X-Position des Sprite Nr, 0. Dazu muß Register 16 beachtet werden. 


1 

53249 

Y-Position des Sprite Nr. 0 


2 

53250 

X-Position des Sprite Nr. 1. Auch dazu, wie zu allen folgenden Sprites, muß Register 16 beachtet werden. 

3 

53251 

Y-Position des Sprite Nr. 1 


4 

53252 

X-Position des Sprite Nr. 2 s.o. 


5 

53253 

Y-Position des Sprite Nr. 2 


6 

53254 

X-Position des Sprite Nr. 3 s.o. 


7 

53255 

Y-Position des Sprite Nr, 3 


8 

53256 

X-Position des Sprite Nr. 4 s.o. 


9 

53257 

Y-Position des Sprite Nr, 4 


10 

53258 

X-Position des Sprite Nr. 5 s.o. 


11 

53259 

Y-Position des Sprite Nr. 5 


12 

53260 

X-Position des Sprite Nr. 6 s.o. 


13 

53261 

Y-Position des Sprite Nr. 6 


14 

53262 

X-Position des Sprite Nr. 7 s.o. 


15 

53263 

Y-Position des Sprite Nr. 7 


16 

53264 

Spr. 7 Spr, 6 Spr. 5 Spr. 4 Spr. 3 

msb X-Pos. msb X-Pos. msb X-Pos. msb X-Pos. msb X-Pos. 

Spr, 2 Spr. 1 Spr. 0 

msb X-Pos. msb X-Pos. msb X-Pos. 

17 

53265 

msb des Schaltbit für Schaltbit für Schaltbit für Schalibit für 

Raster- veränderten Hochauflö- Bildschirm Zeilenzahl 

registers Hintergrund- sungsmodus »aus» 0 = 24 Zeilen 

(Reg.18) farbmodus 1 = einge- 0 = normaler 1 = 25 Zeilen 

1 = einge- schaltet Bildschirm 

schaltet 1 = Bildschirm- 

Wert der Zeilenverschiebung in Y-Richtung 
beim Smooth-Scrolling 


färbe gleich 
Hintergrund¬ 
farbe 


18 

53266 

Rasierregister. Dazu kommt das msb in Bit 7, Register 17 





19 

53267 

Lichtgriffel X-Position 





20 

53268 

Lichtgriffel Y-Position 





21 

53269 

Ein- und Ausschalten von Sprites, 0=Sprite aus. 1=Sprite an 
Sprite 7 Sprite 6 Sprite 5 Sprite 4 

Sprite 3 

Sprite 2 

Sprite 1 

Sprite 0 

22 

53270 

Reset-Bit Schaltbit für 

muß 0 Mehrfarbmodus 
sein, damit 1 = einge- 

VIC-ll-Chip ar- schaltet 
beitet 

Schaltbit für 
Spaltenzahl 
0=38 Spalten 
1=40 Spalten 

Wert der Spaltenverschiebung in 
X-Richtung beim Soft-Scrolling 

23 

53271 

Sprite-Vergrößerung in Y-Richtung. 0=normale Größe. 1=doppelte Größe. 

Sprite 7 Sprite 6 Sprite 5 Sprite 4 Sprite 3 

Sprite 2 

Sprite 1 

Sprite 0 

24 

53272 

Startadresse des Bildschirmspeichers 

- Startadresse des Speicherbereichs, in dem die 
Zeichen als Punktmatrizen abzurufen sind 

- Startadresse der Bit-Map 


25 

53273 

Interrupt-Flaggen-Register 

Interrupt 

Lichtgriffel-In- 

terrupt-Flagge 

Sprite/Sprite- 

Kollision 

Sprite/Hinter¬ 

grund-Kollision 

Raster-Inter- 

rupt-Flagge 

26 

53274 

Interrupt-Masken-Register 

Interrupt 

Lichtgriffel-In- 

terrupt-Maske 

Sprite/Sprite- Sprite/Hinter- 
Kollision-Maske grund-Kollision- 
Maske 

Raster-Inter- 

rupt-Maske 

27 

53275 

Sprite/Hintergrund-Prioritätenregister. 0=Sprite hat Priorität. 1=Hintergrund hat Priorität 

Sprite 7 Sprite 6 Sprite 5 Sprite 4 Sprite 3 Sprite 2 

Sprite 1 

Sprite 0 

28 

53276 

Sprite-Mehrfarbenmodus-Register. 0=Normalstellung. 1=Mehrfarbenmodus-Darstellung 

Sprite 7 Sprite 6 Sprite 5 Sprite 4 Sprite 3 Sprite 2 

Sprite 1 

Spirte 0 

29 

53277 

Sprite-Vergrößerung in X-Richtung. 0=normale Größe. 1=doppelte Größe 

Sprite 7 Sprite 6 Sprite 5 Sprite 4 Sprite 3 

Sprite 2 

Sprite 1 

Sprite 0 

30 

53278 

Sprite/Sprite-Kolllsion. 0=keine Berührung. 1=Berührung 

Sprite 7 Sprite 6 Sprite 5 Sprite 4 

Sprite 3 

Sprite 2 

Sprite 1 

Sprite 0 

31 

53279 

Sprite/Hintergrund-Kollision. 0=keine Berührung, 1=Berührung 
Sprite 7 Sprite 6 Sprite 5 Sprite 4 

Sprite 3 

Sprite 2 

Sprite 1 

Sprite 0 


Tabelle 16. Eine Übersicht über die Register des VIC-ll-Chip (Fortsetzung auf der nächsten Seite) 
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Register 

Adresse 

Bit 7 

Bit 6 Bit 5 

Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 

32 

53280 


unbenutzt 

Farbe des Bildschirmrahmens 

33 

53281 


unbenutzt 

Hintergrundfarbe Nr. 0 (normale Hintergrundfarbe) 

34 

53282 


unbenutzt 

Hintergrundfarbe Nr. 1 

35 

53283 


unbenutzt 

Hintergrundfarbe Nr. 2 

36 

53284 


unbenutzt 

Hintergrundfarbe Nr. 3 

37 

53285 


unbenutzt 

Sprite-Mehrfarben-Register Nr. 0 

38 

53286 


unbenutzt 

Sprite-Mehrfarben-Register Nr. 1 

39 

53287 


unbenutzt 

Sprite 0, Farbe 

40 

53288 


unbenutzt 

Sprite 1, Farbe 

41 

53289 


unbenutzt 

Sprite 2, Farbe 

42 

53290 


unbenutzt 

Sprite 3, Farbe 

43 

53291 


unbenutzt 

Sprite 4, Farbe 

44 

53292 


unbenutzt 

Sprite 5, Farbe 

45 

53293 


unbenutzt 

Sprite 6, Farbe 

46 

53294 


unbenutzt 

Sprite 7, Farbe 


Tabelle 16. Eine Übersicht über die Register des VIC-ll-Chip (Schluß) 


liehen Grundlagen lernen Sie auch noch, neue Basic-Be- 
fehle in den Interpreter einzubinden. 

Bisher haben wir gesehen, wie man den C64 in den ver¬ 
schiedenen Grafikmodi betreiben kann. Nun geht’s in die 
Praxis! Sowohl in Basic als auch in Assembler werden wir 
nun gemeinsam eine kleine Bibliothek der wichtigsten gra¬ 
fischen Prozeduren aufbauen, die - besonders in Assem¬ 
bler - nach Möglichkeit auch noch optimiert ist, was die Ge¬ 
schwindigkeit der Ausführung angeht. Das Ergebnis unse¬ 
rer Arbeit sind dann einige neue Basic-Befehle, die für den 
abschließenden Teil des Kurses nützlich sein werden. 

Grafik einschalten 

Der erste Schritt, nämlich das Umschalten des Video¬ 
controllers (VIC) in den Hochauflösungsmodus, erfordert 
zuerst ein wenig Planung. Wir haben ja in diesem Betriebs¬ 
zustand sowohl über den Bildschirm mit seinen 40 x 25 Zei¬ 
chen, also 1000 Byte, als auch über die Bitmap mit ihren 
320 x 200 Bit (also 8000 Byte) die volle Kontrolle. Insbeson¬ 
dere steht es uns frei, ihre Lage im Speicher so festzulegen, 
daß wir ein Optimum an Leistungsfähigkeit aus unserem 
Computer herausholen können. Sehr häufig findet man die 
Bitmap in Grafikprogrammen ab der Speicherstelle $2000 
(also dezimal 8192). Die Lage des Bildschirms ist unverän¬ 
dert bei $0400 (dezimal 1024). Das ist zwar von der Um¬ 
schaltung her recht bequem - wie wir gleich noch sehen 
werden -, hat aber einige Nachteile. Dadurch nämlich, daß 
der Textbildschirm im Hochauflösungsmodus als Farbspei- 
cher benutzt wird, ist es nötig, alle Texte darauf zu löschen 
und gegebenenfalls nach dem Zurückschalten wieder neu 
zu schreiben. Ein weiteres Manko liegt in der Einschrän¬ 
kung des Speicherplatzes für Basic-Programme. Entweder 
beläßt man den Basic-Start bei 2048 und begrenzt den 
Speicher bis 8192 - dann hat man eben nur 6 KByte für Pro¬ 
gramme, Variable, Arrays und Strings zur Verfügung - oder 
man verlegt den Basic-Start nach $4000 (dezimal 16384). 
Dies verursacht immer etwas Unbehagen, weil damit 
schon allerlei Pannen passiert sind; zudem verschenkt 
man so den ganzen Speicherplatz unterhalb der Bitmap. 

Kommt es vor allem darauf an, über möglichst viel freien 
Speicherplatz zu verfügen, dann ist das RAM unter dem 
Basic-ROM - also ab $A000 (dezimal 40960) für die Bitmap 
gut geeignet. Der Bildschirm muß dann im Bereich zwi¬ 
schen $8000 und $9000 liegen, denn zwischen $9000 und 
$A000 befinden sich die sogenannten Geisterbilder des 
Zeichen-ROM, die sich störend auf die Grafik auswirken. 


Diesen Weg habe ich in der Grafik-Erweiterung Hires-3 ein¬ 
geschlagen. Einen Nachteil, der sich gerade in der Ge¬ 
schwindigkeitsoptimierung auswirkt, hat dieser Weg aber: 
Für jeden Lesezugriff in der Bitmap muß man das Basic- 
ROM abschalten und es danach sofort wieder einschalten. 
Das kostet unnötig viel Zeit und erfordert eine besonders 
sorgfältige Programmierung. 

Wohin also mit dem Bildschirm und der Bitmap? Es gibt 
theoretisch acht mögliche Bereiche dafür im Computer. 
Der ViC-Ohip greift auf die vorhandenen 64 KByte immer 
in 16-KByte-Schritten zu, die wir Abschnitte nennen wollen. 
Im untersten Abschnitt 0 (er reicht von Speicherstelle 
$0000 bis $4000, und das ist auch der Abschnitt, auf den 
der VIC-Chip im Einschaltzustand immer zugreift) käme 
nur der obere Teil - also $2000 bis $4000 - in Frage, denn 
andernfalls würde man die für die Computerfunktion le¬ 
bensnotwendige Zeropage überschreiben. Dieser Ab¬ 
schnitt scheidet für uns - wegen seiner Nachteile - aus, wie 
wir vorhin festgestellt haben. Auch der Abschnitt 2 (von 
$8000 bis $C000) ist als nicht optimal erkannt worden, denn 
entweder muß man die Bitmap oder den Bildschirm unter 
das Basic-ROM legen und verliert dann kostbare Zeit durch 
das ständige Umschalten zwischen ROM und RAM. Ein 
ähnliches Problem stellt sich mit dem Abschnitt 3 (von 
$C000 bis $FFFF), wo man sich mit den Ein- und Ausgabe¬ 
adressen und dem Betriebssystem-ROM herumzuschla¬ 
gen hätte. Wie schon gesagt: Es ist möglich, hier Bitmaps 
einzurichten, aber es kostet Zeit! Es bleibt also der Ab¬ 
schnitt 1 (von $4000 bis $8000 oder dezimal 16384 bis 
32768). Legen wir die Bitmap in die obere Hälfte dieses Ab¬ 
schnitts und direkt darunter den Bildschirm, dann steht ein 
relativ großer Speicherraum für Basic-Programme zur Ver¬ 
fügung (nämlich von $0800 bis $5C00, also von dezimal 


Der Einstieg in die Praxis 


2048 bis 23552) und so entstehen keine Zeitprobleme mit 
den ROM-Bausteinen. Zwar verschenken wir etwa 8 KByte 
an Speicherraum (von $8000 bis $A00O), diese lassen sich 
aber durch Maschinenprogramme oder als Zwischenspei¬ 
cher für Werte noch nutzen (unter Umständen kann auch 
die ganze Grafik-Befehlserweiterung dort plaziert werden). 
Angesichts der nunmehr etwa 21 KByte Speicherraum für 
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Basic-Programme läßt sich dieser Verlust leicht verschmer¬ 
zen. 

Nach all diesen Überlegungen soll nun die Programm¬ 
praxis folgen: 

a) Der Zugriff des Videocontrollers auf die einzelnen Ab¬ 
schnitte wird in einem Register des CIA-2-Chip gesteuert. 
In 56576 ($DD00, das ist der Port A) bestimmen Bit 0 und 
1 den VIC-Zugriff. Auf den Abschnitt 1 erfolgt der Zugriff, 
wenn Bit 1 auf 1 und Bit 0 auf 0 gesetzt wird. 

b) Wo der Bildschirm zu finden ist, wird dem Computer 
über das Register 53272 des VIC-Chip mitgeteilt. Bit 4 bis 
7 legen dann fest, um wie viele Byte der Bildschirmstart ge¬ 
genüber dem Beginn des aktuellen Abschnitts verschoben 
ist. In unserem Fall müssen diese Bits auf den Wert 0111 ge¬ 
setzt werden. 

c) Auch dem Betriebssystem muß die neue Lage des 
Bildschirms mitgeteilt werden .Inder Speicherstelle 648 er¬ 
wartet es die Pagenummer des Bildschirmstarts. Diese 
Nummer ergibt sich durch Division der Bildschirmstart¬ 
adresse durch 256. In unserem Fall ist dies die Zahl 92. 

d) Weil es in jedem Abschnitt zwei Möglichkeiten für ei¬ 
nen Bitmap-Start gibt, wird in Bit 3 der schon vorhin benutz¬ 
ten Speicherstelle 53272 festgelegt, welche wir uns davon 
ausgesucht haben. Daß wir die obere Hälfte für die Bitmap 
nutzen, teilen wir durch eine 1 in diesem Bit mit. 

e) Nach all diesen Steuerschritten können wir nun den 
Bitmap-Modus des VIC-Chip einschalten. Das geschieht 
durch Setzen des Bit 5 im VIC-Register 53265. 

f) Um ganz sicher zu gehen, daß ein eventuell vorhande¬ 
nes Basic-Programm bzw. die Variablen, Arrays und 
Strings nicht die Bitmap oder den Bildschirm »zerfled- 
dern«, begrenzen wir noch den Basic-Speicher. Das Ende 
soll beim Bildschirmstart liegen. Deshalb müssen wir das 
MSB (High-Byte) dieser Startadresse (das ist die Pagenum¬ 
mer) in die Speicherstellen 52 und 56 eintragen. 

In Bild 16 sehen Sie diese Schrittfolge in Form eines Fluß¬ 
diagramms dokumentiert. Dabei sind die beiden Einträge 
in der Speicherstelle 53272 zusammengefaßt worden. 



Bild 16. Flußdiagramm 
des Einschaltmoduls. 
In diesem Modul 
werden alle Speicher¬ 
zellen initialisiert. 


Diesen Teil unserer Aktivitäten habe ich Modul 2 ge¬ 
nannt. In Basic sähe das Ganze dann etwa so aus: 

2000 REM - MODUL 2: GRAFIK EINSCHALTEN 

2010 P0KE 56576,198:REM ABSCHNITT 1 EINSTELLEN 
2020 P0KE 53272,125:REM BILDSCHIRM- UND BITMAPSTART 
FESTLEGEN 

2030 P0KE 648,92 :REM BILDSCHIRMSTART AN 
BETRIEBSSYSTEM MELDEN 

2040 POKE 52,92 :REM BASICSPEICHER BEGRENZEN 
2050 POKE 56,92 

2060 POKE 53265,PEEK(53265) 0R 32:REM BITMAPM0DUS 
EINSCHALTEN 
2070 RETURN 

Die Reihenfolge der einzelnen Schritte wurde noch et¬ 
was umgestellt, damit Sie den Vergleich zum Assembler¬ 
programm besser erkennen. Dazu aber noch ein kleiner 
Kommentar: Die Grundbegriffe der 6502-Assembler- 
Sprache sollten Ihnen schon vertraut sein. Im Assembler¬ 
programm - verwendet wird übrigens die Syntax des As¬ 
sembler Hypra-Ass, - gehen diesem Modul 2 noch Modul 
0 und Modul 1 voraus. Wir werden unsdiese Programmteile 
später noch ansehen. Zur Erläuterung genügt es an dieser 
Stelle zu erwähnen, daß Modul 0 alle Zuweisungen von 
Werten oder Adressen an die im Programm verwendeten 
Label enthält, Modul 1 aber das Einbinden der neuen Be¬ 
fehle und ihrer Syntax in die Interpreterschleife vollzieht. 
Hier also nun das Modul 2 in 6502-Assembler: 

2000 - ;##** modul 2: grafik ein #### 

2010 - ; 

2020 - ;legt grafikbildschirm nach $5c00 

2030 - ;und bit-map nach $6000 

2040 - ;schaltet in bit-map-modus um 

2050 - jund begrenzt basic bis $5c00 


206'i - j 

2070 -han 

lda #$7d 

;ort bildschirm und 

2080 - 

sta vie24 

jbltmap festlegen 

2090 - 

lda #$c6 

jvic auf abschnitt 1 

2100 - 

sta cia2 

;richten 

2110 - 

lda #$5c 

;msb bildschirmstart 

2120 - 

sta hbase 

;an betriebssystem 

2130 - 

sta fretop 

;und Speicher 

2140 - 

sta memsiz 

;begrenzen 

2150 - 

lda vicl7 

jbitmapmodus 

2160 - 

ora #$20 

;einschalten 

2170 - 

sta vicl7 


2180 - 

rts 



Wie gesagt: Die Zuordnung aller vier verwendeten Na¬ 
men (Label) geschieht in Modul 0. Sie erkennen sicherlich 
alle Elemente aus dem Basic-Modul wieder. Allerdings fin¬ 
den hier nur Zahlen des Hexadezimalsystems Verwen¬ 
dung. Nun wurde zwar die Grafik eingeschaltet, wenn Sie 
das aber einmal auf diese Weise tun, so werden Sie nur al¬ 
lerlei Müll auf dem Bildschirm entdecken. Wir brauchen al¬ 
so noch drei weitere Moduie: 

Modul 3: Löschen der Bitmap 
Modul 4: Farbgebung 

Modul 5: Zurückschalten in den Textmodus 
Erst danach können wir an die eigentlichen Zeichenrouti¬ 
nen, wie Punkt setzen oder löschen, Linie ziehen oder lö¬ 
schen, Rechtecke oder Kreise malen etc. gehen. 

Löschen der Bitmap 


ln den Speicherzellen ab $6000 (dezimal 24256) befindet 
sich momentan noch ein zufälliges Bitmuster. Weil aber je¬ 
des gesetzte Bit in der Bitmap zu einem Punkt auf dem Bild¬ 
schirm führt, wir aber eine saubere Zeichenfläche haben 
wollen, müssen wir in alle Bytes dieses Bereichs den Wert 
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0 schreiben, ln Basic genügt dazu eine recht kurze Pro¬ 
grammsequenz: 

3000 REM - MODUL 3: BITMAP LOESCHEN 

3010 BA = 24576 :REM DAS IST DIE BITMAPSTARTADRESSE 
3020 FOR I = BA TO BA+7999 :REM DIE LOESCHSCHLEIFE 
3030 :P0KE 1,0 
3040 NEXT I 
3050 RETURN 

So kurz dieses Unterprogramm auch aussieht, so lange 
dauert seine Abarbeitung. Wenn Sie es aufrufen, können 
Sie in Ruhe eine Tasse Kaffee genießen, denn der POKE- 
Befehl ist ein recht langsamer Geselle. In Assembler geht 
das dagegen wie der Blitz. Bild 17 zeigt Ihnen ein Flußdia¬ 
gramm dieses Moduls in der Assembler-Ausführung. 

Hier schreiben wir zuerst die Bitmap-Startadresse in die 
Hilfs-Speicherstellen »help« und »help+1«, setzen dann 
den Akkumulator und das Y-Register auf 0 und schreiben 
ins X-Register die Anzahl zu löschender 256-Byte-Blöcke. 
Das sind 32, wobei Sie sicher bemerken werden, daß 32 
mal 256 gleich 8192 ist. Wir beschreiben also 192 Byte zu¬ 
viel. Das macht aber nichts, solange wir uns das merken 
und in dem Speicherbereich oberhalb von $8000 nicht in 
diesen ersten 192 Byte wichtige Werte aufbewahren. 
Schleifen, die eine exakte Durchlaufzahl bei angebroche¬ 
nen Blöcken zulassen, sind vom Programmieraufwand - 
und daher auch von der Bearbeitungszeit im Programm¬ 
lauf - wesentlich umfangreicher. Die Umsetzung dieses 
Moduls in 6502-Assembler entnehmen Sie bitte dem Pro¬ 
gramm Hires-4 (Listing 23 auf Seite 133). 

Jetzt kommt Farbe in die Grafik 


Das Modul 4 dient der Einrichtung der Farbkombinationen 
von Zeichenfarbe und Hintergrundfarbe. Wie Sie bereits 
aus dem Kurs wissen, dient der Bildschirmspeicher - den 
wir uns bei $5C00 eingerichtet haben - als Farbspeicher im 
Hochauflösungsmodus. Jede der 1000 Bildschirmspei¬ 
cherzellen ist zuständig für ein Feld von 8 x 8 Bit der Bitmap. 
Der Inhalt eines solchen Bildschirmbytes steuert mit sei¬ 
nen unteren 4 Bit die Farbe des Hintergrundes und mit den 
oberen 4 Bit die Farbe der gesetzten Punkte. Die Farbcodes 
entsprechen den uns sonst schon bekannten im Textmo¬ 
dus. 

Wenn man daher mit »ZF« die Farbe der Zeichnungen 
und mit »HF« die des Hintergrundes bezeichnet, dann kann 
man den Gesamtcode »F«, der in den Bildschirmspeicher 
zu schreiben ist, ausdrücken durch: 

F = 16 * ZF + HF 

Außer dieser Berechnung benötigt man für das Basic- 
Programm nur noch eine Schleife, um die Aufgabe des Mo¬ 
duls Nummer 4 zu erfüllen. Die Eingabe der gewünschten 
Farben muß allerdings schon vorher geschehen sein: 

4000 REM - MODUL 4: FARBGEBUNG 

4010 BS = 23552 :REM BILDSCHIRMSTARTADRESSE 
4020 F = 16#ZF + HF :REM BERECHNUNG DES FARBC0DE 
4030 FOR I=BS T0 BS+999 :REM FARBSCHLEIFE 
4040 :P0KE I,F 
4050 NEXT I 
4060 RETURN 

Zu einer ganzen Tasse Kaffee reicht’s hier nicht, ein paar 
Schlucke können Sie aber schon in aller Ruhe zu sich neh¬ 
men, bis dieses Programm abgearbeitet ist. Ein Flußdia¬ 
gramm - hier wieder speziell für die Assembler-Version - 
zeigt Bild 18. 

In den ersten Zeilen des Assembler-Programms wird mit 
Hilfe einer Interpreter-Routine namens »COMBYT« aus 
dem Basic-Text zuerst die Zeichenfarbe, dann die Hinter¬ 
grundfarbe ins X-Register gelesen und von dort in Hilfs- 



Bild 17. Flußdiagramm zum »Modul 3« - Bitmap löschen 

Speicherzellen gelegt. Danach berechnet die Routine den 
Farbcode und schreibt schließlich in einer Doppelschleife 
diesen Code in den Bildschirmspeicher. Wieder ist die An¬ 
zahl der beschriebenen Speicherzellen höher als 1000 
Byte (nämlich 4x256 Byte = 1024 Byte). Weil aber der Bild¬ 
schirm an der Adresse 23552 beginnt, ist die letzte mit dem 
Farbcode beschriebene Adresse 24575, also genau unter 
der Bitmap-Startadresse, und dieses Vergehen richtet ei¬ 
nen Schaden an. Das Listing des Assembler-Moduls 4 fin¬ 
den Sie im Programmtext von Hires-4 (Listing 23). 

Einen Nachteil hat dieses Verfahren, statt 1000 nun 1024 
Byte mit dem Farbcode zu belegen: Falls Sie im Hochauflö¬ 
sungsbild auch mit Sprites arbeiten möchten, liegen die 
Spritezeiger noch in den oberen 8 Byte des 1024-Byte-Be- 

Rückkehr in den Textmodus 


reiches. Sie sollten daran denken, diese Spritezeiger erst 
nach dem Aufruf des Assembler-Moduls 4 mit Werten zu 
belegen, weil diese sonst mit dem Farbcode überschrieben 
werden. 
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Bild 18. Flußdiagramm zum »Modul 4« - Farbgebung 


Von den Nicht-Zeichenbefehlen fehlt uns nun noch der, 
mit dem wir in den normalen Textmodus zurückkehren kön¬ 
nen. Das soll das Modul 5 leisten, in welchem die im Modul 
2 veränderten Register wieder die Einschaltwerte erhalten 
und das Bit 5 in der VIC-Speicherstelle 53265 gelöscht 
wird. Als Ergebnis finden wir wieder den gewohnten Text¬ 
bildschirm ab 1024 ($0400) mit seinem unveränderten In¬ 
halt vor. 

Nach dem Einschalten unseres Computers finden wir in 
der Speicherzelle 53272, mit der in Modul 2 der Bildschirm- 
und der Bitmap-Bereich festgelegt wurde, den Wert 21. Ge¬ 
nau diesen schreiben wir nun dort wieder hinein. In der 
Speicherzelle 56576 haben wir den VIC-Chip auf den Ab¬ 
schnitt 1 gerichtet. Den Einschaltwert 199 schreiben wir 
nun dort hinein und teilen dem VIC damit wieder Abschnitt 
0 zu. Die Speicherzelle 648 enthält den Wert 4. Dadurch 
wird dem Betriebssystem mitgeteilt, daß der Bildschirm¬ 
speicher bei der Adresse 1024 beginnt. Unverändert lassen 
wir die beiden Speicherstellen 52 und 56, mit deren Hilfe wir 
den Basic-Speicher verkleinert haben. Würden wir auch 
hier die Einschaltwerte eintragen, könnte das zum Verlust 
von Variablen oder Strings führen, wenn das aufrufende 
Progamm nach dem Aufruf des Moduls 5 weitergeführt 
werden soll. Durch Einführen neuer Strings oder Variablen 
hingegen könnten Bitmap oder Grafikbildschirm verändert 
werden. Schaltet man in diesem Fall im weiteren Pro¬ 
grammlauf erneut in den Grafikmodus, fände man die 
Zeichnung zerstört. 



Bild 19. Flußdiagramm 
zum »Modul 5« - 
vom Grafikmodus 
in den Textmodus 
schalten 


Sowohl die Basic- als auch die Assembler-Version des 
Moduls 5 wird erklärt durch das Flußdiagramm in Bild 19. 
Die Basic-Version des Moduls lautet: 

5000 REM -MODUL 5: TEXTMODUS EIN 

5010 P0KE 53272,21 :REM ALTEN INHALT RESTAURIEREN 
5020 P0KE 56576,199:REM VIC WIEDER AUF ABSCHNITT 0 
5030 P0KE 648,4 :REM BILDSCHIRM AN 
BETRIEBSSYSTEM MELDEN 

5040 POKE 53265,PEEK(53265) AND 223 :REM TEXTMODUS 
EINSCHALTEN 
5050 RETURN 

Die Assembler-Fassung von Modul 5 finden Sie im Li- 
sting Hires-4 (Listing 23). Sie sollten noch eine Maßnahme 
beachten: Vergessen Sie nicht, vor Beendigung Ihres Pro- 
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gramms den ursprünglichen Inhalt der Speicherstellen 52 
und 56 wiederherzustellen - also den Wert 160 dort einzu¬ 
schreiben das sollte man am Ende eines jeden Pro¬ 
gramms, das Routinen aus Hires-4 aufruft, tun, um die ver¬ 
bogenen Vektoren wiederherzustellen. Noch eine Bemer¬ 
kung zur Speicherbegrenzung: Der Aufruf von Modul 2 
muß erfolgen, bevor man den ersten String im Programm 
definiert. Es ist daher sinnvoll, Modul 2 sozusagen pro for¬ 
ma aufzurufen und dann mittels Modul 5 wieder in den Text¬ 
modus zu gehen. Geschieht das nämlich nicht, könnte es 
Probleme beim Wiederfinden von zuvor definierten Strings 
geben, die nach der Begrenzung im gesperrten Speicher¬ 
bereich liegen. 

Bevor wir nun zu den einzelnen Zeichenroutinen gelan¬ 
gen, sollen die Assembler-Module 1 und 0 noch erklärt wer¬ 
den. Außerdem werden wir damit automatisch auch noch 
dem Modul 11 begegnen, das in der Basic-Version nicht 
vorkommt. 

An dieser Stelle soll nur das Prinzip erklärt werden, nach 
dem Modul 1 arbeitet, mehr würde den Rahmen dieses Ka¬ 
pitels sprengen. 

Wenn unser Computer ein Basic-Programm bearbeitet, 
dann liest er es Byte für Byte durch. Jedes neu eingelesene 
Byte wird durch die sogenannte Interpreterschleife (das 
kommt von »interpretieren«) untersucht und das Ergebnis 
der Untersuchung führt dann beispielsweise dazu, daß in 
die PRINT-Routine des Basic verzweigt wird, wenn das 
Kennzeichen für den PRINT-Befehl gefunden wurde. Auf 
diese Schleife weist ein Zeiger, der »IGONE« genannt wird 
und der sich bei $308/9 befindet. Der Trick ist es nun, die¬ 
sen Zeiger zu verbiegen und ihn auf eine eigene Interpre¬ 
terroutine weisen zu lassen. Genau das ist der erste Schritt 
im Modul 1. Um also die ganze Befehlserweiterung zu akti¬ 
vieren, muß zuerst immer dieser Teil - im Listing Hires-4 »in- 
it« genannt - angesteuert werden, was durch den Basic- 
Befehl SYS49152 geschieht (falls Sie Hires-4 bei $C000 be¬ 
lassen). 

Die Assemblei^Module 0, 1 und 11 


Von nun an wird jedes Zeichen aus dem Basic-Text darauf¬ 
hin überprüft, ob es zu einem unserer neuen Basic-Befehle 
gehört. Zu diesem Zweck haben wir als Modul 11 eine Rei¬ 
he von Tabellen, unter denen sich auch alle neuen Befehls¬ 
texte befinden. Wird festgestellt, daß es sich nicht um einen 
von unseren selbstgebastelten Befehlen dreht, erfolgt ein 
Rücksprung in die normale Interpreterroutine. Andernfalls 
aber dient eine weitere Tabelle in Modul 11 dazu, die Start¬ 
adresse der zum jeweiligen Befehl gehörenden Routine zu 
übergeben. Als Unterprogramm wird diese Routine dann 
bearbeitet und danach wieder in den normalen Interpreter 
zurückgesprungen. So haben wir gewissermaßen unsere 
eigene Interpreterschleife vor die normale Interpreter¬ 
schleife geschaltet. 

Der erste neue Basic-Befehl, der sich ebenfalls noch 
in Modul 1 befindet, lautet »AUS«. Er tut nichts weiter, als 
den Vektor »IGONE« wieder mit dem normalen Inhalt 
zu beschreiben, womit er unsere Befehlserweiterung ab¬ 
schaltet. 

Sehen wir uns kurz noch das Assembler-Modul 0 an. Wie 
schon erwähnt, enthält es alle im Programm verwendeten 
Namenszuordnungen. Diese gruppieren sich in drei Ab¬ 
schnitte. Im ersten davon finden Sie Vektoren und Routinen 
des Interpreters und des Betriebssystems. Die verwende¬ 
ten Namen sind in der Literatur allgemein gebräuchlich. 
Der zweite Teil des Moduls enthält ausschließlich Zero- 
page-Speicherstellen, die im Verlauf der verschiedenen 
Programmteile als Speicher für diverse Variable benutzt 


werden. Der dritte Abschnitt gibt noch eine genaue Über¬ 
sicht über mehrfach verwendete Speicherstellen. 

Das Tabellenmodul 11 hat folgenden Aufbau: Sie finden 
darin zuerst einige Konstanten im MFLPT-Format. Es han¬ 
delt sich dabei um die Bildschirmgrenzen 199 und 319, wo¬ 
bei 199 auch als 1-Byte-lnteger gespeichert wird. Es folgen 
einige Variable im MFLPT-Format, anschließend noch 2 
Byte für das Modul 1 (zur Speicherung der Befehlsnummer 
und des Akkumulators). Ebenfalls mit dem Modul 1 arbei¬ 
ten die Sprungtabelle (die angibt, wo die zu einem der neu¬ 
en Basic-Befehle gehörende Routine steht) und die Be¬ 
fehlstabelle zusammen (in der alle neuen Basic-Befehle als 
ASCII-Texte enthalten sind). Beide Tabellen bieten noch 
Platz für Erweiterungen. Den Schluß des Moduls 11 bilden 
Rechentabellen, auf die wir bei der Erklärung der Zeichen- 
module noch stoßen werden. 

Punkte setzen oder löschen 


Eine Routine zum Setzen von Punkten ist zweifellos die 
wichtigste im Rahmen eines Grafikprogramms. Gleichgül¬ 
tig, ob wir nun Kreise malen oder komplexe dreidimensio¬ 
nale Figuren: Letzten Endes setzt sich alles aus Bild¬ 
schirmpunkten zusammen, die alle einzeln gesetzt werden 
müssen. Das macht uns der C 64 leider nicht gerade leicht. 
Die Organisation des Bildschirms im Hochauflösungsmo¬ 
dus haben Sie ja noch aus den Anfangsseiten dieses Kur¬ 
ses in Erinnerung, und von daher kennen Sie auch einen 
Weg, wie man aus der X- und der Y-Koordinate eines Punk¬ 
tes im Bildschirmsystem (also X von 0 bis 319 und Y von 0 
bis 199) den Ort in der Bitmap berechnen kann, an dem ein 
Bit auf den Wert 1 zu setzen ist. Einen weiteren Weg (und 
zwar Auf der Basis eines Artikels von Andreas Schömann) 
zeige ich Ihnen hier, er zeichnet sich besonders für das 
Assembler-Programm durch seine Schnelligkeit aus. 

Nehmen wir einmal an, daß für die folgenden Überlegun¬ 
gen die Y-Koordinate eines Punktes gleich Null wäre und 
wirverändernnunnurdie X-Koordinate. Was wir suchen, ist 
die Nummer des Bytes, in dem das Bit liegt, das wir verän¬ 
dern wollen. Geht man die oberste Bytereihe durch, dann 
steht zuerst links oben das Byte Nummer 0, rechts schließt 
sich Byte 8 an, dann Byte 16, 24, 32 usw. bis zum letzten 
Byte rechts oben mit der Nummer 312. Verfolgen wir nun 
einmal den Zusammenhang zwischen X-Koordinate und 
Byte-Nummer (wobei wir die letztere sowohl dezimal als 
auch als Binärzahl betrachten werden): 


X-Wert 


Byte-Nummer 

dezimal 


binär 


0-7 

8-15 

16-23 

312-319 


0 

8 

16 

312 


00000000 00000000 
00000000 00001000 
00000000 00010000 

00000001 00111000 


Es zeigt sich, daß diese Nummern immer Vielfache von 
8 darstellen, daß also Bit 0 bis 2 des X-Wertes (in Binärform 
beispielsweise 6 = 00000110) einfach auf Null gesetzt 
exakt zur Byte-Nummer führen. Genaugenommen betrifft 
das das LSB (das untere Byte) unseres X-Wertes, das MSB 
kann nur 0 (bei Werten kleiner als 256) oder 1 sein (bei Wer¬ 
ten zwischen 256 und 319). Das Ausblenden von Bit 0 bis 
2 kann man erreichen durch: 

XL AND %1111 1000 (das ist dezimal 248) 

Dabei ist XL das LSB der X-Koordinate. Sei XM das MSB, 
dann folgt für die Byte-Nummer: 

256*XM + (XL AND 248) 

Jetzt kommt die Y-Koordinate dazu. Nehmen wir für ei¬ 
nen Moment einmal an, daß nun X so beschaffen sei, daß 
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wir uns in der ersten vertikalen Byte-Reihe befinden (also 
Werte zwischen 0 und 7 haben). Y kann sich zwischen 0 
und 199 bewegen. Die Zählung der Byte-Nummern in der 
Senkrechten folgt - wie Sie wissen - einem 8-Byte- 
Rhythmus: 0,1, 2, 3,4,5, 6, 7, 320,321, 322, 323, 324, 325, 
326, 327, ... . Um festzustellen, in welcher dieser 8-Byte- 
Reihen wir uns befinden, genügt es, einfach Y durch 8 zu 
teilen und davon den Integerwert zu berücksichtigen. So 
führt uns ein Y-Wert von 8 zu INT(8/8) = 1. Das dazugehöri¬ 
ge Byte liegt also in der ersten Reihe (wobei wir daran den¬ 
ken müssen, daß es auch noch eine nullte Reihe gibt!). In 
jeder dieser Reihen sind 320 Byte angeordnet. Um also die 
Nummer des ersten Byte einer solchen Reihe zu berech¬ 
nen, ist die Nummer der Bytereihe noch mit 320 zu multipli¬ 
zieren: 

320 * INT(Y/8) 

Für unseren Y-Wert 8 ergibt sich dann das Byte 320. Für 
Y=9 finden wir ebenfalls Byte 320 als erstes Byte der Reihe. 
Dazu muß aber nun noch ein Zählbetrag addiert werden, 
der sich immer zwischen 0 und 7 bewegt, der beispielswei¬ 
se im Fall Y=9 genau 1 beträgt. Das kann erreicht werden 
durch den Ausdruck: 

Y AND 7 

7 lautet in binärer Form ja 0000 0111 und 9 ist binär 0000 
1001. Die AND-Verknüpfung ergibt dann: 

0000 1001 9 

0000 0111 7 

_ AND 

0000 0001 1 

Um also die vertikale Byte-Nummer herauszufinden, 
brauchen wir beide Ausdrücke nur noch zu addieren: 
(YAND 7) + 320*1 NT(Y/8) 

Damit haben wir alles, was wir zur Berechnung der Byte- 
Nummer benötigen. Insgesamt gilt nun für das zu verän¬ 
dernde Byte: 

Byte-Nummer = 256*XM + (XL AND 248) + (Y AND 7) + 
320*INT(Y/8) 

Es kommt nun noch darauf an, festzustellen, welches Bit 
im so berechneten Byte zu beschreiben ist. Das können wir 
ähnlich feststellen, wie wir eben die vertikale Byte-Nummer 
berechnet haben, nämlich mit AND: 

XL AND 7 

Nehmen wir einmal an, unser X-Wert sei 8. Dann liefert 
8 AND 7 den Wert 0. Das bedeutet aber, im entsprechen¬ 
den Byte wird das 0. Bit - von links her gezählt - verändert! 
In der üblichen Zählweise - die ja von rechts arbeitet - han¬ 
delt es sich um das Bit 7. Um die richtige Bit-Nummer zu 
erhalten, müssen wir daher schreiben: 

Bit-Nummer = 7 - (XL AND 7) 

Wie schalten wir nun ein solches Bit im berechneten Byte 
ein? In Basic genügt dazu die Zeile: 

POKE Byte-Nummer, PEEK(Byte-Nummer) OR 2t Bit- 
Nummer 

Byte-Nummer hat hier schon die richtige Adresse, die 
sich durch Addition der berechneten Byte-Nummer und 
der Bitmap-Startadresse ergibt. 

Spätestens hier trennen sich nun die Wege, die wir in Ba¬ 
sic und in Assembler gehen. So wäre es in Basic unsinnig, 
die X-Koordinate in ein LSB und ein MSB zu teilen, weshalb 
hier die Berechnung der Byte-Nummer etwas anders 
durchgeführt wird: 

Byte-Nummer = (X AND 504) + 40*(Y AND 248) + 

(Y AND 7) 

Diese Formel ist aus der oben gezeigten ableitbar. Bei 
der Berechnung der Bit-Nummer ändert sich für das Basic- 
Programm lediglich, daß anstelle von XL hier X verwendet 
wird: 

Bit-Nummer = 7 - (X AND 7) 


Das komplette Modul 6 zum Setzen eines beliebigen 
Bildpunktes in Basic lautet damit: 

6000 REM - MODUL 6: PUNKT SETZEN 

6020 BY = (X AND 504) + 40*(Y AND 248) + (Y AND 7) 
6030 BI = 7 - (X AND 7) 

6050 POKE BY + BA, PEEK(BY + BA) 0R (2tBI) 

6060 RETURN 

Zwei Dinge gibt es nun noch, die im Assembler-Modul 
enthalten sind und hier in Basic ebenfalls sinnvoll erschei¬ 
nen. Man sollte mittels Modul 6 auch einen Punkt löschen 
können. Es ist weiterhin wichtig, eine Kontrolle einzubau¬ 
en, die verhindert, daß ein Punkt außerhalb des Bildschirm¬ 
bereichs angesprochen wird. 

Wenn das Modul 6 (beispielsweise aus einem Hauptpro¬ 
gramm) aufgerufen wird, müssen schon X und Y bekannt 
sein und mit übergeben werden. Wir sorgen nun nur noch 
dafür, daß auch eine Löschmarke L mit übergeben wird, die 
den Wert 0 hat, wenn ein Punkt zu setzen ist, aber den Wert 
1, wenn er gelöscht werden soll. Das Modul prüft dann auf 
diese Löschmarke und setzt gegebenenfalls das berechne¬ 
te Bit auf 0. Dies ist möglich mit der Kombination logischer 
Verknüpfungen AND NOT in der Zeile: 

POKE BY + BA, PEEK(BY + BA) AND NOT (21 Bl) 

Die Überprüfung darauf, ob sich ein Punkt innerhalb des 
Bildschirm-Koordinatensystems befindet, kann in einer Zei¬ 
le geschehen: 

IF X<0 OR X>319 OR Y<0 OR Y>199 THEN ... 

Nach dem THEN erfolgt einfach ein Sprung zum Modul- 



Bild 20. Flußdiagramm zum »Modul 6« - Setzen und 
Löschen von Punkten 
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ausgang (nämlich RETURN). Mit diesen Ergänzungen lau¬ 
tet das Basic-Modul 6 nun: 

6000 REM - MODUL 6: PUNKT SETZEN / LOESCHEN 

6010 IF X( 0 OR X) 319 OR Y( 0 OR Y) 199 THEN 6060 
6020 BY = (X AND 504) + 40*(Y AND 248) + (Y AND 7) 
6030 BI = 7 - (X AND 7) 

6040 IF L=1 THEN POKE BY + BA, PEEK(BY + BA) AND 
NOT (2tBI):GOTO 6060 

6050 POKE BY + BA, PEEK(BY + BA) OR (2tBI) 

6060 RETURN 

Zur Illustration unseres Vorgehens soll Ihnen das Fluß¬ 
diagramm in Bild 20 dienen. 

Sehen wir uns nun die Assembler-Fassung des Moduls 
an (siehe Listing 23 Hires-4). Vor allem in der Berechnung 
finden wir hier einige Unterschiede, die der Beschleuni¬ 
gung der Routine dienen. Gehen wir das Modul der Reihe 
nach durch. 

Zunächst werden aus dem Basic-Text die Parameter des 
Punktes (X- und Y-Koordinate und Löschmarke) geholt. Da¬ 
zu dient die Interpreterfunktion »GETNUM«, die einen 
16-Bit-Wert nach »XKO«, »XKO+1« einliest und einen 8-Bit- 
Wert ins X-Register legt. Den letzteren merken wir uns in 
»YKO«. Die anschließend verwendete Interpreterroutine 
»COMBYT« holt ein Byte des Basic-Textes (nämlich unsere 
Löschmarke) ins X-Register, von wo aus wir es in die Spei¬ 
cherstelle »MODE« schieben. Es gibt da ein kleines Pro¬ 
blem: Sind die Parameter X oder Y kleiner als 0 - was ja im 
Rahmen eines Programms schnell passieren kann -, dann 
erzeugen beide Interpreterroutinen eine Fehlermeldung. 
Damit das nicht geschieht, ist es also Aufgabe des Pro¬ 
grammierers, vor dem Aufruf des Moduls sicherzustellen, 
daß X und Y größer aj_s Null sind. 

Die Prüfungen auf Überschreitung der maximalen Bild¬ 
schirmwerte erledigt das Modul selbst. Dazu vergleicht es 
zuerst die Y-Koordinate in »YKO« mit 199. Ist »YKO« größer 
oder gleich dieser Zahl, dann wird verzweigt zu »NOPLOT«, 
also einfach zum aufrufenden Programm zurückgesprun¬ 
gen. Bei der X-Prüfung müssen 2 Byte getestet werden. 
Falls das MSB in »XKO+1« gleich 0 ist, kann einfach ge¬ 
zeichnet werden, ist es aber ungleich 0, wird es um 1 herun¬ 
tergezählt. Spätestens nun sollte es gleich 0 sein. Falls 
aber nicht, war es zu groß und wird nicht gezeichnet. War 
es jetzt aber gleich 0, wird nun das LSB geprüft. Die maxi¬ 
male X-Koordinate ist 320, was im Hexadezimalsystem der 
Zahl $140 entspricht. Das LSB in »XKO« darf in dem Fall 
nicht größer oder gleich $40 sein. Ist es größer, wird nicht 
gezeichnet. Ansonsten befindet sich das Programm nun 
beim Label »OK«, und die Berechnung des Byte beginnt. 

Zur Berechnung gehen wir von der anfangs vorgestellten 
Formel aus: 

Byte = 256*Xm + (XL AND 248) + (Y AND 7) + 
320*INT(Y/8) + BA 

Der die Geschwindigkeit bestimmende Teil der Berech¬ 
nung ist in den beiden letzten Summanden zu sehen. Der 
Trick ist nun, nicht per Programm diese ganzen Rechnun¬ 
gen auszuführen, sondern für jede der insgesamt 25 Rei¬ 
hen (zu je 8 x 40 Byte) schon vorher alle möglichen Ergeb¬ 
nisse von 320*INT(Y/8)+BA berechnet und in Tabellen 
»MALTAB« (für das LSB) und »MALTAB1« (für das MSB) ab¬ 
gelegt zu haben. Nun muß nur noch die Reihe bestimmt 
(eben durch INT(Y/8)) und dann der dazugehörige Wert aus 
den Tabellen gelesen werden. Die Tabellen »MALTAB« und 
»MALTAB1« finden Sie im Modul 11. Sie sind geordnet nach 
der Nummer der Reihe. So finden Sie in »MALTAB« für die 
Reihe 0 den Wert $00 und in »MALTAB1« den Wert $60. ins¬ 
gesamt beginnt somit die Reihe 0 an der Adresse $6000, 
was der Startadresse unserer Bitmap entspricht. Im Be¬ 
rechnungsteil findet daher zunächst einmal die Division Y/8 
statt, was durch die drei aufeinanderfolgenden LSR-Be- 


fehle geschieht. Automatisch ergibt sich dabei der Integer¬ 
wert, denn Nachkomma-Bits werden einfach ignoriert. Das 
Ergebnis landet im Y-Register als Offset für das spätere 
Herauslesen aus den Tabellen. Der Y-Wert war zuvor noch 
im X-Register gespeichert und wird nun im Akku zu (Y AND 
7) berechnet. Anschließend erfolgt die Addition des Tabel¬ 
lenwertes und noch die Addition des Gliedes (XL AND 248). 
In »ZWSP/ZWSP+1« liegt schließlich die Adresse des zu 
ändernden Byte fest. 

Eine weitere Tabelle namens »HOCHTAB« enthält acht 
Zweierpotenzen, geordnet nach absteigender Größe. 
Wenn wir nun das zu ändernde Bit bestimmen - mit (XL 
AND 7) - können wir das Ergebnis dieser Berechnung im 
Y-Register direkt als Offset in die Tabelle »HOCHTAB« be¬ 
nutzen. Die Subtraktion 7-(HL AND 7) ist wegen dieser Rei¬ 
henfolge der Tabelle nicht mehr nötig. Auf diese Weise ist 
nun auch der Wert bestimmt, der zur Veränderung des rich¬ 
tigen Bits führt. 

Im weiteren Verlauf des Programms wird nun der Modus 
bestimmt (im Unterschied zum Basic-Modul wurde hier 
beim Löschen der Modus 0, beim Zeichnen aber 1 benutzt) 
und dann entsprechend verzweigt. Zum Setzen wird die 
ORA-Funktion verwendet, zum Löschen findet zuerst eine 
Invertierung des Bitwertes statt, und dann wird mit AND das 
Bit gelöscht. 

Die gesamte Routine hat drei Einsprungstellen: »PUNKT 
1« ist immer dann der Weg ins Modul, wenn die Parameter 
aus dem Basic-Text gelesen werden sollen. Das geschieht 
immer dann, wenn im Text der Befehl 
PKT X,Y,Modus 

auftritt, wobei X und Y größer als 0 sein müssen und Modus 
gleich 1 fürSetzen und gleich 0 für Löschen festgelegt wur¬ 
de. Über den Eingang »PUNKT 2« gelangt man ins Modul, 
wenn X und Y und Modus schon bekannt und in den Spei¬ 
cherstellen »XKO/XKO+1«, »YKO« und »MODE« abgelegt 
sind. Auch hier gelten die eben genannten Einschränkun¬ 
gen für die zugelassenen Werte aller drei Parameter. Die 
Prüfung auf Bereichsüberschreitungen erfolgt aber erst 
jetzt im Modul. Der dritte Einsprung - dann müssen alle Pa¬ 
rameter auf ihre Zulässigkeit überprüft sein - kann bei »OK« 
erfolgen. Auch hier erwartet das Programm die Werte 
schon in den dafür vorgesehenen Speicherstellen. 

Dieses im Assembler-Modul 6 verwendete Verfahren ist 
das schnellste zum Setzen oder Löschen von Punkten auf 
dem C64. Neben seinem Geschwindigkeitsvorteil hat es 
aber leider einen Nachteil, dem wir in den aufrufenden Pro¬ 
grammen immer Rechnung tragen müssen: Es überprüft 
nicht, ob die Y-Koordinate kleiner als 0 ist. Man kann solch 
eine Werteüberprüfung in Assembler nämlich relativ ein¬ 
fach ausbauen zum sogenannten punkteweisen Clipping. 
Dazu wird bei jedem zu zeichnenden Punkt überprüft, ob 
seine Koordinatenwerte innerhalb eines zuvor definierten 
Bildschirmfensters liegen und das normale Bildschirmfen¬ 
ster (X von 0 bis 319, Y von 0 bis 199) wäre so nur ein Son¬ 
derfall. Ein Punkt wird nur gezeichnet, wenn er sich inner¬ 
halb des Fensters befindet. Auf negative X-Werte prüft Mo¬ 
dul 6 übrigens gewissermaßen nebenher. Negative Integer¬ 
zahlen sind im allgemeinen dadurch gekennzeichnet, daß 
ihr höchstwertiges Bit (also Bit 15 bei einer 2-Byte-Zahl) den 
Wert 1 aufweist. Das MSB unserer X-Koordinate würde 
dann beim Herunterzählen um 1 nicht 0 werden, und daher 
wird der Punkt auch nicht gezeichnet. Es ist dann nur noch 

Linien zeichnen 


die Aufgabe des Programmierers, dafür zu sorgen, daß in 
den aufrufenden Programmen negative Werte auch wirk¬ 
lich dieses Zahlenformat erhalten. 
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Nachdem wir das Fundament eines Grafikprogramms 
geschaffen haben, gehen wir nun daran, die wichtigsten 
Zeichenroutinen zu programmieren. Zweifellos benutzt 
man am häufigsten einen Befehl zum Zeichnen von gera¬ 
den Linien, und das soll für uns das Modul 7 erledigen. 

Der einfachste Weg für den Basic-Programmierer wäre, 
mit der Funktionsvorschrift 
Y = M * X + B 

und dem DEF FN-Befehl eine X-Schleife durchlaufen zu 
lassen und die Punkte (X, FN(X)) mit Modul 6 zu zeichnen. 
Die Parameter M (Steigung) und B (Achsenabschnitt) wä¬ 
ren entweder schon bekannt oder müßten im Programm 
aus den Koordinaten eines Start- und eines Endpunktes 
der Linie berechnet werden. Wenn wir dem Startpunkt den 
Namen P1(X1 ,Y1) und dem Endpunkt den Namen P2(X2,Y2) 
geben, dann könnte man das mit den folgenden Formeln 
tun: 

M = (Y2-Y1)/(X2-X1) 

B = -XI *(Y2-Y1)/(X2-X1) + Y1 

Für die Mathematiker: Die beiden Gleichungen lassen 
sich aus der sogenannten 2-Punkte-Form der Geradenglei¬ 
chung herleiten. Leider verhält es sich so, daß dieser einfa¬ 
che Weg meist krumme Ergebnisse bringt. Die Bildschirm- 



Bild 21. Der Bresenham-Linien-Algorithmus basiert auf der 
Ermittlung der Abstände t und s von der Ideallinie 


koordinaten hingegen sind ganze Zahlen. Wenn sich durch 
die Berechnung nach dem obigen Algorithmus beispiels¬ 
weise ein Y-Wert von 100,73 ergibt, kann nur bei Y=100 
oder bei Y=101 ein Punkt gesetzt werden. Das gleiche gilt 
natürlich für die X-Koordinate. Das Modul 6 ist aufgrund sei¬ 
ner ganzen logischen Operationen nur auf Integerwerte 
eingerichtet. Es wird somit lediglich der Vorkommateil einer 
Zahl berücksichtigt, was auch dann der Fall wäre, wenn wir 
mit der INT(...)-Funktion gearbeitet hätten. Der Punkt in un¬ 
serem Beispiel würde bei Y = 100 gesetzt, obwohl Y = 101 
dem tatsächlichen Punkt näher läge. Das Ergebnis sind 
stark treppenartige Linien, die verhältnismäßig weit von der 
Ideallinie entfernt sind. Ein weiterer Hemmschuh ist die re¬ 
lativ lange Bearbeitungszeit, die dadurch hervorgerufen 
wird, daß bei jedem Schleifendurchlauf auf die Funktions¬ 
definition zurückgegriffen werden muß. Schließlich spielt 
es auch noch eine Rolle - besonders in der Assembler- 
Fassung -, daß nicht mit Integerzahlen gearbeitet werden 
kann. In den meisten Programmsprachen ist die Verarbei¬ 
tung von Dezimalzahlen (also Kommazahlen) sehr viel auf¬ 
wendiger als die von ganzen Zahlen. 


Im Jahr 1965 hat Bresenham einen Linienalgorithmus 
veröffentlicht, der - in den zeitkritischen Programmteilen - 
ausschließlich ganze Zahlen verwendet und der außerdem 
den Treppeneffekt auf ein Minimum reduziert. Zudem ist er 
sehr schnell. Diesen Rechenweg werden wir verwenden 
für unser Modul 7. Es handelt sich dabei um einen soge¬ 
nannten inkrementeilen Algorithmus (vom lateinischen »in- 
crescere«, was »anwachsen, zunehmen« bedeutet). Das 
funktioniert so: Man geht von einem Startpunkt auf dem 
Bildschirm aus und geht in der X-Richtung um 1 weiter. Die 
Frage ist nun, wie muß man jetzt in der Y-Richtung weiter¬ 
gehen? Zum Y-Wert des Startpunktes ist ein gewisser klei¬ 
ner Betrag - das Inkrement - zu addieren, damit man die 
Koordinaten des neuen Punktes erhält. Wenn wir das Inkre¬ 
ment »M« nennen, dann folgt auf diese Weise aus dem 
Startpunkt P1(X1,Y1) der nächste Punkt P2(X1+1,Y1 + M). 
Die Größe dieses Inkrementes hängt ab von den typischen 
Parametern der Linie und kann aus diesen berechnet wer¬ 
den. Was wir bisher gezeigt haben, ist der einfache inkre- 
mentelle Algorithmus, der meistens noch Kommazahlen 
für »M« verwendet und von daher den Treppeneffekt auf¬ 
weist. Bresenhams Weg untersucht nun für jeden neuen 
Punkt, welcher der möglichen Y-Werte den kleinsten Feh¬ 
ler aufweist. In Bild 21 sehen Sie die Verhältnisse noch et¬ 
was deutlicher dargestellt. 

Optimierter Linienalgorithmus 


Die Rasterpunkte des Bildschirms sind hier durch das Li¬ 
nienraster symbolisiert. Nur an den Kreuzungsstellen ist 
das Setzen von Punkten möglich. Die Linien haben in bei¬ 
den Richtungen jeweils den Abstand 1 voneinander. 
Schiäc durch das Bild verläuft das mathematisch korrekte 
Abbild einer Beispielgeraden. Ein Punkt dieser Geraden ist 
(tiefschwarz) schon gesetzt. Er weist die Koordinaten r und 
q auf. Das war der (i-l)-Punkt. Nun soll der i-Punkt gesetzt 
werden. Dazu gehen wir in X-Richtung um 1 weiter, so daß 
die X-Koordinate des i-Punktes nun r+1 beträgt. Es gibt (in 
diesem Beispiel) nun zwei mögliche Y-Positionen, nämlich 
qoderq+1. Die sich daraus ergebenden möglichen Punkte 
Si(r+1,q) und Ti(r+1,q+1) sind ebenfalls (grau) in Bild 21 zu 
sehen. Beide weichen von der idealen Linie ab, und zwar 
hat Si einen Fehler von s, Ti einen Fehler von t. Bresenhams 
Verdienst liegt darin, daß sein Algorithmus feststellt, wel¬ 
cher Fehler kleiner ist und dann zum Setzen des dazugehö¬ 
renden Punktes führt. 

Man kann sicher sagen, daß der Punkt Si zu setzen sei, 
wenn die Differenz s-t kleiner als 0 ist, und daß andernfalls 
Ti gesetzt werden muß. Wie kann man nun s und t auf einfa¬ 
che Weise ausdrücken? Gehen wir dazu noch einmal von 
der normalen Gleichung einer Geraden aus: 

Y = M*X + B 

Die Rechnung wird vereinfacht, indem man ein Koordi¬ 
natensystem verwendet, in dem unsere Gerade genau 
durch den Ursprung verläuft (man nennt die dazu nötigen 
Operationen Transformationen, was uns aber momentan 
nicht beschäftigen soll). In diesem Fall ist der Achsenab¬ 
schnitt B gleich 0, und die Gerade hat die vereinfachte Glei¬ 
chung: 

Y = M*X 

M ist die Steigung der Geraden. Darunter versteht man 
den Tangens des Winkels, mit dem die Gerade ansteigt. 
Dieser Tangens kann berechnet werden, indem man an die 
Gerade ein rechtwinkliges Dreieck anlegt, so daß die Hy- 
pothenuse (also die lange Seite, die dem rechten Winkel 
gegenübersteht) durch unsere Gerade gebildet wird und 
die beiden Katheten (also die kurzen Seiten, die zusammen 
den rechten Winkel bilden) parallel zu den Koordinatenach- 
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Bild 22. Flußdiagramm zum kompletten Bresenham-Linien- 
Algorithmus 


sen verlaufen. Sind die Punkte, die die Hypothenuse ein¬ 
schließen, P1(X1,Y1) und P2(X2,Y2), dann kann man die 
Längen der Katheten dx und dy ausdrücken durch: 
dx = X2 - XI 
dy = Y2 - Y1 

Der Tangens - also unsere gesuchte Steigung - ergibt 
sich dann zu: 

dx 

Setzen wir das in die vereinfachte Geradengleichung 
ein, dann erhalten wir nun: 

Y = -^-.X 
dx 

Mit Hilfe von Bild 21 können wir nun s und t berechnen. 
Für den Abstand s ergibt sich: 

s = -f-* ( r+1) - q 

und für den Abstand t folgt: 

t = q + 1 ‘-^-*( r+1 ) 

Die uns interessierende Differenz s-t, die das Kriterium 
dafür ist, welcher Punkt nun zu zeichnen sei, ergibt sich aus 
diesen beiden Gleichungen zu: 

s-t = 2*-^-*(r+1)-2*q-1 

Das läßt sich leicht umformen in: 
dh * (s-t) = 2 * (r * dy - q * dx) + 2 * dy - dx 

Jrn u.'.c gerade beschäftigenden Fall ist dx immer positiv. 
Wenn also s-t kleiner als Null wird (und daher Si gesetzt 
werden muß), dann wird auch die ganze linke Seite unserer 
Gleichung negativ. Wir geben dieser nun den neuen Na¬ 
men d(i): 
d(i) = dx * (s-t) 

Außerdem führen wir nun anstelle von r und q die übli¬ 
chen Koordinaten X und Yein. Weil r und q im letzten Schritt 
(i-1) gewonnen wurden, setzen wir einfach: 
r = X(i-1) 

q = Y(i- 1 ) 

Aus unserer letzten Gleichung folgt nun: 

(1) d(i) = 2 * X(i-1) * dy - 2 * Y(i-1) * dx + 2 * dy - dx 
Betrachten wir nun den nächsten Schritt (i+1). Für diesen 

kann man analog dazu schreiben: 
d(i+1) = 2 * X(i) * dy - 2 *Y(i) * dx + 2 * dy - dx 
Jetzt ziehen wir d(i) von d(i+1) ab und erhalten für den 
Unterschied: 

d(i+1) - d(i) = 2 * dy * (X(i) - X(i-1)) - 2 * dx * (Y(i) - Y(i-1)) 
Die Schrittweite in X-Richtung sollte aber immer 1 betra¬ 
gen, so daß gilt: 

X(i) - X(i—1) = 1 

Berücksichtigen wir das und lösen die Gleichung nach 
d(i+1) auf, dann erhalten wir: 
d(i+1) = d(i) + 2 * dy - 2 * dx * (Y(i) - Y(i-1)) 

Jetzt können wir zwei Fälle unterscheiden: 

a) d(i) ^ 0, dann ist also (s-t) ^ 0 und der Punkt Ti wird aus¬ 
gewählt zum Zeichnen. Das bedeutet: 

Y(i) = Y(i—1) + 1 
und außerdem 

(2) d(i+1) = d(i) + 2 * (dy dx) 

b) d(i) < 0, dann ist (s-t) < 0 und der Punkt Si ist zu zeich¬ 
nen. Hier ist dann: 

Y(i) = Y(i+1) 
und es gilt 

(3) d(i+1) = d(i) + 2 * dy 
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Damit haben wir nun einen Weg gefunden, jedes d(i) aus 
dem vorhergehenden zu berechnen. Es fehlt uns nun noch 
ein Anfangswert d(1), der auf den Startpunkt zutrifft. Den 
können wir aus Gleichung (1) bestimmen, wenn wir für 
X(i—1) und Y(i-1) die Koordinaten des Startpunktes P0(0,0) 
einsetzen. Wir erhalten dann: 

d(1) = 2 * dy - dx 

Die gesamte Lösung läuft dann auf diese Weise: 

1) Werte dx und dy berechnen 

2) Anfangswert d(1) ermitteln 

3) Feststellen, ob der aktuelle Wert d(i) größer oder kleiner 
als 0 ist 

4) X um 1 erhöhen 

5) Je nach Größe von d(i) Y beibehalten oder um 1 erhöhen 

6) Je nach Größe von d(i) das nächste d(i+1) berechnen 

7) Punkt zeichnen und weiter mit 3) 

Wie Sie sehen, sind alle Werte als Integer-Zahlen verar¬ 
beitbar und im zeitkritischen Teil kommen nur Additionen 
vor. Damit ist das Optimum an Geschwindigkeit eines Li¬ 
nienalgorithmus erreicht. 

Eine Einschränkung gibt es aber zu den bisher gemach¬ 
ten Überlegungen, die Ihnen sofort klar wird, wenn Sie in 
Gedanken einmal eine Gerade zeichnen lassen, die paral¬ 
lel zur Y-Achse verläuft: Es würde nichts gezeichnet wer¬ 
den, weil X nicht zu variieren ist! Der gezeigte Algorithmus 
arbeitet so nur für Linien im ersten Quadranten mit einem 
Steigungswinkel zwischen 0 und 45 Grad. Damit er für alle 
Eventualitäten brauchbar wird, müssen wir noch einige Er¬ 
gänzungen anbringen - die aber am Prinzip nichts verän¬ 
dern. Die Ergänzungen haben die Aufgabe, die Steigung 
zu prüfen, gegebenenfalls stattX nun Y zu variieren und un¬ 
ter Umständen statt zu addieren auch zu subtrahieren. Den 
kompletten Algorithmus finden Sie als Flußdiaqramm in 
Bild 22. 

Kommen wir nun zur Basic-Version unseres Moduls 7. 
Wir gehen davon aus, daß die Koordinaten der beiden Li¬ 
nienbegrenzungspunkte (Startpunkte P1(X1,Y1) und End¬ 
punkt P2(X2,Y2)) durch das Hauptprogramm schon be¬ 
kannt sind. Außerdem soll vor dem Aufruf festgelegt wer¬ 
den, welche Größe (0 oder 1) die Löschmarke hat, denn wir 
können mit dem gleichen Modul auch Linien löschen (das 
erledigt dann Modul 6 für uns). Und so sieht unser Modul 
nun aus: 

7000 REM - MODUL 7: LINIEN ZEICHNEN/LOESCHEN 

7010 X% = XI :Y* = Y1 : REM ALLES IN INTEGERS 
7020 DX/S = ABS(X2-Xl): REM BERECHNUNG DER 
DIFFERENZEN 
7030 DYS = ABS(Y2-Y1) 

7040 SIS = SGN(X2-X1): REM BESTIMMUNG DES OKTANTEN 
7050 S2S = SGN(Y2-Y1) 

7060 IF DXS < DYS THEN DS=DXS:DXS=DYS:DYS=DS:TS= 

1:GOTO 7080 

7070 TS=0 : REM UMDREHEN WENN DX < DY UND 
MARKE SETZEN 

7080 DS = 2#DYS - DXS: REM STARTWERT ERMITTELN D(l) 
7090 US = 2#DYS : REM INKREMENTE BERECHNEN 
7100 I2S = 2*DXS 

7110 FOR I = 1 T0 DXS : REM HAUPTSCHLEIFE 
7120 :X=XS:Y=YS:G0SUB 6000:REM PUNKT ZEICHNEN 


7130 

:IF I 

n(o 

THEN GOTO 

7170 



7140 

:IF T*=l 

THEN X% = 

X% + 

Sl?5: GOTO 

7160 

7150 

:Y% = 

= Y% 

+ S2% 




7160 

:D% -- 

-- D% 

- 12% 




7170 

:IF 1%=1 

THEN Y% = 

Y% + 

S2 %:GOTO 

7190 

7180 

:Xe = 

■- X% 

+ SliS 




7190 

:D% -- 

-- D% 

+ 11% 




7200 

NEXT 

I 






7210 RETURN 


Nach einem ähnlichen Prinzip ist auch die Assembler- 
Version des Modul 7 aufgebaut. Mit geringen Änderungen 
habe ich dazu ein hervorragendes Programm von Michael 
Bauer übernommen (siehe Listing Hires 4). 

Wenn Sie unser Modul 7 benutzen, werden Sie feststel¬ 
len, daß schräge Linien immer noch als Treppen erschei¬ 
nen. Der Treppeneffekt hat nämlich zwei Ursachen: Eine 
Software-Ursache, die wir mittels Modul 7 minimieren 
konnten und eine Hardware-Ursache, die mit der relativ ge¬ 
ringen Auflösung unseres Bildschirms zusammenhängt. 
Läßt man den gleichen Algorithmus beispielsweise in der 
höchsten Auflösung des Amiga (640 x 400 Punkte) laufen, 
ist kaum mehr eine Treppenzeichnung zu erkennen. 

Kreis zeichnen 


Zwar wird ein Befehl zum Zeichnen von Kreisen nicht mehr 
so häufig benutzt wie die bisher betrachteten, er zählt aber 
noch zu den wichtigeren Grafikbefehlen und soll deshalb 
im Modul 8 behandelt werden. Wieder gibt es einige her¬ 
kömmliche und einfache mathematische Beziehungen, die 
oft zum Zeichnen von Kreisen herangezogen werden. Bei¬ 
spielsweise dient dazu: 

X = R * COS(W) 

Y = R * SIN(W) 

W ist dabei ein Winkel, der-von 0 bis 360 Grad durchlau¬ 
fen -die Punktekoordinaten eines Kreises mit dem Radius 
R liefert. Sie können sich sicher vorstellen, daß die Berech¬ 
nungen des Sinus und des Cosinus sowie die Multiplikatio¬ 
nen mit Realzahlen, langsam ablaufen und ähnliche Trep¬ 
peneffekte hervorrufen, wie wir sie schon bei den Linienal¬ 
gorithmen diskutiert haben. Aber auch hier gibt es erstaun¬ 
lich sui ielle Algorithmen, die noch dazu mit Integerwerten 
auskommen. 

J. Michener hat (in Foley, Van Dam: »Fundamentals of in- 
teractive Computer Graphics«, Reading 1984, Seite 442) ei¬ 
nen von Bresenham 1977 vorgestellten Kreis-Algorithmus 
verfeinert, den wir uns gleich genauer ansehen werden. 
Zuvor aber wollen wir noch einige Besonderheiten des 
Kreises untersuchen, die erheblich zur Beschleunigung 
der Rechnung beitragen können. Erfreulicherweise ist der 
Kreis eine höchst symmetrische Figur. Legt man ihn derart 
in ein Koordinatenssystem, daß sein Mittelpunkt mit dem 
Ursprung zusammenfällt, dann stellt man sehr schnell fest, 
daß es ausreicht, lediglich die Punkte eines Achtelkreises 
zu berechnen. Alle anderen lassen sich durch Symmetrien 
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daraus herleiten. In Bild 23 sehen Sie, daß aus einem be¬ 
rechneten Punkt sieben weitere Kreispunkte folgen. 

Weil man aber prinzipiell jeden Kreis einer Transforma¬ 
tion (also einer rein rechnerischen Verschiebung) unter¬ 
werfen kann, die ihn in die Ursprungslage bringt, braucht 
man immer nur ein Achtel der Kreispunkte zu berechnen. 
Nun also zu den Überlegungen von Bresenham und Miche- 
ner. Bild 24 zeigt Ihnen die Verhältnisse in einem symboli¬ 
sierten Bildschirmraster. 



Bild 24. Der radiale Fehler beim Zeichnen eines Kreises 


Sie sehen darin den idealen Kreis, seinen Radius R und 
einen Rasterpunkt Pi(Xi,Yi). Rechnen wir vom Mittelpunkt 
des Kreises aus, dann wäre die ideale Entfernung eines 
Kreispunktes R. Die wirkliche Entfernung aber des Punktes 
Pi vom Mittelpunkt ist SQR(Xi 2 + Yi 2 ). Gehen wir von der 
Gleichung des Kreises aus: 

X 2 + Y 2 = R 2 

Setzen wir darin einmal die wirkliche Entfernung ein und 
ein zweites Mal die Idealentfernung und ziehen beide Glei¬ 
chungen voneinander ab, dann können wir eine Fehlergrö¬ 
ße D(Pi) definieren, die auf einen Punkt Pi bezogen wird: 

(1) D(Pi) = (Xi 2 + Yi 2 ) - R 2 

Man könnte noch eine Reihe anderer Fehlergrößen fest¬ 
legen - wir werden das später auch noch sehen -, Michener 
folgend nehmen wir hier den Radialfehler für die weiteren 
Betrachtungen. Sehen Sie sich dazu bitte Bild 25 an. 

Wieder finden Sie hier das Koordinatenraster und einen 
Teil des idealen Kreises. Gerade eben wurde der Punkt 
Pi-i (X m ,Y m ) gesetzt. Wenn wir in X-Richtung um 1 weiter¬ 
gehen, stehen wir vor der Wahl, nun entweder den Punkt 
Si(X M + 1, Y,.,) oder den Punkt T^X,., + 1, Y,., -1) zu set¬ 
zen. Die Entscheidung darüber, welcher der beiden Punkte 
zu setzen ist, wird durch einen Vergleich der Fehlergrößen 
der beiden Alternativen getroffen. Diese ergeben sich 
durch Einsetzen der entsprechenden Koordinaten in die 
Gleichung (1): 

(2) D (S,) = (X,., + I) 2 + (Y,.,) 2 - R 2 

(3) D (T,) = (,., + I) 2 + (Y,., - I) 2 - R 2 
Wenn nun gilt: 

ABS(D(S,)) > = ABS(D(T,)) 

dann ist T, der nächstgelegene Punkt, ansonsten ist es S,. 
Wie zuvor schon beim Linienalgorithmus kann man wieder 
eine Entscheidungsgröße d, definieren: 

(4) d, = D(S,) + D(T,) 

Damit ergibt sich dann, daß wenn 
d, ^ 0 ist, der Punkt T, und wenn 
d, < 0 ist, der Punkt S, 


gezeichnet werden muß. Nach einer ähnlichen Rechnung, 
wie wir sie für den Linienalgorithmus durchgeführt haben, 
erhält man schließlich für den Startwert der Entscheidungs¬ 
größe: 

d, = 3 - 2*R 

Hat man dann den Punkt S, gesetzt, weil d, kleiner als 0 
war, dann ergibt sich für den nächsten Punkt die Entschei¬ 
dungsgröße: 
di+i = d, + 4 *X m + 6 

Ist aber der Punkt T, gezeichnet worden, weil d, größer 
oder gleich 0 war, berechnet man die nächste Entschei¬ 
dungsgröße nach: 
di+i = d, + 4*(X,., — Y,.,) 

Wie das nun in der Praxis aussieht, soll Ihnen das Fluß¬ 
diagramm in Bild 26 zeigen. 

Dieser Weg ist zwar schon praktikabel, wegen der vielen 
Rechnungen, die für D erforderlich sind, aber noch etwas 
langsam. Bresenham hat (in »Fundamental Algorithms for 
Computer Graphics«, NATO ASI Series fl7, Berlin 1985, 
S.197) seine Arbeiten kritisch diskutiert und einige erhebli¬ 
che Vereinfachungen veröffentlicht, die vor allem die Be¬ 
rechnung einer Fehlergröße betreffen. Am Prinzip ändert 
sich nichts. Der vereinfachte Algorithmus soll uns als Basis 
dienen für unser Modul 8. 



Hier zunächst einmal die Basic-Version: 

8000 REM - MODUL 8: KREIS ZEICHNEN/LOESCHEN 

8010 X% = 0:Y? = R: REM STARTWERTE 
8020 D% = R - 1 : REM ENTSCHEIDUNGSGROESSE 
8030 IF D%{0 THEN Y% = Y% - 1:D* = D% + Y% + Y% 
8040 G0SUB 8100 : REM ZEICHNEN VON 8 KREISPUNKTEN 

8050 d% = d% - x% - x% - 1 

8060 X% = X% + 1 
8070 IF Xl{ =Y% THEN 8030 
8080 RETURN 

8100 REM - UP 8 KREISPUNKTE ZEICHNEN 

8110 X = XM + X%:Y = YM + Y#:G0SUB 6000 

8120 X = XM - X%:Y = YM + Y#:G0SUB 6000 

8130 X = XM + X%:Y = YM - Y£:G0SUB 6000 

8140 X = XM - X%:Y = YM - Y£:G0SUB 6000 

8150 X = XM + Y%:Y = YM + Xi?:G0SUB 6000 

8160 X = XM - Y%:Y = YM + X#:G0SUB 6000 

8170 X = XM + Y%:Y = YM - X$:G0SUB 6000 

8180 X = XM - Y%:Y = YM - XiS.'GOSUB 6000 

8190 RETURN 
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Dem Modul müssen folgende Parameter durch das auf¬ 
rufende Programm übergeben werden: Der Mittelpunkt 
des Kreises mit den Koordinaten XM und YM, der Radius 
R und die Löschmarke (1 = Löschen, 0 = Zeichnen). Das 
Unterprogramm enthält noch einige überflüssige Befehle 
(damit man zunächst einmal die Symmetriebeziehungen 



Bild 26. Flußdiagramm des Bresenham-Kreis-Algorithmus 

erkennen kann), die durch entsprechende Anordnung 
noch eingespart werden können und damit das Modul 
schneller machen. Unter Umständen empfiehlt es sich 
auch, anstelle des Unterprogrammaufrufes in Zeile 8040 
einfach die gesamten acht Zeichenbefehle direkt einzu¬ 
arbeiten (in der verkürzten Form). Dann erspart man sich 
noch einmal überflüssige Programmzeit. 

Die Assembler-Fassung des Moduls finden Sie im Listing 
23 (Hires 4). Sie ist genauso aufgebaut wie das Basic- 
Modul. Hinzugekommen sind noch einige Zeilen, die die 
Parameter aus dem Basic-Text lesen und überprüfen. Noch 
eine Bemerkung zur Assembler-Fassung: Die verwende¬ 
ten Speicherstellen sind hier fast vollständig für 16-Bit- 
Zahlen ausgelegt. Das rührt daher, daß diese Routine für 
spätere Erweiterungen offen sein soll. Solange sich alle 
Werte im normalen Bildschirmsystem befinden, gibt es mit 
der Kreisroutine keine Probleme. Sobald Sie aber Zahlen 
verwenden, die stark darüber hinausgehen - was aber oh¬ 
nehin nicht sinnvoll ist - kann es zu unsinnigen Zeichnun¬ 
gen kommen. 


Das Gesamfprogramm 


Damit Sie alle bisher vorgestellten Grafikmöglichkeiten ein¬ 
mal ausprobieren können, sind zwei Listings angefügt. Hi¬ 
res 4.BAS (Listing 25) enthält alle Module und davor noch 
einen kleinen Testteil. 

Wenn Sie das Programm starten, müssen Sie sich in Ge¬ 
duld fassen: Grafik in Basic ist auf dem C64 - wegen der 
vielen POKE-Befehle - langsam. 

Etwa 25 Minuten lang können Sie Kaffee trinken oder 
zum Einkäufen gehen, während das Programm Punkte in 
Form einer Sinuskurve zeichnet, einen Teil davon wieder 
löscht, Linien als Radien eines Kreises zieht und zu guter 
Letzt einen großen Kreis auf den Bildschirm bringt. Danach 
sollten Sie sich einmal der Basic-Befehlserweiterung be¬ 
dienen. Dazu laden Sie bitte das Programm Hires 4.0BJ 
(Listing 24) mit 
LOAD"HIRES4.OBJ",8,1 

Dann geben Sie ein NEW und CLR. Wenn Sie nun die Er¬ 
weiterung durch 
SYS 49152 

aktivieren, stehen acht neue Basic-Befehle zur Verfügung: 

AUS: Schaltet die Erweiterung wieder ab 

HAN: Schaltet den Grafikmodus ein 

LOE: Löscht die Bitmap 

FAR,Zeichenfarbe,Hintergrundfarbe: Belegt den Gra- 
fikfarbspeicher mit den angegebenen Zeichen- und Hinter¬ 
grundfarben 

HOF: Schaltet wieder zurück in den Textmodus 

PKT X,Y,L: Setzt oder löscht einen Punkt P(X,Y) auf dem 
Bildschirm. L ist die Löschmarke, die bei L=1 das Setzen 
und bei L=0 das Löschen bewirkt 

LIN-/'1,Y1,X2,Y2,L: Zieht auf dem Bildschirm eine Linie 
von P1(X1,Y1) nach P2(X2,Y2). L ist wieder die Löschmarke 

CIR,XM,YM,R,L: Zeichnet einen Kreis um den Mittel¬ 
punkt M(XM,YM) mit dem Radius R. Auch hier ist L die 
Lösch marke 

Das gleiche wie Hires 4.BAS leistet auch das Programm 
Hires 4.ASS (Listing 26), nur eben mit der Basic-Erweite- 
rung. 

Nach dem Start müssen Sie sich aber etwas beeilen, 
schnell einen Schluck Kaffee hinunterzustürzen: Nach 
knapp 25 Sekunden ist das Programm beendet, und das 
liegtauch noch hauptsächlich an den Warte- und Zeichen¬ 
schleifen in Basic, die unsere neuen Befehle ansteuern. 

Zum Abschluß dieses Kapitels sei Ihnen noch gesagt, 
daß wir in der Befehls-Erweiterung lediglich ein Grundge¬ 
rüst geschaffen haben. 

Nun bleibt es Ihnen überlassen, weitere Anwendungen 
oder Besonderheiten in Basic damit zu programmieren. 

So können Sie nun das eine oder andere Programm ein 
wenig umformulieren. Wenn Sie genau hinsehen, werden 
Sie feststellen, daß in den Tabellen des Moduls 11 
(Assembler-Fassung) noch allerlei Erweiterungen vorgese¬ 
hen sind. 


ready. 

10 

20 ..... 

30-I« • 

40 -j* Grafik ln Assembler • 

50 Programm in 9 Modul an * 

60 * Grafik-Baelc-ErWeiterung C64 • 

70 -i* H1RES-4 • 

80 -j * • 

90 -|» Haimo Ponnath Hamburg 1906 • 

100 -j* • 

110 -i••••••••*•••**•***•*»***••••«••• 

120 

130 -j«*« Modul 01 Zuweisungen 

140 

Listing 23. Quelltext im Hypra-Ass-Format zu Hires 4 
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150 


. ba 

•«0M 




1430 


»ta t.prung-7 

1 msb 

160 

“1 






1460 

-j 



170 

-— 

feste Zuordnungen — 




1470 

-j— Solbatmodifizierendor 

Teil — 

180 

-1 






1400 

— | 



190 


• eq 

x kO°* 1 4 

;2-Byto X-Koordmato 



1490 

-oprung 

jar »ffff 

;Dummy 

200 

210 

220 


• OQ 

fretop=*34 

mombiz«»38 

chrgot“*73 

{Stringstartadrosse MSB 
;Hoech»te Basicadronuo MSB 
j CHRQET-Rout1ne 


1500 

1510 

1520 



_ 

.eq 



230 

- 

.eq 

chrgot- , *79 

iCHRQOT-Routlne 



1330 

- 

jmp ende 


240 

- 

.eq 

tKtptr»*7a 

jCHRGET-Zeiger 



1540 




250 

- 

.oq 

hbaao"*028ajMS[i Bi 1 dachi rmstar t an 

Betriebaoyutem 

1530 

-|-rootl. 

)o#ehlstext ueborleoen— 

260 

- 

.eq 

igDno-*03O8iVoltor zum Rautinunaufruf 


1560 

-j 



270 

- 

.eq 

blld-«3cO0 

tbi 1 deehl r instar tadrosep 



1370 

-rost 

inx 


280 

- 

.eq 

bltmap"»60i90{ Star tadrnsso Bitmap 



1380 

- 

lda beftab.x 


290 

- 

.eq 

gonol-*a.’o4j Al tor Inhalt von igono 



1390 

- 

Uno rsst 

{bin Trennzeichen 

300 

- 

.oq 

intond-*a7e7jEnde der Intorpreteraehle 

ife 

1600 

- 

inx 


310 

- 

• oq 

1inget"*A96biholt 2-Byto-Inteqer nach 

414/15 

1610 

- 

imp int 1 

maoehoter Befehl 

320 

- 

.eq 

#rmnum»*Ad8aiholt beliebigen numerischen Auadruci 

1620 

“1 



330 

- 

.oq 

cbkco«»*A»#d|au# 1 umma pruofen 



2000 

-!•••• modal 2 i grafii ein 

340 

- 

• oq 

facinM-SBlaaiFAC -> Intogor in A/V 



2O10 

-1 



330 

- 

• oq 

gotadr-*b7f7{FAC -> Integer ln Y/A 

unc 

414/13 

2020 

-liegt graf i kbi ldachirm nach *5c<B0 

360 

- 

• eq 

gotnum«»b7ob jholt Adroooo nach 414/15 

und Byte in» X-Rog. 

2030 

-{und blt- 

map nach *6000 


370 

- 

.eq 

#*ub«*bB50 

1FAC - (A/Y) - FAC 



2040 

schal tot 

in bit-map-modu» um 

300 

- 

.eq 

# mul t* , *ba2B{ FAC - (A/YMFAC 



2P50 

-tund bwgronzt baaic bis *3c«)0 

390 

- 

.eq 

»div*bb 0 f 

1FAC - <A/Y> / FAC 



2060 

-| 



400 

- 

• ®q 

mov»m-*bba2{laodt FAC aus Speicher 



2070 

-han 

lda »*7d 

lort bildochirm und 

410 

- 

.eq 

movm#-*bbd4{1*odt Speicher aun FAC 



2000 

- 

»ta Vic24 

ibitmap feutlegen 

420 

• 

.oq 

Vicl7»*d0111Bit 5 schaltet Blt-Map-Moduu oin/aus 

2090 

- 

id« «*c6 

ivic au# Abschnitt 1 

430 

- 

.oq 

vic24-*d01B{Steuwrt Bild»chirmur t 

and 

Bit-Map-Start 

2100 

- 

sta cia2 

{richten 

440 

- 

.oq 

cia 2 «*dd 00 

{CIA2 PortAi St euert VIC 

-Abschnitt 

21 10 

- 

lda 41)5c 

imsb blldschirmstart 

450 

- 

• oq 

combyt-*e 20 P;Prue»t au» 1 omma und 

^ol t 

1 Byte ln X 

2120 

- 

sta hbaae 

{an betrlebnoystom 

460 

-I 






2130 

- 

ata frotop 

lund »poichor 

470 


Variable 

— 




2140 

- 

ata memuiz 

{begrenzen 

400 

-1 






2150 

- 

lda vlc17 

{bitmapmodu« 

490 

- 

.oq 

mode-402 

1 Modu« 0 -looschen, l-zeichnen 

2160 

- 

Ora 4*20 

lwinschalten 

500 

- 

.oq 

yko-»09 

ly-hoordinato 



2170 

- 

sta vic!7 


510 

- 

.OQ 

ykl-* 0 » 

IKoor dlnatenwor t yl 



2180 

- 

rts 


320 

- 

.oq 

dy-*l 1 

{Abstand yl-y® 



3000 

-«*•*•» modul 3i bitmap loeochen *•** 

330 

- 

.oq 

iy-*19 

{Inlremontwort 



3010 

“I 



340 

- 

.eq 

oy-*la 

; 



3020 

-|lOPBCht 

alle bits ln der bei 

530 

- 

.eq 

a«-*lb 

. 



3030 

-|*6000 beginnenden bit-map 

360 

- 

.eq 

!X"»lC 

. 



3040 

*1 



370 

- 

.eq 

yplusy^*57 

1 kr oiapunktspiegolwer t 



30519 

-gclr 

lda M (bitmap) 

1 msb bltmapstur t 

380 

- 

.eq 

yminy“*59 

! 



3060 

- 

sta heip +1 

lmerken 

390 

- 

.oq 

ypluen^*3b 

1 



3070 

- 

ldy 4*f)(5 

11 sb bltmapstart ist null 

600 

— 

.oq 

ymmx-*5d 

, 



3000 

— 

sty help 


610 

- 

.eq 

help“»»b 

j?-Byto HU#»wert 



3090 

- 

tya 

{nullbytoa 

620 

— 

.eq 

zw.p 'holp+2{ -"- 



3100 

_ 

ldx 0*20 

{dez.32 anzahl bioecke 

630 

- 

.eq 

ct-*93 

S 2-Byte-Zaehl er 



3110 

-cloop 

sta (help),y 

Ibyte loeschen 

640 

- 

• oq 

rad-»Y2 

;kreisr adlua 



3120 

- 

iny 

inaechstos Byte 

630 

- 

.oq 

:tplusii»*5f 

lKreispunk tspiegol wer t 



3130 

- 

bne c 1 oop 


660 

- 

.eq 

nminx"»9b 

5 



3140 

- 

»nc help«l 

1 msb zeigor erhoohen 

670 

— 

• oq 

xplusy=*9<? 

. 



3150 

— 

dex 

Sblockzaehler - 1 

6S0 

- 

.eq 

:uil ny=*a3 

1 



'160 

_ 


690 

- 

• eq 

xkl=*Bb 

1 Koordinate xl 



3170 

- 

rt* 


700 

- 

.eq 

ym-*Bd 

;Kret »mittelpunkt Y 



4000 

-{*••• modul 4s farbgobung 

710 







4010 

-1 



720 


Doppelt genutzte Variable - 



4020 

-{liest aus dem Baslctext 

die 

730 



« 




4030 



740 

- 

• eq 

of-mkl 

;Approximationswort 



4040 

—;hintergrundfarbe (hfl und belegt 

730 

- 

• eq 

d:<=hel p 

{Abstand xl-:i0 



4050 

-iden farbspeicher ab *3c0ö mit 

760 

- 

.eq 

xm"xkl 

{Kreismittelpunkt X 



4060 

-jdiosor farbkombination. 

dabei 

770 

-« 






4070 

-list färb 

e - 16 »zf*hf 

. 

790 

*** 





S46R Ol 

ml - - 

jsr combyt 

;zf in x-register 

800 

-;Er»euort die Interpret 

rschloi #o 


4100 

— 

stx help 

;und merken 

810 

-jum »Inen Teil, per Oie 

leuen 



4110 

- 

j»r combyt 


820 

— 5 Bau ebaf eh 1 o 

prue»t und 

zur 



4120 

- 

*tx help +1 

5 und merken 

830 

Ausfuehrung bringt. Ab 

NIT wird 



4130 



840 

-{diese neue SchloHo oingorichtet, 



4140 

- 

lda help 


850 

ab AUS lann sie abgoschaltet werden. 



4150 

_ 

asl 

{mal 16 

860 

-;Ab START liegt dio eigentliche 


\ 

4160 

- 

asl 


870 

-SInterpretere 

weiterung. 




41715 

- 

asl 


B80 

-1 






4180 

- 

asl 


890 

-1 






4190 

4200 

4210 

“ 

clc 

ade help*l 

Ihf addieren 

910 

“1 






•1 


920 

-mit 

1 da 

•< (Start) 

{lob eigene Routine 



4220 

-col? 

1 du o (bild) 


930 

- 

ata 

i gone 

»ln veitor ochroiBen 



4230 

- 

stx h 0 lp*l 

{menen 

940 

- 

1 da 

•>(*tart) 

; msb 



4240 

- 

ldy 0*00 

11 sb blldschirm ist null 

930 

- 

ata 

igone-l 




4250 

- 

sty help 

(merken 

960 

- 

rts 





4260 

- 

1 du 0*04 

{4 bloocko fuellen 

970 

“1 





4270 

4280 

4290 

-hloop 

»ta (help),y 

{färbe ointragon 
{naoehste« Byte 

990 







. 

iny 

1000 

-au» 

1 da 

0 < (goncl) 

{voktor au# 



4300 

- 

inc holp»l 

{naechster block 

1010 

— 

ata 

l gone 

{Normal wert 



4310 

— 

de« 


1020 

- 

lda 

#>(gonel) 

1 juruocIntel len 



4320 

- 

bne hloop 


1030 

- 

ata 

igono+l 




4330 

- 

rt» 


1040 

- 

rt* 





5000 

-»•••* modul 3« textmodut. 

ein •--* 

1030 

-1 






5010 

-1 



1060 

-1-Erweiterte 

nterprotorschiel#e— 



3020 

-{sorgt dafuor, daus der 

ormalo 

1070 

-1 






3030 

-Itextmodi 

. aktiv wird, grafil 

1090 

-Start j«r 

chrgot 

{Zeichen holen 



3040 

-ibluitit abor erhalten. 


1090 

- 

emp 

0*60 

1 Buchstabo" 



3050 

-1 



1 100 

- 

bcs 

endo 

{Daoic-Code 



3060 

-nor m 

lda «*15 

1 normal er blldschirm 

1 1 10 

- 

emp 

4*41 

iBuchstabo A 9 



507(5 

- 

sta vic24 


1120 

— 

bcc 

ende 

; Sonder oi chon 



5000 

— 

lda »*< 7 

ivic auf Abschnitt 0 

1130 

- 

ata 

Ai kU 

»Akku sichern 



5090 

- 

sta cia 2 


1140 

- 

ldx 

**m 




3100 

- 

lda n*04 

imab to»:tbi ldachirm 

1130 

- 

»t« 

bofnr 

l Bo# eii 1 »nr . au# 0 



5110 

- 

**ta hbaoo 

1 an betrlobesystom 

1I60 

-int 1 

ld V 

«•00 




5120 

- 

lda viel ? 

1 Textmodus 

1170 

- 

mc 

hofnr 

! Bef oh 1«nr. * l 



5130 

- 

and 4*df 

leinschalten 

1180 

- 

1 da 

bo» tab, - 

{Zeichen au» Befehlstabol 1o 

5140 

- 

sta vic!7 


1190 

- 

bne 

lnt 2 

{kein Trennzeichen 



5130 

- 

rtn 


1200 

-1 






6000 

-!•«»- moc 

ul 6spunkt netcon/loenchen •••• 

1210 


1 da 

•kku 

»Zurueck in» 



6010 

-1 



1220 

-endo 

J»r 

chrgot 

{normale Basic 



6020 

-{setzt ir 

der bitmap ab *6000 

1230 

- 

J«ß 

lntond 

{ spr lrigen 



6030 

-leinen punkt odor loescht ihn 

1240 

■1 






6040 

-Ijw nach 

modu». 1 .oinsprung holt 

1260 

“I 






6060 

-{ 2 .oinsprung setzt geapeleherto 

1270 

-int 2 

emp 

(txtptr), 

{Vergleich mit Daoictext 


61570 

-1 Parameter voraus. 


1280 

“ 

bno 

re» t 

{ungleich 



6080 




1300 

_ 

iny 

inx 


:Befehltab.-Index*1 



6100 




1310 

- 

1 da 

bo» t ab,n 

{naechstos Zeichen 



6110 

-punl tl 

jsr gotrium 

ix und y holen 

1320 

- 

bne 

int 2 

Ipruefen 



6120 

- 

stx yko 

iy merken, x ln «ko 

133C 

- 

clc 





6130 

- 

jsr combyt 

{modus holen 

1340 

- 

tya 


{Bofohlsindex um 



6140 

- 

stx modo 

{und merken 

1330 

- 

ade 

txtptr 

{Befehlsl»enge 



6130 

■1 



1360 

- 

ata 

tutptr 

{erhoohen 



6160 

-i- parammter pruefen 

1370 

- 

bcc 

1 ab 1 

(Uobertrag9 



6170 

-1 



1380 

- 

lnc 

tu tptr * 1 

tm»h erhoohen 



6180 

-punlt 2 

lda yko 

iy pruofen 

1390 

-1 ab 1 

1 da 

befnr 

ißefehlsn. . 



6190 

- 

emp l**cT 

igroesser als 2009 

1400 

- 

asl 


tvordoppoln 



6200 

- 

bco noplot 

{wenn ja, kein punkt 

1410 

- 

tau 


«und als Inden in 



6210 

- 

ldy xko*l 

;mub x pruefon 

1420 

_ 

lda 

sprtab, ii 

lSprungtabeile 



6220 

- 

beq ok 

{kleiner als 235 

1430 

- 

sta 

sprung )1 

Jlab Sprung 



6230 

“ 

dey 

{jetzt null" 

1440 

_ 

lda 

sprtabl,* 

;msb lesen 



6240 

" 

bne noplot 

{msb x l.kein punkt 
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6230 - 


lda k ko 

»lab x prueren 

7810 - 

aty ly 

liy ist -1 

6260 - 


cmp H*40 

»groescer als lab von 320° 

7020 - 

jmp drawü>5 

6270 - 


bcu noplot 

»dann kein punkt 

7830 -draw04 

abc yko 

»dy-yl-yO 

6200 




7840 - 

ata dy 


6290 -j- 

ber 

•chnen ayte und bit - 

7830 -* 



6300 -» 




7860 -draw05 

lda dx +1 

1 dx <dy? 

6-310 -ok 


lda yko 


7870 - 

bno drawG? 

»nein.aprung 

6320 - 


tax 

»y in akku.und u-regiater 

7880 - 

lda dx 

»1 ab pruefen 

6330 - 


lor 

»berechnen y/8 

7890 - 

cmp dy 


6340 - 


1 er 

7900 - 

bca drawi"7 

»dx>«dy,aprung 

6330 - 


Ur 


7910 - 

ldx dy 

(Achsen tauschen 

6360 - 


tay 

»Im y-regiator merken 

7920 - 

ata dy 

»dx nach dy 

6370 - 


clc 

7930 - 

atx dx 

ldy nach dx 

6300 - 


txa 

»nochmal y 

7940 - 

lda Ix 

»ay-ix 

6390 - 


and 4*07 

» <y and 7) 

7930 - 

ata ay 


6400 - 


ade maltab,y 

»+320*y/8 lab 

796« - 

lda ly 

»ax-iy 

6410 - 


sta :»up 

7970 - 

ata ax 


6420 - 


lda xko 


7980 - 

lny 


6430 - 


and **fB 

»lab x and 248 

7990 - 

aty ix 

1 1 K»0 

6440 - 


ade zwup 


8000 - 

«t» ly 

»1 y -0 

6450 - 


ata :-*p 

»merken lab 

8010 -| 



6460 - 


lda maltabl.y 

»320»y/0 mab 

8020 -draw07 

lda dx+l 

»of-d «/2 

6470 - 


ade x k o * 1 

0030 - 

lar 


6400 - 


ata zwop +1 

»mab merken 

8040 - 

ata of+l 

»lat also 0 

6490 - 


lda xko 

»bitpoaltion berechnen 

8030 - 

lda dx 


6300 - 


and 4*07 


006O - 

ror 


6310 - 


tay 


8070 - 

ata of 


6320 - 


lda hochtab,y 


8000 - 

Jmp plotit 

» 1 .punkt setzen 

6330 




0090 -« 



6340 -| — 

modo pruofon - 


8100 -|- approulmation - 


6330 -| 




0110 -| 



6360 - 


Idy 4*oo 


Bl 20 -drwlop 

lda lx 

(lat ix —l? 

6570 - 


1 du mode 


0130 - 

bmi drawflB 

IJa.aprung 

650O - 


beq loeach 


0140 - 

clc 

(«»•Hfl+lK 

6590 




8130 - 

ade xko 


6600 -|- 

punkt setzen - 


0160 - 

ata xko 


6610 -| 




8170 - 

lda xko+l 


6620 - 


ora <zwsp>,y 


0100 - 

ade 4*00 


6630 - 


bn» «toro 

»springt immer 

8190 - 

ata xko+l 


6640 -» 




0200 - 

Jmp drawll 


6650 - 



8210 -drawÖB 


»X0-X0-IK 

6660 -» 




B220 - 

lda xko 

6670 -loeach 

cor 4*ff 

1 loeschen 

8230 - 

abc »901 


6680 - 


and (zwap> ,y 

8240 - 

ata xko 


6690 -4toro 

«ta (zwap) ,y 

(eintragen in bitmap 

8230 - 

lda xko+l 


6700 -j 


8260 - 

abc 4*80 


6710 -t- 

ruecksprung - 


8270 - 

sta xko+l 


6720 -« 




8200 -drawll 

clc 

»y 0 -y 0 *ax 

6730 -noplot 

rt» 


8290 - 

lda yko 

7000 -»••• 

modul 7: Union zienen *#•* 

B300 - 

ade an 


7010 




8310 - 

ata yko 


7020 -»zeichnet oder loescht e 

ne Urne 

B320 - 

clc 

;of «of»dy 

7030 -»xwischon den punkten (xO.yÖ) und 

B330 - 

lda of 


7040 -| (ul 

yii 

. einaprung drwlin holt 

B340 - 

ade dy 


7030 -;»us 

basrcte.-.t die Parameter und 

8350 - 

ata of 


7060 -»prueft 

ai«*. ciniprung aotpar er- 

ß0 - 

lda of+l 


7070 -»wartet 

die Parameter in 

den 

8370 - 

ade 4*00 


7080 -»richtigen speichersteil 

n xko, 

EI3B0 - 

ata of+l 


7090 -»yko 

«kl 

,ykl,modo. ueborgabe an 

8390 - 

mc ct 

»ct-ct +1 

7100 -»modul 

mlttola xko,yko 

mode. 

8460 - 

bne drawi?6 


7110 -j 




8410 - 

inc ct +1 


7120 -i11 


rta 

»suruock bei fehler 

8420 -drawiüö 

lda of+l 

»of<-dn7 

7130 -» 
7140 -»- 

ein 

Sprung 1 - 

S46R Of 

8430 - 

I 0440 - 

cmp du +1 
bcc plotit 
bne drawö9 

»ja,zeichnen 
»groosaer.Sprung 

7130 -» 

„kt*; 

7160 -drwlln 

jar gcoorD 

»koordinaten 1 .punkt holen 

8460 - 

lda dx 


7170 - 


bca ill 

»falscher wert 

8470 - 

cmp of 


7180 - 


atu yko 

»yö merken 

8480 - 

bca plotit 

;ja.zoichnen 

7190 - 


sta ct +1 

»msb x 0 merken 

B490 -draw09 

aec 

»of B of-dx 

7*200 - 


aty ct 

»und lab ebenfalls 

B300 - 

lda of 


7210 - 


jar geoord 

;koordinaten 2 .punkt holon 

8510 - 

abc dx 


7220 - 


bca ill 

»falscher wort 

8520 - 

ata of 


7230 - 


stx ykl 

jyl morken 

8330 - 

lda of+l 


7240 - 


aty xkl 

»lab xl merken 

8540 - 

sbc dv +1 


7230 - 


ldy ct 

»lab x 0 uroladen 

8330 - 

ata of+l 


7260 - 


aty xko 


8560 - 

lda ay 

»ist ay—19 

7270 - 


sta xkl + l 

»msb xl merken 

8370 - 

bmi drawl0 

Ija.aprung 

7280 - 


lda ct +1 

»msb x 0 umladen 

8580 - 

clc 

»x 0 «x 0 +ay 

7290 - 


ata xko+l 


8590 - 

ade xko 

7300 - 


jar combyt 

»modua holen 

8600 - 

ata xko 


7310 - 


atu mode 

jund merken 

8610 - 

lda xko+l 


732» -( 

7330 -»- 

7340 -1 

ein 



0620 - 
8630 - 
8640 - 

ade 4*00 
ata xko+l 
jmp drawl2 





7330 -aotpar 

ldy 4*01 


0650 -drawlfl 

sec 

jx 0 «x 0 -ay 

7360 - 


aty ix 

»Inkrement» und 

8660 - 

lda >!ko 


7370 - 


aty »y 

»zaohlor Initialisieren 

0670 - 

sbc u* 0 i 


7300 - 


aty ct 


B680 - 

ata xko 


7390 - 


doy 


8690 - 

lda xko+l 


7400 - 


aty ct +1 


8700 - 

abc 4*00 


7410 - 


aty ax 


0710 - 

ata xko+l 


7420 - 


•ty ay 


0720 -dra~12 

clc 

»yS-yÖ+iy 

7430 - 


dey 


0730 - 

lda yko 


7440 -| 



8740 - 

ade ly 


7460 -J 




8760 -j 



7470 -bogi 


lda ukl+l. 

»lat «1 >-n0? 

8770 -zoichnen.schlai*enend#- 

7480 - 


cmp xko+l 

»mab 

8700 -» 



7490 - 


bcc drawiiU 

»nein,uprung 

0790 -plottt 

Jar ok 

»einaprung 3 in modul 6 

7300 - 


bno draw 02 

»x1>X0,Sprung 

8800 - 

lda ct +1 

»ct<-dx? 

7310 - 


lda xkl 

»beide gleich,lab pruefen 

ec-10 - 

cmp du +1 


7320 - 


cmp xko 

8820 - 

bcc nexpnt 

»ct<dx.aprung 

7330 - 


bca draw 02 

1 ja,sprung 

B83P - 

lda du 


7340 -drawOl 

sec 

»du-x 0 -xl 

8840 - 

cmp ct 


7330 - 


lda xko 


B830 - 

bco nexpnt 

»Ct<-dx.Sprung 

7360 - 


abc xkl 


0060 - 

rta 

»llnio ist fertig 

7370 - 


ata dx 


8870 -« 



7380 - 


lda xko+l 


8800 -nexpnt 

jmp drwlop 

»naechater punkt 

7390 - 


abc xkl+l 


8090 -» 



7600 - 


ata dx +1 


8900 -|- parameter holen — 

" ' 

7610 - 


aty ik 

»ix lat -l 

0910 -« 



7620 - 


Jmp draw«3 

8920 -geoord 

jar chkcom 

»auf komma pruefen 

7630 -draw02 

BBC 

»dx«xl-u 0 

0930 - 

Jar gotnum 

»u und y lesen 

7640 - 


lda xkl 


8940 - 

cpx 4*c0 

»ist y>200*7 

7630 - 


abc xko 


8930 - 

bca finlsh 

»y>- 200 ,aprung 

7660 - 


ata dx 


8960 - 

lda uko +1 

liet x >320° 

7670 - 


lda xkl+l 


8970 - 

cmp 4*0 1 

»mab von x 

7680 - 


abc xko+I 


8980 - 

bcc flnl* 

»mab lat <1 

7690 - 


ata dx +1 


8990 - 

bn» finlsh 

imab lat >1 

7700 -| 




9000 - • 

ldy xko 

»1 ab von x 

7710 -|- 

berechnen von dy — 


9010 - 

cpy 4*40 

»lab von 320 

7720 -» 




9020 -fint sh 

rta 

»wenn carry-l.nach rueckkohr auaatlog bei 111 

7730 -draw03 

lda ykl 

»lat yl>-y09 




7740 - 


cmp yko 





7730 - 
7760 -| 


bca draw04 

» ja.aprung 




7770 - 
7780 - 


«oc 

lda yko 

»tonst dy^yO-yl 
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9030 -finit 

ldy xko 




11280 -end 

r ta 

Skreis fertig 

9O40 - 

rta 

; y B xfco,a*»:iko+l 



11290-achlelfe 

Jmp kreislp 


1Ö000-;»»** modul 9:kreise zeic 

hnen 



11300-5 



10010-5 





11310-;- unte 

rprogramm zeichnen- 

10020-1 zeichnet 

oder locscht einen krem 



11320-5 



10030-; um den mittelpunkt xm.ym und mit 



11330-sberechnet die konkreten punkte 

10040-; dom radius r. alle umgaben von 



11340—s durch «ymmotriun, pruoft ob die 

lC»050-:fl bin maximal 32767 (7) 

erlaubt. 



11350-5 sich ergebenden werte fuer x und 

10060 -sbeim ersten einoprungapunkt wor- 



11 360-|y kloinor alu 0 sind und ob y 

10070-;den die 

Parameter gelesen und 



1!370-igroosuor 

als 233. in dem fall 

10080 -jgeprueft 

. beim zweiten omaprung 



11380-|wird nicht gezeichnet. 

alle 

10090 -5 erwartet 

Programm paramotor ln 



11390-janderen 

»ruef ungen gnac 

hohen im 

10100-5 den richtigen speicherstel1en 



11400-s modul 6. 



10110 -;um,ym,r 

und modo, uobergabo an 



11410-5 



10120 -imodul 6 

mittel« xko,yko 

und mode. 



11420-Clrclc 

clc 

(berechne «m+- 

10130-j 




11430- 

lda um 


10140-err 

rts 

1 rueckoprung üoi fohloingabe 



11440- 

ade xko 


10130-1 





11430- 

ata xplusx 


10160 - 1 — paramotor hol on .pruofon, abl egen —— 



11460- 

lda xm +1 


10170-1 





11470- 

ade xko +1 


10180 -hole 

Jsr chkcom 

Ikomma pruofon 



11480- 

ata xpluax +1 


10190- 

jar frmnum 

;xm loson 



11490- 

uoc 

5 berechne xm-x 

10200- 

Jar gotedr 




11300- 

lda xm 


10210- 

1 da xko +1 

imsb pruefen 



11310- 

obe xko 


10220- 

bmi orr 

1 zu gross,Sprung 



11520- 

st« xminx 


10230- 

sta xm +1 

5 mork on 



11530- 

lda xm +1 


10240- 

lda Kko 

1 lab 



11340- 

•bc xko +1 


10230- 

ata um 

1 merken 



11530- 

ata xminx +1 


10260-1 





11360- 

clc 

5 berechne iim+y 

1O270- 

Jer chkcom 

5 naecheto« 1 cimma 



11370- 

lda xm 


10280- 

Jar frmnum 

1 ym losen 



113B0- 

ade help 


10290- 

j«r gotadr 




11390- 

ata xpluay 


103O0- 

lda xko +1 

5 msb pruofon 



11600- 

lda xm +1 


10310- 

bmi orr 

5 fehleingabc 



11610- 

ade holp +1 


10320- 

sta ym +1 

5 merken 



11620- 

«ta xplusy +1 


10330- 

lda xko 

; lab 



11630- 

sec 

5berechne x*-y 

10340- 

ata ym 

5 merken 



11640- 

lda xm 


10350-1 





11630- 

sbc help 


10360- 

Jsr chkcom 

5 komma testen 



11660- 

sta K(M ny 


10370- 

jar frmnum 

1 radlua lesen 



11670- 

lda xm+1 


10300- 

Jar getadr 




11680- 

«bc holp +1 


10390- 

lda xko +1 

5msb pruofon 



11690- 

ata xminy +1 


10400- 

bmi err 

|2U groaa,Sprung 



11700- 

clc 

1 berechne ym+y 

10410- 

ata rad +1 

;merken 



11710- 

lda ym 


10420- 

lda xko 

;lsb 



11720- 

ade help 


10430- 

ata rad 

5 merken 



11730- 

ata ypluay 


10440-5 





11740- 

lda ym +1 


10430- 


5 modus holon 



11750- 

ade holp +1 


10460- 


5und morken 



11760- 

ata ypluay *1 


10470—t 





11770- 

sec 

5 berechne ym-y 

10400-;- anfangowerlo setzen 

— 



11780- 

lda ym 


10490-; 





11790- 

abc help 


10500-kreial 

lda 4*00 

;variable x «0 



11000- 

ata yminy 


10510- 

sta xko 



11810- 

lda ym +1 


10520- 

ata xko +1 




11820- 

abc help+I 


10530- 

lda rad 

{variable y**r 



11830- 

sta yminy +1 


10540- 

ata holp 



11840- 

clc 

5 berechne ym+x 

10550- 

lda rad + 1 




11850- 

lda ym 


10560- 

ata holp+l 




11860- 

ade xko 


10370- 

sec 

:variable d berechnen! 



11870- 

sta yplusx 


10580- 

lda rad 

5 d=r-1 



11880- 

lda ym +1 


10590- 

abc 4*01 




11890- 

ade xko +1 


10610- 

lda rad +1 


S46R 

C 

11910- 


5berechne ym-x 

10620- 

«bc «*O 0 




11920- 

1 da ym 


10630- 

sta ct+l 




11930- 

abc xko 


10640-; 





11940- 

sta ymin« 


10650-: hauotachleifo 




11950- 

lda ym +1 


10660-j 





11960- 

sbc xko +1 


10670-kroiolp 

lda ct+l 

jlst d<0? 



11970- 

sta ymlnn +1 


10680- 

bpi kret «2 

;nein,sprung 



11980- 

lda xko 

5 x retten 

10690- 


5 Subtraktion 



11990- 

pha 


10700- 

lda help 

iy-y-1 



12000- 

lda xko +1 


10710- 

sbc 4*01 




12010- 

pha 


10720- 

ata help 




12020- 

lda xplusx 

; 1 .punkt 

10730- 

lda help+l 




12030- 

sta xko 


1P740- 

abc 4*00 




12040- 

lda Xplusx +1 


10750- 

sta help+l 




12050- 

sta xko +1 


10760- 

clc 

;additionen 



12060- 

lda ypluay 


10770- 

lda ct 

Id-d+y-y 



12070- 

sta yka 


10780- 

ade help 




12080- 

ldy yplusy +1 


10790- 

ata ct 




12090- 

jsr setze 


10000- 

lda ct+l 




12100- 

lda yminy 

5 2 .punkt 

10010- 

ade heip +1 




12110- 

sta yko 


10820- 

ata ct+l 




12120- 

ldy yminy +1 


10030- 

clc 




12130- 

jar setze 


10840- 

lda ct 




12140- 

lda xminx 

5 3.punkt 

10B50- 

ade help 




12130- 

sta xko 


10G60- 

ata ct 




12160- 

lda xmlnx +1 


10870- 

lda ct+l 




12170- 

ldy yminy +1 


10880- 

ade holp +1 




12180- 

jsr setze 


10B9CI- 

«ta ct+l 




12190- 

lda ypluay 

;4.punlt 

10900-; 





12200- 

sta yko 


10910-kroi*2 

jar circlo 

5up rum pruofon der werte und 

zeichnen 


12210- 

ldy ypluay +1 


10920-; 

10930- 

aec 

lda ct 
abc xko 

1 Subtraktionen 



12220- 

12230- 

12240- 

12230- 

jar aotzo 
lda xpluay 
sta xko 
lda xpluoy +1 

53.punkt 

10950- 

id-d t « l 




10960- 

ata ct 




12260- 

sta xko +1 


10970- 

lda ct+l 




12270- 

lda ypluax 


IO980- 

abc xko +1 




12200- 

«ta yko 


10990- 

«ta ct+l 




12290- 

ldy ypluax +1 


11000- 

aec 




1230O- 

Jsr aotzo 


11010- 

lda ct 




12310- 

lda ymlnn 

56 .punkt 

11020- 

•bc xko 




12320- 

«ta yko 


11030- 

ata ct 




12330- 

ldy yminx +1 


11040- 

lda ct+l 




12340- 

Jar setze 


11030- 

abc xko +1 




12330- 

lda xminy 

5 7.punkt 

11060- 

ata ct+l 




12360- 

st- »ko 


11070- 

aec 




12370- 

lda xminy +1 


l1080- 

lda ct 




12300- 

sta »ko+l 


11090- 

abc 4*01 




12390- 

ldy yminx +1 


11100- 

sta ct 




12400- 

jur netze 


11110- 

lda ct+l 




12410- 

lda yplusx 

58 .punkt 

11120- 

abc 4*00 




12420- 

sta yko 


11130- 

«ta ct+l 




12430- 

ldy yplu«x+l 


11140- 

clc 

»addition x«x+l 



12440- 

jar setze 


11130- 

lda xko 




12430- 

pla 

l xk.o zurueckholon 

11160- 

ade 4*01 




12460- 

sta xko +1 


11170- 

ata xko 




12470- 

pla 


11180- 

lda xko +1 




12480- 

ata xko 


11190- 

ade 4*00 




12490- 

rta 

Iturueck zur hauptachleife 

11200- 

sta xko+l 




12300-; 



11210-5 





12310-5-pruofon und setzen 

— 

11220- 

emp holp+1 

jiat x<oy 



12520-1 



11230- 

bcc kreialp 

5 Ja,sprung 



12530-setze 

bno finl 

5 y>233,kein punkt 

11240- 

öne end 

ix>y, kreis fertig 



12540- 

lda xko+l 

5 lat x negativ 9 

11230- 

lda help 




12550- 

bmi fml 

Ija.koln punkt 

11260- 

emp xko 




12360- 

Jsr punkt2 

5 zum modul 6 :punkt aetzen 

11270- 

bca achlolfo 

;ja,sprung 



12370—fini 

rta 

{weiter in circle 
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13000-1 **•* 

Modul 12s Tabellen 

134B0- 

by 0 

13O10- ; 


13490- 

.tx "ctr ” 

13020-j - Konstanten - 

13500- 

.by Ifl 

13030-j 


13510- 

.by 0,0 

13040—#1199 

.by SB8,»47,*00,SGK) ,»00!199 im MFLPT-For mat 

13520- 

.by 0 

13050-f1319 

.by »89,Sit,»80,*00,»00;319 MFLPT-For mat 

13530- 

by 0,0 

13060-1- 199 

.by »c? »199 alt. 1-Byte-Integor 

13540- 

.by 0,0 

13070-1 


13550-1 


13080-1 - Var ublii - 

13560-I— Platz 

#uer weiteru Bel oh 1 » — 

13090-t 


13370-1 


13100-..U 

.by »00,*00,»00,*00,*00iXU im MFLPT-Format 

13500- 

.By 0,0,0,19,0,0,0,0,0,0 

13110-yu 

.by *0ti, *00, *00, *00, »00 iVU un MFLPT-For mat 

13590- 

.by 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

13120-xo 

.by *00,*Oul, »00,*00,*001 XD im MFLPT—Format 

I36O0- 

.by 0 , 0 ,y, 0 , 0 , 0 , 0 , 0 , 0,0 

13130-ya 

.by »0O,»00,»DO,*00,»00;VO im MFLPT-Format 

13610- 

.by 0 , 0 ,O. 0 , 0 , 0 , 0 , 0 , 0,0 

13140-b»#nr 

.by *00 |Befehl snummer 

13620- 

.by 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

13130-ekku 

.hy »00 | Zwischenspeicher #uar AWku-Inhalt 

13630-1 

13160-t 


13640-1 - Multi 

plikationetabellen - 

13180-1 


13660-m-lt-B 

.By »00,»4O,*B0,*c0|LSB 

13190-sprtat- 

.by *«7 

13670- 

.by *00,*40,*00,*c0 

13200-uprt abl .by *a7 

13680- 

• by *i3t!l,»4ö,*Oi!l,»c0 

13210- 

.wö'au* 

l3690- 

.by •0O,S4(',*B0,*c0 

13220- 

.wo han 

13700- 

.by »01i,*40,*Q0,*cPi 

13230- 

.wo oclr 

13710- 

.by *00,*40,»Sil,»c0 

1324ffl- 

•wo color 

i "vm«- 


13230- 

.wo norm 

13730-1 


13260- 

.wo punltl 

l3740-maltab1 

.by *60,«61,*62,»63t MBB 

13270- 

.wo drwliri 

13750- 

•by *65,*66,*67,»60 

132Q0- 

.wo hol» 

13760- 

.by *6a,*6b,»6c,*6d 

13290- 

.hy 0,0 

13770- 

.by *6f.»70,*71,*72 

13300- 

.by 0,0 

13780- 

.by *74,*75,*76.»77 

13310- 


13790- 

.By »?9,*7a,*7b,*7c 

13320-1 


13800- 

.by »7o 

13340-1 


13810-1 

13820-hochtab 

•by *80,»40,*20,»10;Zweierpotenren 

13350-bo# t*ib .t>- juvi" 

13030- 

.by *(JQ,*04 ,»02,*01 

13360- 

.by 0 

13840-1 

13370- 

. tx "han" 

13850-test 


13380- 

.by 0 

13860-i 


13390- 

.tx 11 1 oe" 



134H0- 

.by 0 



13410- 

.tx "4ar" 

ready. 


13420- 

.b» 0 


13430- 

.tx "ho#" 



13440- 

13450- 

.by O 
.tx "pkt" 
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t3460- 

13470- 

.by n 
• tu "1 in" 

(Schluß) 



Name : hires4.obj cOOO c505 


cOOO 

: a9 

16 

8d 

08 

03 

a9 

cO 

8d 

’o4 

c008 

: 09 

03 

60 

a9 

e4 

8d 

08 

03 

cl 

cOlO 

: a9 

a7 

8d 

09 

03 

60 

20 

73 

ac 

c 018 

: 00 

c9 

60 

bO 

19 

c9 

41 

90 

31 

c020 

: 15 

8d 

4a 

c4 

a2 

00 

8e 

49 

le 

c028 
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e5 

53 

c378 

: fb 

85 

a3 

a5 

8c 
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10 REM ******************************** 

<060> 

2040 

POKE 52,92 : REM BASICSPEICHER BE 


20 REM * * 

<069> 


GRENZEN 

<070> 

30 REM * HIRES4. BAS * 

<029> 

2050 

POKE 56,92 

< 104 > 

40 REM * BASICVERSION EINES GRAFIK- * 

<004> 

2060 

POKE 53265,PEEK(53265) OR 32:REM BITM 


50 REM * PROGRAMMES FUER DEN C64 * 

<051 > 


APMODUS EINSCHALTEN 

<055> 

60 REM * HEIMO PONNATH HAMBURG * 

< 104> 

2070 

RETURN 

<096> 

70 REM * * 

< 119> 

3000 

REM - MODUL 3: BITMAP LOESCHEN - 

<015> 

B0 REM ******************************** 

<130> 

3010 

BA=24576 : REM BITMAPSTARTADRESSE 

<105> 

90 REM 

< 152> 

3020 

FOR I=BA TO BA+7999 : REM DIE LOESCHS 


100 REM —--HAUPTPROGRAMM- 

<242> 


CHLEIFE 

< 172> 

110 PRINT CHR*(147> 

< 139> 

3030 

:POKE 1,0 

< 181 > 

120 PR INT .-PRINT: PR INT "DIESES PROGRAMM TEST 


3040 

NEXT I 

<074> 

ET ALLE MQDULE":PRINT"VON HIRES4.BAS" 

<026> 

3050 

RETURN 

<058> 

130 ZF=5:HF=0:REM ZEICHEN- UND HINTERGRUND 


4000 

REM - MODUL 4: FARBGEBUNG - 

<060> 

FARBE 

<176> 

4010 

BS=23552 : REM BILDSCHIRMSTARTADRESSE 

<118> 

140 GOSUB 2000.-REM GRAFIK EINSCHALTEN 

<012> 

4020 

F=16*ZF+HF:REM BERECHNUNG DES FARBCOD 


150 GOSUB 3000:REM BITMAP LOESCHEN 

< 166> 


ES 

<182> 

160 GOSUB 4000:REM FARBGEBUNG 

<231 > 

4030 

FOR I=BS TO BS+999 : REM DIE FARBSCHL 


170 L=0:REM LOESCHMARKE AUF PUNKT SETZEN S 
TELLEN 

<250> 

40405OKE I,F 

<190> 

<052> 

180 FOR X=0 TO 319 

<018> 

4050 

NEXT I 

<068> 

190 :Y=50*SIN(X/20)+100 

< 153> 

4060 

RETURN 

<052> 

200 :GOSUB 6000:REM PUNKTE SETZEN 

<014> 

5000 

REM - MODUL 5: TEXTMODUS EIN - 

<055> 

210 NEXT X 

< 158> 

5010 

POKE 53272,21 : REM ALTEN INHALT REST 


220 L=1:REM LOESCHMARKE AUF PUNKT LOESCHEN 



AURIEREN 

<050> 

STELLEN 

<089> 

5020 

POKE 56576,199: REM VIC WIEDER AUF AB 


230 FOR X=100 TO 200 

<108> 


SCHNITT 0 

< 179> 

240 :Y=50*SIN(X/20)+100 

<203> 

5030 

POKE 648,4 :REM ALTEN BILDSCHIRM AN B 


250 :GOSUB 6000:REM PUNKTE LOESCHEN 

< 113> 


ETRIEBSSYSTEM MELDEN 

<09S> 

260 NEXT X 

<210> 

5040 

POKE 53265,PEEK(53265) AND 223:REM TE 


270 GOSUB 5000:REM TEXTMODUS EINSCHALTEN 

<230> 


XTMODUS EINSCHALTEN 

<029> 

280 PRINT:PRINT"DIE MODULE 2 BIS 6 SIND OK 


5050 

RETURN 

<026> 

" 

<1B7> 

6000 

REM - MODUL 6:PUNKT SETZEN/LOESCHEN 

<006> 

290 FOR 1=0 TO 1000:NEXT I 

<216> 

6010 

IF X<0 OR X>319 OR Y<0 OR Y>199 THEN 


300 GOSUB 2000:REM GRAFIK WIEDER EINSCHALT 



6060 

<21B> 

EN 

< 191 > 

6020 

BY=(X AND 504)+40*(Y AND 248)+(Y AND 


310 X1 = 160:Y1 = 100:R7.=90:L=0 

< 180> 


7) 

<215> 

320 FOR A=0 TO 6.28 STEP .05 

< 187> 

6030 

BI=7 - (X AND 7) 

<250> 

330 : X2=R7.*COS(A > +160 

<230> 

6040 

IF L=1 THEN POKE BY+BA,PEEK(BY+BA) AN 


340 :Y2=R7.*SIN(A>+100 

<247> 


D NOT (2tBI):GOTO 6060 

<226> 

350 :GOSUB 7000:REM LINIEN ZEICHNEN 

< 146> 

6050 

POKE BY+BA,PEEK(BY+BA) OR <2tBI> 

< 170> 

360 NEXT A 

<126> 

6060 

RETURN 

<020> 

370 GOSUB 5000:REM TEXTMODUS EINSCHALTEN 

<074> 

7000 

REM - MODUL 7: LINIEN ZEICHNEN/LOESCH 


380 PRINT:PRINT"AUCH DAS MODUL 7 ARBEITET" 

< 194 > 


EN - 

< 115> 

390 FOR 1=0 TO 1000:NEXT I 

<060> 

7010 

X7.=X1:Y7.=Y1:REM ALLES IN INTEGERS 

<242> 

400 GOSUB 2000:REM GRAFIK EINSCHALTEN 

<01B> 

7020 

DX7.=ABS(X2—XI) :REM BERECHNUNG DER DIF 


410 XM=160:YM=100:R=95:L=0 

<137> 


FERENZEN 

<115> 

420 GOSUB 8000:REM KREIS ZEICHNEN 

<028> 

7030 

DY7.=ABS(Y2-Y1> 

<093> 

430 FOR 1=0 TO 1000:NEXT I 

<100> 

7040 

S17.=SGN(X2-X1) :REM BESTIMMUNG DER OKT 


440 GOSUB 5000:REM TEXTMODUS 

< 183 > 


ANTEN 

< 12B> 

450 PRINT:PRINT"AUCH DAS MODUL 8 FUNKTIONI 


7050 

S27.=SGN(Y2-Y1) 

<244> 

ERT. " 

<002> 

7060 

IF DX7.<DY7. THEN D7.=DX7.: DX7.=DY7.: DY7.=D7. 


460 POKE 52,160:POKE 56,160:REM BASICZEIGE 



:TX=1:GOTO 7080 

<235> 

R ZURUECKSTELLEN 

<207> 

7070 

T7.=0 : REM UMDREHEN WENN DX < DY UND 


470 CLR 

<074> 


MARKE SETZEN 

<092> 

480 END 

<228> 

7080 

D7.=2*DY7. - DX7..-REM STARTWERT D(l> ERM 


2000 REM - MODUL 2:GRAFIK EINSCHALTEN - 

<089> 


ITTELN 

< 116> 

2010 POKE 56576,198 : REM ABSCHNITT 1 EINS 


7090 

I17.=2*DY7. : REM INKREMENTE BERECHNEN 

<204> 

TELLEN 

<000> 

7100 

I27.=2*DX7. 

< 186> 

2020 POKE 53272,125 : REM BILDSCHIRM UND B 


7110 

FOR 1 = 1 TO DX7. : REM HAUPTSCHLEIFE 

<134> 

ITMAPSTART FESTLEGEN 

< 158 > 

7120 

:X=X7.:Y=Y7.: GOSUB 6000: REM PUNKT ZEICH 


2030 POKE 648,92 : REM BILDSCHIRM AN BE 



NEN 

< 147> 

TRIEBSSYSTEM MELDEN 

<017> 

7130 

:IF D7.<0 THEN GOTO 7170 

<216> 
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7140 

: IF T7.=l THEN 

XX=X7.+S1X:G0T0 7160 

< 116> 

8080 

RETURN 

<008> 

7150 

: Y7.=Y7.+S27. 


<167> 

8100 

REM - UP B KREISPUNKTE ZEICHNEN - 

<088> 

7160 

:D7.=D7.—127. 


< 177> 

8110 

X=XM+XX: Y=YM+Y7.: GOSUB 6000 

< 162> 

7170 

: IF T7.= l THEN 

YX=YX+S2X:G0T0 7190 

<104> 

8120 

X=XM-X7.:Y=YM+Y7.:GOSUB 6000 

<236> 

7180 

: X7.=X7.+917 


<123> 

8130 

X=XM+X7.: Y=YM-Y7.: GOSUB 6000 

<246> 

7190 

:D7.=D7.+ I17. 


<204> 

8140 

X=XM—X7.: Y=YM-Y7.: GOSUB 6000 

<064> 

7200 

NEXT I 


<070> 

8150 

X=XM+YX:Y=YM+XX: GOSUB 6000 

<202> 

7210 

RETURN 


< 156> 

8160 

X=XM-Y7..-Y=YM+XX: GOSUB 6000 

<020> 

8000 

REM - MODUL 8: 

KREIS ZEICHNEN/LOESCHE 


8170 

X=XM+Y7.:Y=YM-XX: GOSUB 6000 

< 030 > 

8010 

N - 

X7.=0:Y7.=R:REM 

STARTWERTE 

< 114> 

< 185> 

81B0 

8190 

X=XM-Y7.:Y=YM-X7.:G0SUB 6000 

RETURN 

<104> 

<US> 

8020 

8030 

8040 

8050 

8060 

D7.=R-1: REM ENTSCHEIDUNGSGROESBE 

IF D7.<0 THEN Y7.=Y7.-1: D7.=D7.+Y7.+Y7. 

GOSUB 8100:REM ZEICHNEN VON B KREISPU 
NKTEN 

D7.=D7.-X7.-X7.-1 

X7.-X7.+1 

< 151 > 
<243> 

<234> 

<224> 

<073> 

Listing 25. Die Basic-Version zu »Hires 4« enthält 
neben allen erforderlichen Unterroutinen ein kleines 

8070 

IF XXC-Y7. THEN 

8030 

<226> 

Testprogramm 



10 REM ******************************** <060> 
20 REM * * <069> 
30 REM * HIRES4. ASS * <054> 
40 REM * TEST DER GRAFIKERWEITERUNG * <146> 
50 REM * HIRES 4 FUER DEN C64 * <098> 
60 REM * HEIMO PONNATH HAMBURG * <104> 
70 REM * * <119> 
80 REM ******************************** <130> 
90 REM <152> 

100 REM-HAUPTPROGRAMM- <242> 

110 PRINT CHR*<147> <139> 
120 PRINT:PRINT:PRINT"DIESES PROGRAMM TEST 

ET ALLE MODULE":PRINT"VON HIRES 4" <137> 
130 ZF=5:HF=0:REM ZEICHEN- UND HINTERGRUND 

FARBE <176> 
140 SYS 49152:HAN:REM GRAFIK EINSCHALTEN <084> 
150 LOE:REM BITMAP LOESCHEN <027> 
160 FAR, ZF ,HF:REM FARBGEBUNG <235> 
170 L=1:REM LOESCHMARKE AUF PUNKT SETZEN S 

TELLEN <010> 
180 FOR X=0 TO 319 <018> 
190 :Y=50*SIN(X/20)+100 <153> 
200 :PKT X,Y,L:REM PUNKTE SETZEN <211> 
210 NEXT X <158> 
220 L=0:REM LOESCHMARKE AUF PUNKT LOESCHEN 

STELLEN <073> 
230 FOR X=100 TO 200 <108> 
240 :Y=50*SIN(X/20> +100 <203> 
250 :PKT X,Y,L:REM PUNKTE LOESCHEN <133> 
260 NEXT X <210> 
270 HOF:REM TEXTMODUS EINSCHALTEN <001> 


280 PRINT:PRINT"DIE MODULE 2 BIS 6 SIND OK 

" <187> 

290 FOR 1=0 TO 1000:NEXT I <216> 

300 HAN:REM GRAFIK WIEDER EINSCHALTEN <160> 

310 Xl=160: Y1 = 100:R7.=90:L=1 <181> 

320 FOR A=0 TO 6.2B STEP .05 <187> 

330 :X2=RX*C0S < A)+160 <230> 

340 :Y2=RX*SIN(A)+100 <247> 

350 :LIN,X1,Y1,X2,Y2,L:REM LINIEN ZEICHNEN <080> 

360 NEXT A <126> 

370 HOF:REM TEXTMODUS EINSCHALTEN <101> 

380 PRINT:PRINT"AUCH DAS MODUL 7 ARBEITET" <194> 
390 FOR 1=0 TO 1000:NEXT I <060> 

400 HAN:REM GRAFIK EINSCHALTEN <068> 

410 XM=160:YM=100:R=95:L=1 <009> 

420 CIR,XM,YM,R,L:REM KREIS ZEICHNEN <254> 

430 FOR 1=0 TO 1000:NEXT I <100> 

440 HOF:AUS:REM TEXTMDDUS UND ERWEITERUNG 
ILIP 3' e, JSCHALTEN <153> 

450 PR I NT: PR INT" AUCH DAS MODUL 8 FUNKT IONI 

ERT. " <002> 

460 POKE 52,160:POKE 56,160:REM BASICZEIGE 

R ZURUECKSTELLEN <207> 

470 CLR <074> 

480 END <228> 


Listing 26. Dieses Programm ist identisch zum Test¬ 
programm in Listing 25. Allerdings werden hier die 
Befehle mit der Erweiterung »Hires 4« bearbeitet. 


Einstieg in die dritte Dimension 


ln diesem Abschnitt unseres Grafik-Kurses entschleiern wir 
die wenigen mathematischen Notwendigkeiten, die für die 
anspruchsvolle grafische Datenverarbeitung unerläßlich 
sind. Dabei ist das mathematische Rüstzeug alles andere 
als schwierig: Sogar zum Verstehan der unumgänglichen 
Matrizenrechnung genügt die Kenntnis der vier Grundre¬ 
chenarten (plus, minus, mal und geteilt) und die konse¬ 
quente Anwendung von einigen wenigen mathematischen 
Regeln. 

Wir werden uns auf möglichst einfache Weise mit der Ma¬ 
trizenrechnung vertraut machen und dann einen kurzen 
Streifzug durch die Grundlagen der 2D- und der 3D-Grafik 
unternehmen. 

Das Bildschirmkoonlinatensystem 


Fangen wir mit einer Bestandsaufnahme an. Letztendlich 
müssen wir alle grafischen Kunstwerke, die wir produzie¬ 
ren, auf unserem Bildschirm darstellen (von anderen 
Grafik-Ausgabegeräten wollen wir hier einmal absehen). 


Dabei haben wir eine horizontale Ausdehnung von 320 
Punkten und eine vertikale von 200. Die Numerierung in der 
X-Richtung läuft von 0 bis 319 nach rechts und die in der Y- 
Richtung von 0 bis 199 nach unten. 

Es handelt sich in diesem Fall um ein sogenanntes links¬ 
händiges Koordinatensystem. Linkshändig deswegen, weil 
man beim Drehen der X-Achse um den Ursprung auf dem 
kürzesten Weg zur Y-Achse die Richtung einschlägt, in die 
die Finger der linken Hand bei offener Faust zeigen, wenn 
der Daumen dabei aus der Bildschirmebene herausweist. 
Das ist ein etwas ungewöhnliches System: Unser Denken 
spielt sich im allgemeinen in rechtshändigen Koordinaten¬ 
systemen ab. So setzen wir beispielsweise immer dann, 
wenn von der Höhe eines Turmes die Rede ist, voraus, daß 
er von unten nach oben gemessen wurde, denn alle Höhen¬ 
angaben in Landkarten sind normalerweise in »Höhe über 
Normalnull« gemacht. 

Weltkoordinaten 


Damit wären wir bei den sogenannten Weltkoordinaten ge¬ 
landet: Man versteht darunter Koordinatensysteme, die ei¬ 
ner bestimmten realen Situation gerecht werden. 
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So könnte man nun beispielsweise den Ursprung eines 
Koordinatensystems in den Fußpunkt der Cheopspyramide 
legen, dessen Maßeinheit auf beiden Achsen jeweils 1 Me¬ 
ter beträgt. Dann läge die Spitze der Pyramide im Punkt 
S(0,137) und in der Waagrechten befände sich der letzte 
Stein, der zur Pyramide gehört, etwa im Punkt P(115,0). 

Ein Biologe, der den Tabakmosaikvirus untersucht, 
könnte ein Koordinatensystem gebrauchen, dessen Maß¬ 
einheit ein Mikrometer ist. Wenn er dann den Ursprung an 
ein Ende dieses Virus legt, dann würde durch eine Linie 
von P1(0,0) nach P2(0,0.04) die Breite des stabförmigen Vi¬ 
rus durchmessen werden, die Länge aber durch eine 
Strecke von P1(0,0) nach P3(17,0). 

Transformationen 


Sie sehen vielleicht schon, daß man beliebig viele Welt¬ 
koordinatensysteme definieren kann. Wie kann nun der be¬ 
sagte Biologe sein Untersuchungsobjekt möglichst bildfül¬ 
lend auf dem Bildschirm zeigen? Oder wie könnte man die 
Cheopspyramide als Computergrafik präsentieren? 

Diese Aufgabe zu lösen, ist durch sogenannte Transfor¬ 
mationen möglich. Der Begriff stammt vom spätlateini¬ 
schen »transformatio«, was eine Umbildung oder Verwand¬ 
lung von etwas bedeutet, ohne dessen Wert zu verändern. 
Eine Transformation ist also eine Kette von Rechnungen, 
ein Algorithmus, der jeden Wert aus einem Weltkoordina¬ 
tensystem umsetzt in einen unseres Bildschirmsystems. 
Wenn unser Biologe beispielsweise ein Weltkoordinatensy¬ 
stem benutzt, das in der Horizontalen von 0 bis 32 Mikrome¬ 
ter und in der Vertikalen von 0 bis 20 Mikrometer reicht, 
dann sorgt die Transformation für eine Anpassung dieser 
Ausdehnung an die Fläche des Bildschirmes. Meist ist man 
bemüht, außerdem noch aus der Linkshändigkeit des Bild¬ 
schirmsystems eine Rechtshändigkeit zu machen: Auch 
das ist die Aufgabe einer Transformation. 

Noch offensichtlicher wird die Notwendigkeit von Trans¬ 
formationen bei der Darstellung von räumlichen Objekten 
auf dem Bildschirm. Unser Bildschirm erlaubt nur flächige 
Bilder. Es gibt keine Möglichkeit, einen Punkt vor oder hin¬ 
ter die Oberfläche der Fernsehröhre zu plazieren. 3D-Ge- 
bilde müssen also umgewandelt werden in 2D-Objekte, 
müssen irgendwie projiziert werden - ähnlich dem Schat¬ 
tenriß eines räumlichen Gebildes, das in den Lichtstrahl ei¬ 
nes Diaprojektors gerät und auf der Fläche der Leinwand 
sein 2D-Abbild zeigt. Auch solche Projektionen werden 
durch Transformationen gemeistert. 

Nicht nur beim Übergang von Weltsystemen flächiger 
oder räumlicher Art zum Bildschirmsystem, sondern auch 
innerhalb eines Systems bedient man sich der Transforma¬ 
tionen. Das Verkleinern, Vergrößern, Verschieben oder Ro¬ 
tieren von grafischen Objekten erfolgt durch rechnerische 
Übergänge zwischen verschiedenen Koordinatensyste¬ 
men. Jeder dieser häufig gebrauchten Übergänge ist eine 
Transformation. 

Matrixrechnung 


Wir haben nun so oft von Transformationen gesprochen, 
daß Sie sicherlich neugierig geworden sind, wie das nun 
vor sich geht. Wir erwähnten vorhin schon, daß eine Trans¬ 
formation aus einer Reihe von Rechenschritten besteht. 
Jeder dieser Rechenschritte wird auf jeden bildwichtigen 
Punkt im Ausgangssystem angewendet, um als Ergebnis 
diesen Punkt im Endsystem zu erhalten. Besonders bei 
komplexeren Transformationen ergäbe sich auf diese Wei¬ 
se eine derart große Anzahl von Rechnungen, daß man sie 


kaum überschauen könnte. Und vor allem: Die Rechenzeit 
im Computer würde nahezu untragbar. Hier hilft uns nun 
die Matrix aus der Klemme. Es ist nämlich möglich, für jede 
auch noch so komplexe Folge von Transformationen eine 
einzige sogenannte Transformationsmatrix zu berechnen 
und damit die Matrix aller bildwichtigen Punkte zu multipli¬ 
zieren. Alles läßt sich also auf eine einzige Matrizenmultipli¬ 
kation zurückführen, die relativ einfach und schnell durch 
ein Programm erledigt werden kann. Die Hauptaufgabe 
des Programmierers besteht darin, für seine Aufgabenstel¬ 
lung die geeignete Transformationsmatrix zu erstellen. Die 
verschiedenen Möglichkeiten solcher Matrizen lernen Sie 
in diesem Teil kennen. Was aber ist denn nun eigentlich ei¬ 
ne Matrix? 

James Joseph Sylvester (1814 - 1897) führte 1850 den 
Begriff der Matrix ein. Lateinisch »mater« heißt »Mutter«, 
französisch »matrice« bedeutet auch »Gußform«. Sylvester 
wollte mit dieser Bezeichnung wohl eine häufige Verwen¬ 
dung von Matrizen charakterisieren: Dabei dient die Matrix 
gewissermaßen als eine Gußform, durch die Daten in ge¬ 
wisse neue Formen und Zusammenhänge gebracht wer¬ 
den können. 

Genug von Geschichte! Wo können Matrizen überall an¬ 
gewendet werden (außer in der Computergrafik, die unser 
Anliegen ist)? Dem Techniker und Ingenieur dienen sie bei¬ 
spielsweise zur Ermittlung von Eigenfrequenzen in der 
Schwingungstechnik, zu Netzberechnungen in der Elek¬ 
trotechnik oder zur Berechnung statisch unbestimmter Sy¬ 
steme in der B.austatik. Der Physiker bedient sich ihrer in 
der Quantentheorie. Kaufleute, Betriebs- und Volkswirte er¬ 
leichtern sich die Produktionsplanung, Materialplanung 
und Betriebskostenüberwachung damit. Matrizen sind 
aber auch Handwerkszeuge für die einfache Erfassung von 
komplc." n Zusammenhängen: Man kann damit Verflech¬ 
tungsbilanzen erstellen und untersuchen. Sehr interessant 
scheinen auch die vielfältigen Möglichkeiten bei Optimie¬ 
rungsproblemen zu sein. Jetzt müßte Ihnen deutlich gewor¬ 
den sein, welch ein breites Anwendungsspektrum sich da 
offenbart. Allen ist eines gemeinsam: Es liegen sogenann¬ 
te Vielfaktorenprobleme vor. Damit ist gemeint, daß man ei¬ 
ne große Anzahl von Einflußgrößen rechnerisch zu bewälti¬ 
gen hat, und das geht halt mit Matrizen sehr einfach und 
computergerecht. 

Was sind Matrizen? 


Nun ist der Ausdruck Matrix schon so oft gefallen und Sie 
sollen endlich erfahren, was das eigentlich ist. Eine Matrix 
ist eine geordnete rechteckige Darstellung von Elementen. 
Elemente können Zahlen sein oder Formeln oder auch Tex¬ 
te. Bild 27 zeigt Ihnen ein Beispiel einer Matrix, deren Ele¬ 
mente Zahlen sind. 





20 

1 

150 

2 

2 

400 

15 

1 

100 

, 12 

0 

80 . 


Bild 27. Beispiel einer Matrix mit Zahlen als Elementen 

Es gibt verschiedene Schreibweisen für Matrizen. Die in 
Bild 27 - mit eckigen Klammern und einem Großbuchsta¬ 
ben als Namen der Matrix - ist weit verbreitet, und wir wer¬ 
den sie im folgenden verwenden. Unsere Matrix hat vier 
Zeilen und drei Spalten. Man spricht dann von einer 
4,3-Matrix. Will man nicht eine ganz konkrete, sondern eine 
allgemeine 4,3-Matrix angeben, dann verwendet man an¬ 
stelle der Zahlen - wie allgemein in der Mathematik - Buch- 
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an 

a 12 

a 13 

a 2i 

a 22 

a 23 

a 31 

a 32 

a 33 

a 4l 

a 42 

a 43 


sen Fällen spricht man von »Vektoren«. Anders herum kann 
man auch Arrays mit mehr als zwei Dimensionen bilden. 
Ebenso gilt das auch für Matrizen. Wir beschränken uns 
aber im folgenden auf die zweidimensionalen Matrizen und 
Arrays. 


Bild 28. Eine allgemeine 4,3-Matrix 

staben, an die Indices gehängt sind. In Bild 28 ist unsere 
Beispiel-Matrix auf diese Weise angegeben. 

Der erste Index ist dann immer die Zeilennummer, der 
zweite die Spaltennummer. Jetzt wissen Sie zwar, was eine 
Matrix ist, aber was man konkret mit diesen Gebilden an¬ 
fangen kann, ist Ihnen vermutlich noch unklar. Sehen wir 
uns daher ein praktisches Beispiel an. 

Matrizen und Tabellen 


Matrizen kann man in vielen Fällen einfach als das mathe¬ 
matische Gegenstück zu Tabellen auffassen. Die Zahlen¬ 
anordnung bleibt dieselbe. Man fügt einfach eine erklären¬ 
de Kopfzeile und -spalte hinzu. So soll unser Beispiel aus 
Bild 27 eine Zusammenstellung der Einkäufe des Compu¬ 
terbenutzers Müller sein. Die Zeilen entsprechen den Mo¬ 
naten Januar, Februar, März und April (Bild 29). 



Disketten 

Farbbänder 

Druckerpapier 

Januar 

20 

1 

150 

Februar 

2 

2 

400 

März 

15 

1 

100 

April 

12 

0 

80 


Bild 29. Die Matrix A als Tabelle. Müllers Einkäufe an 
Computerzubehör von Januar bis April 


Die erste Spalte gibt die gekaufte Menge an Disketten, 
die zweite die an Farbbändern und die dritte die an Drucker¬ 
papier an (diese Beispiele wurden angeregt durch das 
Buch: Müller-Merbach, Operations Research, Berlin/ 
Frankfurt: Verlag Franz Vahlen 1969. Ein Buch, das kauf¬ 
männisch interessierten potentiellen Matrizennutzern sehr 
zu empfehlen ist). Müller hat noch einen Freund Meier, der 
ebenfalls einen Computer mit Zubehör sein eigen nennt 
und dessen Einkäufe uns zusammen mit denen von Müller 
im folgenden das Verständnis von Matrizen erleichtern sol¬ 
len. Meiers Einkaufsmatrix finden Sie in Bild 30. 



10 

1 

500 ' 

B = 

30 

1 

200 

5 

2 

100 


15 

1 

300 






Bild 30. Meiers Einkaufsmatrix 

Sie sehen, daß Meier sehr produktiv ist. Das Element 
b(1,3) in seiner Einkaufsmatrix, nämlich 500 Blatt Compu¬ 
terpapier im Januar, deutet auf eine rege Korrespondenz 
hin. Aus der Bezeichnungsweise b(1,3) können Sie viel¬ 
leicht schon ersehen, worauf wir nun hinaus wollen: Ge¬ 
nauso werden ja in Basic die einzelnen Elemente von 
Arrays bezeichnet. Tatsächlich lassen sich Matrizen im 
Computer als zweidimensionale Arrays auffassen, ja im 
englischen Sprachgebrauch verschwimmen die Bedeu¬ 
tungen von »matrix« und »array«, sie sind in gewisser Weise 
fast Synonyme (Synonyme sind verschiedene Wörter für 
denselben Gegenstand). Nebenbei bemerkt: Genauso, 
wie wir eindimensionale Arrays definieren können (bei¬ 
spielsweise durch DIM A$(20)) gibt es auch Matrizen, wie 
die vergleichbare 1,20-Matrix oder die 20,1-Matrix. In die¬ 

(33S? 


Addieren von Matrizen 


Aus unerfindlichen Gründen wollen Müller und Meier wis¬ 
sen, wie ihr gemeinsamer Verbrauch in den fraglichen Mo¬ 
naten war. Sie müssen daher ihre Einkaufsmatrizen zusam¬ 
menzählen. Bild 31 zeigt Ihnen, wie das geschieht. 



'20+10 

1 + 1 

150 + 500' 


'30 

2 

650' 


A+B= 

2 + 30 

2+1 

400 + 200 


32 

3 

600 

_ Q 

15+ 5 

1+2 

100+100 


20 

3 

200 

— o 


12 + 15 

0-+1 

80 + 300 


27 

1 

380 











Bild 31. Addition der Einkaufsmatritzen Müller und Meier 


Es werden einfach alle Elemente mit gleichen Indices ad¬ 
diert. Allgemein sehen Sie die Addition in Bild 32. 


A+B= 

a,i+b„ a 12 + b 12 a 13 + b, 3 * 

a 21 + b 2 i 322 + b 22 323 + b 23 

•— 

C 11 C 12 C 13 

C 21 c 22 c 23 

-C 

a 31 +^31 332+^32 a 33 +b 33 


C 31 C 32 C 33 

— V_/ 


, a 41 + b 41 a 42 + b 42 a 43 +b 43 _ 


_c 41 C 42 C 43> 



Bild 32. Addition zweier Matrizen allgemein ausgedrückt 


Wichtig ist: Man kann nur Matrizen gleicher Zeilen- und 
Spalte: lanzahl addieren. Für solche, die es genau wissen 
wollen: Es gilt bei der Matrizenaddition das kommutative 
Gesetz, die Summanden können vertauscht werden: 

A + B = B + A 

Außerdem gilt das Assoziativgesetz. Das bedeutet, daß 
auch bei mehr als drei Summanden die Reihenfolge belie¬ 
big ist: 

(A + B) + C = A + (B + C) = A + B + C 

Subtrahieren von Matrizen 


Zum Abziehen zweier Matrizen voneinander braucht man 
eigentlich kaum Worte zu verlieren, denn das funktioniert 
genauso wie die Addition. Jeweils die Elemente mit glei¬ 
chen Indices werden voneinander subtrahiert. Wollen un¬ 
sere beiden Computerfreunde also wissen, wo ihre Ver¬ 
brauchsdifferenzen liegen, dann bilden sie einfach A - B, 
wie in Bild 33. 



*20-10 

1-1 

150-500 


'-10 

0 

-350 ' 


A-B = 

2-30 

2-1 

400-200 


-28 

1 

200 

_n 

15- 5 

1-2 

100-100 


10 

-1 

0 

— \j 


12-15 

0-1 

80-300 


- 3 

-1 

-220 











Bild 33. Verbrauchsunterschiede von Müller und Meier 


Meiers Verbrauch ist im Durchschnitt in diesen vier Mo¬ 
naten höher gewesen als Müllers, wie man an den vielen 
negativen Werten in der Differenz-Matrix D sehen kann. 

Man kann Matrizen also beliebig voneinander abziehen 
oder addieren. Allerdings ist es wichtig, sich immer der Be¬ 
deutung der Zeilen und Spalten bewußt zu sein. Wenn in 
der zu Meier gehörenden Matrix B die Spalten anders an¬ 
geordnet sind (beispielsweise in der Reihenfolge Disket¬ 
ten, Papier und Farbbänder) hat es wenig Sinn, die Summe 


SONDERHEFT 45 


141 









































GRAFIKKURS 



A + B zu bilden. Zuvor müssen beide Matrizen die gleiche 
Element-Anordnung aufweisen. 

Multiplikation einer Matrix 
mit einem Faktor 


Häufig kommt es vor, daß eine Matrix mit einer normalen 
Zahl malzunehmen ist. Will Meier bespielsweise wissen, 
wie hoch sein Verbrauch gewesen wäre, wenn er dreimal 
soviel Zeit zur Verfügung gehabt hätte, dann kann er das 
Produkt so bilden, wie in Bild 34 gezeigt wird. 












3*10 

3*1 

3*500 


30 

3 

1500 


3*B= 

3*30 

3*1 

3*200 


90 

3 

600 

r- 

3* 5 

3-2 

3-100 

= 

15 

6 

300 

= t 


, 3*15 

3*1 

3*300. 


45 

3 

900, 



Bild 34. Meier berechnet den dreifachen Verbrauch 


Jedes Element der Matrix wird mit dem Faktor multipli¬ 
ziert. Allgemein ausgedrückt, sehen Sie das in Bild 35. 


Wenn Meier ein vorausplanender Mensch ist, wird er nun 
vorher schon überlegen, in welchem Monat er bei Vorteil 
und in welchem bei Reibach kauft. Im Monat Januar ergä¬ 
ben sich für ihn bei Vorteil folgende Kosten: 

20 Disketten mal 5 Mark plus 

1 Farbband zu 38 Mark plus 

150 Blatt Papier zu je 0,08 Mark 

150,00 Mark wäre die Summe davon. Bei Händler Reibach 

ergäbe sich: 

20*6,00 + 1*35,00 + 150*0,07 = 165,50 Mark 
Auf die gleiche Weise berechnet er nun die Kosten bei 
beiden Geschäften in den anderen Monaten und erhält fol¬ 
gende Tabelle (siehe Bild 38). 



bei Vorteil 

bei Reibach 

Januar 

150,00 

165,50 

Februar 

118,00 

110,00 

März 

121,00 

132,00 

April 

66,40 

77,60 


Bild 38. Müllers Preisübersicht 



Bild 35. Multiplikation einer Matrix mit einem Faktor 

Worin liegt denn nun der Vorteil dieser Matrizen? Her¬ 
kömmliche Rechenverfahren schienen uns für die denkba¬ 
ren Probleme ebenso einfach anwendbar zu sein. Vermut¬ 
lich geht es Ihnen ähnlich. Das wird erst jetzt deutlicher, wo 
wir uns der Multiplikation von Matrizen untereinander zu¬ 
wenden. 


Außer im Februar sollte Müller also bei Vorteil kaufen. Mit 
den Beispielrechnungen haben wir schon das Prinzip der 
Matrizenmultiplikation nachvollzogen: Die Zahlen einer 
Zeile aus der Matrix A wurden mit den Zahlen einer Spalte 
der Matrix P multipliziert und daraus die Summe gebildet. 
Auf diese Weise erhalten wir ein Element der Ergebnisma¬ 
trix, die wir in Bild 38 als Tabelle dargestellt haben. So ergibt 
die Verknüpfung der ersten Zeile von A mit der zweiten 
Spalte von P das Glied m(1,2) der Ergebnismatrix M. Falk 
hat 1951 ein Schema vorgestellt, das für das Verständnis 
dieser 1 “:,Itiplikation vorteilhaft ist. Beide Matrizen und die 
Ergebnismatrix packt man in ein Schema wie in Bild 39. 


Matrizenmultiplikation 


Benutzen wir hier wieder zum Erklären unser Beispiel mit 
Müller und Meier. In der Kleinstadt, in der unsere beiden 
Freunde leben, gibt es zwei Händler, die Computerzubehör 
führen: Vorteil und Reibach. Beide Händler sind bereit, mo¬ 
natliche Zahlung mit ihren Kunden zu vereinbaren, voraus¬ 
gesetzt, daß man alle drei Warengruppen komplett bei je¬ 
weils nur einem von ihnen kauft. Müller und Meier müssen 
sich also entscheiden, bei welchem der beiden Händler sie 
im jeweils anstehenden Monat kaufen. Natürlich werden 
sie sich an den Preisen orientieren. Bild 36 zeigt eine Preis¬ 
tabelle beider Geschäfte. 



Vorteil 

Reibach 

Disketten 

5,00 

6,00 

Farbbänder 

38,00 

35,00 

Papier 

0,08 

0,07 


Bild 36. Die Preistabelle der beiden Händler Vorteil und 
Reibach 


A*P=M 

p 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

A 

M 

0 0 0 0 

0 0 0 

0 0 0 0 

0 0 0 

0 0 0 0 

0 0 0 

0 0 0 0 

0 0 0 


Auch diese Tabelle kann man als Matrix, wir nennen sie 
die Preismatrix P, darstellen (siehe Bild 37). 







5 

6 


p= 

38 

0,08 

35 

0,07 







Bild 37. Die Preismatrix P 


Bild 39. Schema zur Matrizen-Multiplikation nach Falk 

Auf unser Beispiel mit Herrn Müller angewendet, ergibt 
sich damit (ausführlich beschrieben zum Nachvollziehen) 
das Schema in Bild 40. 

Bild 41 zeigt Ihnen die Matrizenmultiplikation nach Falk 
in allgemeiner Schreibweise. 

Besonders dann, wenn Sie sich in Bild 41 einmal die Bil¬ 
dung der verschiedenen m-Elemente ansehen, fällt Ihnen 
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5 6 

38 35 

0,08 0,07 

20 1 150 

2 2 400 

15 1 100 

12 0 80 

20-5+1 -38+150-0,08 20-6 + 1 -35 + 150-0,07 

2-5 + 2*38 + 400-0,08 2-6 + 2-35 + 400-0,07 

15-5+1-38 + 100-0,08 15-6 +1-35 +100-0,07 

12*5 + 0*38+ 80-0,08 12-6 + 0*35+ 80-0,07 


Bild 40. Müllers Kostenrechnung mit dem Falk-Schema 



P11 P12 

p21 P22 

Pli P12 

8ii 3 i 2 3 ij 
3 ii Sn 821 

8ji Sj! a J3 

nin = au - pi, + 812" P21 + au -psi m,2 = a„- P12 + ai2* P22 + a» - pj2 
1TI21 = 821 * Pn + 822 * P21 + 822 - Pa, rri22 = 8»*Pn + 822* p 2 2 + 822 - p22 

m ai = a 5 i * pi> + 822 • p 21 + a SJ • p» m» = 821 - p» + 832 * P22 + 822 * P22 


Bild 41. Allgemeine Schreibweise einer Matrizen¬ 
multiplikation nach Falk 


Versuchen Sie nun, beide Multiplikationen mittels des 
Falk-Schemas durchzuführen, also zu rechnen A * B und 
auch B * A. Ihre Ergebnisse sollten denen aus Bild 44 ent¬ 
sprechen. 






A*B= 

6 4 3 

9 2 12 

B*A= 

3 0 1 

10 8 7 


2 0 6 


11 4 3 






Bild 44. Die Ergebnismatrizen der Übung 


Sie sehen, es entstehen unterschiedliche Ergebnismatri¬ 
zen. Das heißt, bei der Multiplikation nach dem Falk- 
Schema ist A’B nicht identisch mit B’A. Damit sei es ge¬ 
nug mit der Einführung in die Matrizenrechnung. Sehen wir 
uns nun an, wie wir diese Gebilde in der Computergrafik 
nutzen können. 

Ein Punkt als Matrix 


sicherlich auf, wie sich die Indices der Faktoren a und p mit 
schöner Regelmäßigkeit verändern. Erinnern Sie sich au¬ 
ßerdem daran, daß wir ein Element aus einer Matrix auch 
als Array-Element verstehen können, dann erkennen Sie si¬ 
cher schnell, wie einfach derartige Rechnungen per Com¬ 
puter durchzuführen sind. Dazu kommen wir gleich noch. 

Damit Sie lernen, ein wenig mit diesem Prinzip zu arbei¬ 
ten, bitten wir Sie, dasselbe mal an der Kostenrechnung 
von Herrn Meier durchzuführen. 

Sie haben also folgende Rechnung zu vollziehen: N = B 
* P (N sei die Ergebnismatrix von Meier, B ist seine Planung 
(siehe Bild 30), P ist die Preismatrix aus Bild 37). 

Wenn wir alle richtig gerechnet haben, dann sollten Sie 
als Ergebnis die Matrix aus Bild 42 erhalten. 


Wir hatten festgestellt, daß eine Matrix einfach eine geord¬ 
nete rechteckige Darstellung von Elementen ist, beispiels¬ 
weise von Zahlen. Nichts hindert uns also daran, auch die 
Koordinaten eines Punktes (siehe Bild 45) als eine Matrix 
aufzufassen. 





N = 

128 130 ' 
204 229 


109 107 
137 146 







Bild 42. Meiers Ergebnismatrix N 


Bild 45. Der Punkt PI im Koordinatensystem 


Lediglich im März sollte Meier bei Reibach kaufen, an¬ 
sonsten ist der Kauf bei Vorteil für ihn von Vorteil. 

Bei all dieser Rechnerei werden Ihnen folgende Eigenar¬ 
ten aufgefallen sein (wir gehen mal von N = B * P aus): 

- N hat genauso viele Zeilen wie B und ebenso viele Spal¬ 
ten wie P. 

- Eine Multiplikation ist nur möglich, wenn die Anzahl der 
Spalten von B gleich der Anzahl der Zeilen von P ist. Das 
sollte einleuchten: Für jede Warenanzahl in B (beispiels¬ 
weise zehn Disketten) muß auch ein Preis angegeben sein, 
wenn man die Rechnung überhaupt durchführen will. 

- Bisher nicht auffallen - weil wir mit Matrizen gearbeitet ha¬ 
ben, bei denen eine Vertauschung zur Multiplikation nicht 
möglich war - konnte Ihnen die Tatsache, daß man die Rei¬ 
henfolge der Matrizen bei der Multiplikation nicht verän¬ 
dern darf. Nehmen wir an, wir hätten Matrizen vorliegen, 
bei denen man die Faktoren vertauschen kann, dann gilt 
hier - im Gegensatz zur normalen Multiplikation - , daß 
A * B nicht gleich B * A ist! Nehmen wir mal - zur Übung 

- zwei einfache Matrizen (siehe Bild 43). 








1 2 0 


0 0 1 1 


A= 

2 1 3 

3 0 1 

B= 

3 2 1 

2 0 3 








Bild 43. Zwei Matrizen zur eigenen Übung 


Einem Punkt P1(X1 ,Y1) entspricht so also eine 1,2-Matrix, 
nämlich 
(XI Y1 ) 

Nun können wir ausprobieren, was geschieht, wenn wir 
diese kleine Matrix allerlei Rechnereien aussetzen. 

Was passiert, wenn wir die 1,2-Matrix eines Punktes mit 
einer 2,2-Matrix mainehmen? Bild 46 zeigt Ihnen ein Bei¬ 
spiel: 


PI = (XI Y1) 


PI -E 

1 

0 

0 

1 

PI *E=(X1 Y1) 


XI Y1 

XI 

Y1 


Bild 46. Multiplikation von PI mit der Matrix E 


PI ist unser Punkt, E die 2,2-Matrix. Das Ergebnis ist wie¬ 
der eine 1,2-Matrix. Durch die Multiplikation ist PI gar nicht 
verändert worden! Wir haben hier eine besondere Matrix 
gewählt, nämlich die sogenannte Einheitsmatrix, die auch 
als E bezeichnet wird. 

Eine Einheitsmatrix wie in Bild 46 erkennt man immer an 
zwei Kriterien: Es ist eine quadratische Matrix, also eine, 
bei der die Anzahl der Zeilen und Spalten gleich ist, und sie 
enthält auf der Diagonalen von links oben nach rechts un¬ 
ten nur Einsen, während alle anderen Elemente gleich Null 
sind. 
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PI = (XI Yl) T1 = 

P2=P1 *T1=(2*X1 Yl) 

[»?] 

XI Yl 

2 0 

0 1 

2* X1Y1 


wohl die X- als auch die Y-Richtung gleichzeitig erfaßt wer¬ 
den. Bild 49 zeigt uns an unseren obigen Beispielen, wie 
solch eine Skalierungsmatrix durch Bilden von TI *T2 ent¬ 
steht: 


Bild 47. PI wird mit der Matrix TI multipliziert 

Sehen wir uns mal eine andere 2,2-Matrix an, die wir TI 
nennen. Bild 47 zeigt Ihnen, was hier die Multiplikation er¬ 
zeugt. 

P2 - der Punkt, der sich in Bild 47 aus der Multiplikation 
PI ’TI ergibt - hat doppelt so große X-Koordinaten als Pt 
Setzen wir statt der 2 in TI nun 0.5 ein, dann ergibt sich eine 
Ergebnismatrix mit halbierten X-Werten. Probieren Sie es 
doch einfach einmal aus! 

Einfache Transformation 


T '= [o?] ™-[JS] i ° 

ITTTl 

Bild 49. Die Bildung einer gemeinsamen Skalierungsmatrix 
für die X- und die Y-Achse 


Halten wir nun fest, wie eine allgemeine Skalierungsma¬ 
trixaussehen muß, die wir für jeden vorkommenden Fall an¬ 
wenden können (Bild 50). 


Die 2,2-Matrix TI ist das, was wir in den letzten Abschnitten 
angekündigt haben: eine Transformationsmatrix. Eine sehr 
einfache zwar, aber immerhin wissen Sie nun, wie man 
durch Multiplikation einer Punktmatrix mit einer Transfor¬ 
mationsmatrix eine Transformation ausführen kann. Ein 
und denselben Punkt PI können wir nun als P2 in Koordina¬ 
tensystemen mit gestreckter oder auch gestauchter X- 
Achse darstellen. 

Vermutlich ahnen Sie schon, wie man dasselbe auch mit 
der Y-Achse durchführen kann. Bild 48 zeigt es Ihnen an ei¬ 
nem Beispiel: 



f SX 0] 

b= 

L o syJ 


Bild 50. Die allgemeine Skalierungsmatrix S 


Dabei ist SX der Skalierungsfaktor der X-Achse und SY 
der in Y-Richtung. Damit sollen die Skalierungen erst ein¬ 
mal beiseite gelegt werden. Behalten Sie die Matrix S aber 
in Ihrem Gedächtnis. Wir werden sie später wieder hervor¬ 
holen. 


Xi Yl 


1 

o 


o 

2 


XI 2*vi 


PI = (XI Yl) T2=[j°] 

P2 = PI *T2 = (XI 2*Y1) 

Bild 48. Die Skalierung der Y-Achse 

Wie Sie im Bild 48 sehen, ergibt sich aus P2 = PI *T2 die 
Verdoppelung der Y-Koordinate, wenn das Element in Zeile 
2, Spalte 2 der Transformationsmatrix eine 2 ist. Man nennt 
diese Art der Transformation, die wir nun mit X und auch mit 
Y ausgeführt haben, eine Skalierung. Mittels Skalierung ist 
schon eine große Hürde genommen, die auf dem Weg von 
Weltkoordinaten zu Bildschirmkoordinaten steht. 


Die Skalierung 


Die Rotation 


Außer der Skalierung sind es noch zwei Veränderungen 
von grafischen Abbildungen, die uns interessieren werden: 
die Rotation und die Translation. Unter Translation versteht 
man einfach die Verschiebung eines Koordinatensystems, 
unter Rotation die Drehung. Zur Translation kommen wir 
später. Beginnen wir zunächst einmal mit der Rotation. 

Bild 51 zeigt die Verhältnisse für den Fall einer Rotation 
um den Ursprungspunkt (also den Punkt 0,0). 

Ein Punkt PI mit den Koordinaten XI undYl ist durch Ro¬ 
tation um den Winkel w2 überführt worden in einen Punkt 
P2 (Koordinaten X2 und Y2). Uns interessiert, wie man die 
neuen Koordinaten X2 und Y2 aus den alten berechnen 
kann. Die Entfernung L des Punktes vom Koordinatenur- 


Jetzt aber wollen wir noch klären, was zu tun ist, wenn so¬ 
wohl in X-, als auch in Y-Richtung skaliert werden muß. Das 
wird ohnehin meistens der Fall sein. TI hatten wir die Trans¬ 
formationsmatrix genannt, die in X-Richtung skalierte, T2 
war die für die Y-Achse. Wir können beide Rechnungen 
nacheinander ausführen. Dann steht für die X-Skalierung: 
P2 = PI * TI 

und für die Y-Richtung anschließend: 

P3 = P2 *T2 

Setzen wir den Ausdruck für P2 in die zweite Gleichung 
ein, dann ergibt sich: 

P3 = PI * TI * T2 

Im letzten Abschnitt hatten wir zwar festgestellt, daß man 
die Reihenfolge der Faktoren bei einer Matrizenmultiplika¬ 
tion nicht vertauschen darf. Andererseits aber gilt das so¬ 
genannte Assoziativgesetz, man kann also folgendes tun: 
A * B * C = A * (B * C) = (A * B) * C 

Es spielt keine Rolle, ob man zuerst PI mit TI malnimmt 
und dieses Ergebnis dann mal T2, oder ob man zuerst TI 
mal T2 rechnet und das Ergebnis dann als neuen Faktor bei 
der Multiplikation mit PI verwendet. Das erlaubt uns die Be¬ 
rechnung einer allgemeinen Skalierungsmatrix, in der so¬ 



Bild 51. Rotieren eines Punktes PI um den Winkel W2 
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sprung 0 ist konstant geblieben. Vor der Rotation kann man 
für Sinus und Cosinus schreiben: 

SIN(wl) = Y1/L und COS(wl) = X1/L 
Daraus folgt durch Umstellen der Gleichungen: 

Y1 = L'SIN(wl) und XI = L*COS(w1) 

Das behalten wir erst einmal im Gedächtnis und sehen 
uns nun die Verhältnisse nach der Rotation an. Aus wl ist 
nun die Winkelsumme w1+w2 geworden. Für den Sinus 
und den Cosinus kann man nun schreiben: 

SIN(w1+w2) = Y2/L und COS(w1+w2) = X2/L 
Nach dem Umstellen ergibt sich hier ähnlich wie vorhin: 
Y2 = L*SIN(w1+w2) und X2 = L*COS(w1+w2) 

Kluge Mathematiker haben sich den Kopf zerbrochen 
und schließlich festgestellt, daß man für den Sinus einer 
Winkelsumme auch schreiben kann: 

SIN(w1+w2) = COS(w2)*SIN(w1) + SIN(w2)*COS(w1) 
Analog dazu fanden sie für den Cosinus: 

COS(w1+w2) = COS(w2)'COS(w1) - SIN(w2)’SIN(w1) 
Diese beiden Beziehungen setzen wir in die von uns ge¬ 
fundenen für Y2 und X2 ein und erhalten auf diese Weise: 
Y2 = L*(COS(w2)*SIN(w1) + SIN(w2)*COS(w1)) und 
X2 = L*(COS(w2)*COS(w1) - SIN(w2)*SIN(w1)) 

Das Auflösen der äußeren Klammer liefert uns: 

Y2 = COS(w2)*SIN(wl)*L + SIN(w2)*COS(w1)*L und 
X2 = COS(w2)*COS(w1)*L - SIN(w2)*SIN(w1)*L 
Nun holen wir uns wieder die vorhin im Gedächtnis be¬ 
haltenen Gleichungen für Y1 und XI hervor. Wenn Sie ge¬ 
nau hinsehen, dann stellen Sie fest, daß wir jeweils zweimal 
pro Gleichung diese Beziehungen enthalten finden (bei¬ 
spielsweise in der Gleichung für Y2 am Ende des ersten 
Summanden steht SIN(w1)*L, was ja Y1 entspricht). Wir 
verwenden also diese Einsetzmethode und gelangen so 
zu: 

Y2 = COS(w2)*Y1 + SIN(w2)"X1 und 
X2 = COS(w2)*X1 - SIN(w2)*Y1 
Damit haben wir nun zwei Gleichungen, die es uns erlau¬ 
ben, für jeden Punkt PI mit den Koordinaten XI und Y1 
nach einer Drehung um den Winkel w2 die neuen Koordina¬ 
ten X2 und Y2 zu berechnen. Nun können Sie es mit den 
Kenntnissen über die Matrizenmultiplikation nachprüfen: 
Dasselbe Ergebnis folgt nämlich auch aus der Multiplika¬ 
tion der Punktmatrix (XI Y1) mit einer Transformationsma¬ 
trix R (also PI *R), was Ihnen Bild 52 zeigt. 

1X2 Y2i - rxi Y1^ * f" cos (W2) sin (W2)"l 
(XZ Y2) - (XI Y i) |^_ sjn (W2) CQS (W2) J 

Bild 52. Diese Transformation führt zur Berechnung der 
Punktkoordinaten nach einer Rotation 

R ist die sogenannte Rotationsmatrix, die Sie sich gut 
merken sollten (Bild 53). 

R in Bild 53 ist die allgemeine Rotationsmatrix, die in die¬ 
ser Form für jeden Winkel w2 angewendet werden kann. w2 

cos (W2) sin (W2) "I 
-sin (W2) cos (W2)J 

Bild 53. Die Rotationsmatrix R 

wird positiv gerechnet bei Drehungen gegen den Uhrzei¬ 
gersinn und bei Drehungen mit dem Uhrzeigersinn negativ. 
Handelt es sich also um solch eine negative Rotation, dann 
erhält man für R einen Ausdruck wie in Bild 54. 

cos (-W2) sin (-W2) 1 
-sin (-W2) cos (-W2)J 

Bild 54. Die Rotationsmatrix bei einer Drehung im 
Uhrzeigersinn 

'23a. f* 


Man kann sich in einem solchen Fall wieder einige ma¬ 
thematische Erkenntnisse zunutze machen, die die Win¬ 
kelfunktionen negativer Winkel betreffen. Es gilt nämlich: 
COS(-w2) = COS(w2) und 
SIN (-w2) = -SIN(w2) 

Damit vermeiden wir negative Winkel, und die veränder¬ 
te Rotationsmatrix für Drehungen mit dem Uhrzeigersinn 
zeigt Ihnen dann Bild 55. 

cos (W2) -sin(W2)1 
sin (W2) cos (W2) J 

Bild 55. Die veränderte Rotationsmatrix für Drehungen im 
Uhrzeigersinn 

Jetzt kennen wir die Matrizen zur Skalierung und zur Ro¬ 
tation. Die dritte Manipulation von Punkten wäre die Ver¬ 
schiebung oder Translation, der wir uns nun zuwenden. 

Die Translation 


Damit Sie sich die Unterschiede aller drei Operationen, die 
wir behandeln, auch vorstellen können, sind sie in Bild 56 
(Seite 146) einmal aufgeführt. 

Um eine Verschiebung in der Fläche durch Transforma¬ 
tionen ausdrücken zu können, braucht man anstelle der 
bislang verwendeten 2,2-Matrizen eine 3,3-Matrix. Weil wir 
später - und da liegt überhaupt der Vorzug dieser Methode 
- auch Kombinationen dieser Transformationen durchfüh¬ 
ren werden, ist es sinnvoll, auch die bisher gefundenen Ma¬ 
trizen S und R als 3,3-Matrix zu schreiben (beispielsweise 
kann man dann eine Drehung, eine Skalierung und eine 
TranalcTion mittels einer einzigen Matrix ausführen). 

Spezialfälle 
der Transformation 


Ebenso werden die Punkte nun durch drei Angaben statt 
wie bisher nur durch zwei (nämlich X1,Y1) beschrieben. 
Aber der Reihe nach: 

Für die Punkte erfindet man noch einen Dummywert (al¬ 
so einen, der lediglich für die Bequemlichkeit der Rech¬ 
nung geschaffen wird, der aber keine konkrete Bedeutung 
hat). Den nennen wir w. Unser Punkt 
PI : (XI Y1) 
heißt nun: 

PI : (XI *w Y1 *w w) 

Praktischerweise hat w einfach den Wert 1. Sie werden 
sich vielleicht erinnern, daß man bei der Matrizenmultipli¬ 
kation auf die Anzahl der Zeilen und Spalten achten mußte: 
Das allein ist der Grund, der dieses w erforderlich macht. 
Wie sehen nun S und R als 3,3-Matrizen aus? 

Man kann eine Matrix erweitern, ohne ihren Wert zu ver¬ 
ändern, indem man eine Zeile und eine Spalte hinzufügt, 
die nur Nullen enthalten. In der Diagonalen kommt dann 
noch eine 1 dazu. Bild 57 zeigt Ihnen das an unserer Skalie¬ 
rungsmatrix. 

Bild 58 soll Ihnen die Vorgehensweise zeigen, mit der 
nun gerechnet wird. 

Das korrekte Ergebnis erhält man einfach durch Weglas¬ 
sen von w. Auch die Rotationsmatrix wird erweitert und lau¬ 
tet nun so, wie es in Bild 59 gezeigt wird. 

Die Vorgehensweise beim Rechnen erfolgt genauso, wie 
wir es schon bei der erweiterten Skalierungsmatrix gese¬ 
hen hatten. Damit sind die Anpassungen erledigt. Sehen 
wir uns nun die Ursache für diese Veränderungen an: die 
Translationsmatrix. 
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Bild 56. Die drei Arten der Transformation 


s= 

SX 0 0 

0 SY 0 

0 0 1 


Bild 57. Die Skalierungsmatrix als 3,3-Matrix 


PI = (XI *W Y1 *W W) 

SX 0 0 
S= 0 SY 0 
0 0 1 



SX 

0 

0 


0 

SY 

0 


0 

0 

1 

XI *W Y1*WW 

SX*X1*W SY'YI *W 

w 


P2 = PI'S = (SX'XI'W SY*Y1 *W W) = (SX-X1 SY'YI) 


Bild 58. So wird mit der neuen Skalierungsmatrix gerechnet 

R= 

cos (W2) sin (W2) 0 

-sin (W2) cos (W2) 0 

0 0 1 _ 



In Bild 60 finden Sie die allgemeine Form dieser Matrix. 
TX ist die Verschiebung in X-, TY die in die Y-Richtung. 


T= 

1 0 0 

0 1 0 
TXTY 1 


Bild 60. Die allgemeine Translationsmatrix T 


Die Anwendung auf einen Punkt PI (X1.Y1) als Operation 

P2 = PI * T 

zeigt Ihnen das Bild 61. 


Pi = (XI *W Yl*W W) 



1 

0 

0 


0 

1 

0 


TX 

TY 

1 

XI'W Y1-W W 

XI'W+TX'W Y1-W+TY-W 

W 


T= 


1 0 0 
0 1 0 
TX TY 1 


P2 = P1*T = (W[X1 +TX] W[Y1+TX] W) = (X1+TX Y1+TY) 


Bild 61. Anwendung der Translationsmatrix T auf einen 
Punkt PI 


Die normalen Koordinaten ergeben sich wieder durch 
einfaches Weglassen von w. 

Wenn Sie sich das Ergebnis genau ansehen, werden Sie 
sicher fragen, weshalb das alles auf so komplizierte Weise 


Bild 59. Die neue 3,3-Rotationsmatrix 
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erfolgen muß. Daß man TX zurX-Koordinate und TY zur Y- 
Koordinate zu addieren hat, sei vorher auch schon klar ge¬ 
wesen. Damit haben Sie natürlich recht. Jede einzelne die¬ 
ser Matrizen, S, R oder T für sich allein genommen (R aller¬ 
dings davon ausgenommen), kann man eigentlich ebenso¬ 
gut auch ersetzen durch normale Rechenvorgänge, die kei¬ 
nerlei Matrizen erfordern. Der Vorteil dieser Art der Trans¬ 
formation zeigt sich erst, wenn man bedenkt, daß sie sehr 
computergerecht abläuft. Man kann im Prinzip ein und das¬ 
selbe Programm für alle Operationen verwenden. Lediglich 
die Elemente der Matrix verändern sich. 

In noch viel stärkerem Maß aber erfahren wir die Vorteile, 
wenn mehrere Transformationen zusammenfallen. Auch 
dann genügt immer noch eine einzige Matrix. Das gleiche 
Programm kann auch hier verwendet werden. Wieder sind 
nur die Elemente der Matrix andere. Schließlich sollten Sie 
noch bedenken, daß wir uns immer noch mit den einfach¬ 
sten grafischen Objekten (nämlich den Punkten) im ein¬ 
fachsten Koordinatensystem (nämlich dem ebenen kartesi¬ 
schen System) befassen. Wenn wir später in die höheren 
Dimensionen aufsteigen, werden die Rechnungen ohne 
Matrizen manchmal reichlich verwirrend. 

Die kombinierten 
2D-Transformationen 


Jetzt sind wir soweit, daß wir 2D-Grafik betreiben können. 
Nehmen wir ein beliebiges Objekt, beispielsweise ein 
Haus, das direkt an seinem Bildschirmplatz gedreht und 
verkleinert werden soll. Es sind also eine Reihe von Trans¬ 
formationen hintereinander auszuführen, die wir in eine 
einzige Transformationsmatrix zusammenfassen werden. 
Bild 62 zeigt Ihnen den Weg in Einzelschritten. 



BilH fi2. Hier sehen Sie eine kombinierte Transformation in 
der r>v.ihenfolge TI, S, T2 


Was hat der Programmierer zu tun? 
a) Er wählt ein den Maßen des Hauses angepaßtes Welt¬ 
koordinatensystem und legt darin die charakteristischen 
Punkte fest. 

Die Reihenfolge ist wichtig 


Nehmen wir an, unser Haus hätte eine Breite von 10m, eine 
Höhe bis zum Giebel von 13m und bis zur Dachtraufe von 
7m. Die Gestalt wäre die in Bild 62 gezeigte. Damit genü¬ 
gend Platz für alle Betrachtungen ist, wählen wir ein Welt¬ 
koordinatensystem, das von Om bis 30m horizontal und von 
Om bis 25m vertikal reicht. Der linke untere Eckpunkt des 
Hauses befände sich an der Stelle P1(10,5). Dann gilt für die 
anderen Eckpunkte (im Uhrzeigersinn aufgezählt): P2(10, 
12), P3(15,18), P4(20,12) und P5(20,5). Das Zeichnen des 
Hauses ist dann einfach damit erledigt, daß man diese 
Punkte in ihrer Reihenfolge durch Linien verknüpft und zu 
guter Letzt noch P5 mit PI verbindet. Wir haben damit die 
Ausgangssituation in Bild 62 hergestellt, 
b) Zerlegen einer komplexen Veränderung des Objektes in 
eine Reihe von Translationen, Rotationen und Skalierun¬ 
gen. 

In Bild 62 sehen Sie diese Reihenfolge. Wenn wir wieder 
den linken unteren Punkt PI des Hauses als Bezugspunkt 
ansehen, um den die Drehung und an dem die Skalierung 
stattfinden soll, dann beginnt unsere Arbeit mit einer Ver¬ 
schiebung des Objektes an den Ursprung. Würde man das 
nicht tun, sondern gleich drehen, dann bekäme man ein 
völlig anderes Ergebnis, das Sie in Bild 63 erkennen kön¬ 
nen. 

Jede Rotation und jede Skalierung nimmt nämlich immer 
den Ursprung als Bezugspunkt an. Bei Rotationen um ei- 



Bild 63. Nun eine kombinierte Transformation in der 
Reihenfolge R, TI, S, T2 
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nen anderen Bezugspunkt gilt daher die Regel: Immer zu¬ 
erst den Bezugspunkt in den Ursprung verschieben (und 
damit auch das ganze Objekt), dann drehen und skalieren 
und danach wieder zurück verschieben an den Ausgangs¬ 
ort. Nennen wir die erste Translation also TI, die Rotation 
R, die Skalierung S und die Rücktranslation T2, dann giltfür 
die geplante Abfolge TI, R, S, T2. 

c) Multiplikation der Matrizen der Einzelschritte zu einer 
kombinierten Matrix. 

Wenn wir die Koordinaten des Bezugspunktes PI allge¬ 
mein als xc und yc bezeichnen, W als den Drehwinkel und 
die Skalierungsfaktoren Sx und Sy nennen, dann erfordert 
das von uns die Multiplikation der vier Einzelmatrizen in 
Bild 64. 


1 0 0 


cosW sinW 0 


Sx 0 0 


1 0 0 

0 1 0 

* 

-sinW cosW 0 

• 

0 Sy 0 

* 

0 1 0 

-XC -YC 1 


0 0 1, 


0 0 1 


XC YC 1 

■ 


Sx-cosW Sx*sinW 0 

-SysinW Sy*cosW 0 

xc-(1-Sx-cosW)+Sy-yc-sinW yc-(1-Sy*cosW)-Sx*xc*sinW 1 


Bild 64. Kombination mehrerer Transformationen zu einer 
Transformationsmatrix: M=T1 *R*S*T2 

Das Ergebnis M finden Sie dann ebenfalls im Bild 64. Sie 
können es nachvollziehen, wenn Sie je zwei Matrizen mit¬ 
einander mainehmen - wie wir es vorhin gelernt haben - 
und diese Produkte dann wieder multiplizieren. Achten Sie 
dabei aber immer auf die richtige Reihenfolge! 

d) Multiplikation dieser Matrix mit der Anpassungsmatrix. 

Das ist etwas Neues! Die Anpassungsmatrix bewirkt den 
Übergang vom Weltkoordinatensystem auf die Bildschirm¬ 
koordinaten. Alles bisher Unternommene hat sich immer 
noch im Weltsystem abgespielt. Die Anpassungsmatrix 
nimmt die nötigen Skalierungen in X- und in Y-Richtung vor, 
und sie macht aus dem linkshändigen System des Bild¬ 
schirmes ein rechtshändiges. Das geschieht durch eine 
3D-Operation, nämlich durch eine Rotation um die X-Achse 
um 180 Grad. Wir haben diese Matrix daher hier noch nicht 
entwickelt. Damit Sie aber diesen Teil auch kennenlernen, 
ist Ihnen in Bild 65 eine Anpassungsmatrix angegeben. 



' XM 

n 

A 



XO-XU 

u 

U 


Anpassungsmatrix= 

0 

YM 

YO-YU 

0 



XM-XU 

YM-YO 

1 

1 



XO-XU 

YO-YU 



Bild 65. Die Matrix zur Biidschirmanpassung 


Hier bedeutet XM die maximal mögliche X-Bildschirm- 
koordinate (bei uns also 319), YM dasselbe für die Y-Koordi- 
nate (bei uns also 199). Der kleinste und der größte X-Wert 
des Weltsystems wird XU und XO genannt (in unserem Bei¬ 
spiel ist das 0 und 30), bei den Y-Werten ist das dann YU 
und YO (in unserem Beispiel 0 und 25). Die Multiplikation 
unserer bisher entwickelten Matrix mit dieser Anpassungs¬ 
matrix und das Ergebnis davon finden Sie in Bild 66. 

Diese nun gefundene Gesamtmatrix verwandelt jeden 
unserer Hauspunkte in einen des gedrehten und skalierten 
Hauses, angepaßt an den Bildschirm, 

e) Berechnen der Elemente der Gesamtmatrix. 

Es ist jetzt an der Zeit, im Programm oder außerhalb, die 
einzelnen Elemente der Gesamtmatrix zu berechnen. Aus 
Bild 67 folgt für unsere Operationen nun: 



■ 

Sx-cosW 

■ 

Sx*sinW 0 


XM 

XO-XU 0 

1 

0 




-SysinW 

Sy-cosW 0 


YM 

0 YO-YU 

0 



xc*(1-Sx*cosW) 

yc-(l-Sy-cosW) , 


XM-XU YM-YO 

1 



+Sy-yc-sinW 

-Sx-xc-smW 


XO-XU YO-YU 

1 











KM-Sx-cosW 

YM-Sx-sinW 

i 

0 




XO-XU 

YO-YU 


= 

XM-SysinW 

YM-Sy-cosW 

0 




XO-XU 

YO-YU 



XM 

' xc-(l-Sx-cosW) 1 

_ XM 

yc-(1-Sy-cosW)1 

1 



XO-XU 

+Sy*yc*sinW-xu| 

YO-YU [ -Sx-xc-sinW-yo 

J 



Bild 66. Kombination der allgemeinen Transformations¬ 
matrix T mit der Matrix zur Bildschirmanpassung (M): 
A=T*M 


rll = XM * Sx * cos(W)/(XO-X U) 
r12 = -YM*Sx*sin(W)/(YO-YU) 
r21 = -XM*Sy*sin(W)/(XO-XU) 
r22 = -YM*Sy*cos(W)/(YO-YU) 
tl = XM*(Xc*(1-Sx*cos(W)) + Sy*Yc*sin(W)-XU)/ 
(XO-XU) 

t2 = -YM ’ (Yc* (1 -Sy * cos(W))-Sx * Xc * sin(W)-YO)/ 
(YO-YU) 

Wenn im Rahmen eines Programms alle Parameter be¬ 
kannt sind, ist nun auch die Gesamtmatrix voll berechen¬ 
bar. 

f) Aufstellen der beiden Transformationsgleichungen. 

Auch das ist Ihnen neu. Unsere Arbeit mit den Matrizen 
ist nämiiu., jetzt beendet. Was jetzt folgen würde, wäre die 
Multiplikation aller Punkte (als n,3-Matrix, wobei n die An¬ 
zahl der bildwichtigen Punkte ist, auf unser Haus bezogen 
also n=5) mit der jetzt bekannten Gesamtmatrix, also eine 
einfache Matrizenmultiplikation. Wir brauchen sie aber tat¬ 
sächlich gar nicht mehr im Programm ausführen lassen. 
Den Grund dafür zeigt Ihnen Bild 67. 

Dort ist ein Punkt (X,Y) mit der vereinfachten Gesamtma¬ 
trix malgenommen worden (W ist hier der schon bekannte 
Dummy-Wert). Als Ergebnis finden sich einfach zwei Glei¬ 
chungen: 

X’ = rll * X + r21 * Y + tl 
Y’ = r12 * X + r22 ’ Y + t2 




Bild 67. Jede Transformationsmatrix kann im Endeffekt zu 
zwei Transformationsgleichungen reduziert werden 
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Anstelle der kompletten Matrixmultiplikation benutzen 
wirfür alle Koordinaten X und Y einfach diese beiden Trans¬ 
formationsgleichungen, um die Bildschirmkoordinaten X’ 
und Y’ zu erhalten. 

g) Umwandeln der bildwichtigen Punkte aus dem Weltsy¬ 
stem in das Bildschirmsystem. 

Erst jetzt sind wir soweit, daß wir tatsächlich zeichnen 
können. Die Matrixrechnung dient uns also im Vorfeld des 
eigentlichen Programms dazu, die Elemente rll bis t2 zu 
ermitteln. Im Programm aber findet keine Matrixoperation 
mehr statt, dort wird nur noch mit den fertigen Gleichungen 
gearbeitet. 


10 REM ******************************** <060> 


20 REM * * <069> 
30 REM * TRANS-2D * <236> 
40 REM * DEMONSTRATION VON 2D—GRAFIK * <125> 
50 REM * HEIMO PONNATH HAMBURG * <094> 
60 REM * * <109> 
70 REM ******************************** <120> 
80 IF A=0 THEN A=1:LOAD"HIRES4.OBJ",8,0 <152> 
90 SYS 49152:HAN:HOF:REM AKTIVIEREN <070> 
100 REM <162> 

110 REM-DATEN DES HAUSES- <133> 

120 DATA 10,5,10,12,15,18,20,12,20,5 <040> 
130 DIM H(2,6):REM FELD FUER HAUSPUNKTE <034> 
140 FOR 1=1 TO 5 <240> 
150 :READ H(1,I),H(2,I> <210> 
160 NEXT I <244> 
170 H(1,6)=H(1,1):H(2,6)=H(2,1) <239> 
1S0 REM <242> 

190 REM-PARAMETER- <243> 

200 XM=319:YM=199 <074> 
210 XU=0:XO=30:YU=0:YO=25 <134> 
220 XC=10:YC=5 <035> 
230 PRINT CHR$(147> <003> 
240 INPUT“ROTATIONSWINKEL =";W <084> 


250 W=W*±/180:REM UMRECHNUNG IN BOGENMASS <094> 
260 INPUT"SKALIERUNGSFAKTOREN SX,SY=";SX, S 


Y <145> 

270 REM <078> 

280 REM-ZEICHENWERTE- <054> 

290 ZF=5:HF=0:L=1 <228> 

300 REM <10S> 

310 REM-GESAMTMATRIXELEMENTE- <162> 

320 RA=XM*SX*COS(W)/<XO—XU):REM DAS IST RI 

1 <055> 

330 RB=—YM*SX*SIN <W)/<YO—YU):REM R12 <188> 

340 RC=—XM*SY*SIN(W)/(XQ-XU):REM R21 <102> 

350 RD=-YM*SY*COS(W)/(YO—YU):REM R22 <220> 

360 T1=XM*(XC*<1-5X*C0S(W>)+SY*YC*SIN(W)-X 

U)/(XO-XU) <012> 

370 T2=-YM*(YC*(1-SY*C0S(W)>-SX*XC*SIN<W)- 

YO)/<YO—YU) <211> 

380 REM <18B> 

390 REM - TRANSFORMATIONSGLEICHUNGEN . <027> 

400 DEF FN X(X>=RA*X+RC*Y+T1 <217> 

410 DEF FN Y(Y)=RB*X+RD*Y+T2 <200> 

420 REM < 228 > 

430 REM-ZEICHNEN- <025> 

440 HAN:LOE:FAR,ZF,HF <222> 

450 FOR 1=1 TO 5 <040> 

460 :X=H 11,1):Y=H(2,1):X1=FN X(X):Y1=FN Y< 

Y) <184> 

465 :X=H(1,1+1):Y=H(2,1+1):X2=FN X(X):Y2=F 

N YtY) <191> 

470 :LIN,X1,Y1,X2,Y2,L <107> 

480 NEXT I <054> 

490 GET Ai:IF Ai= M " THEN 490 <015> 

500 HOF <245> 

520 REM <074> 

530 REM-PROGRAMMENDE- <160> 

540 INPUT"NOCH EINMAL <J/N)";A* <178> 

550 IF A*="J" THEN 240 <132> 

560 AUS <024> 

570 POKE 52,160:POKE 56,160 <126> 

580 CLR <186> 

590 END <0B4> 


Listing 27. »TRANS-2D«. 

Ein Demo-Programm für 2D-Grafik. 


Ein Beispielprogramm zur 2D-Graffik 


Damit Sie unser Haus nun tatsächlich auch in Aktion sehen 
können, finden Sie in »TRANS-2D« ein Programm (Listing 
27), aus dem Sie das Prinzip der 2D-Grafikprogrammie- 
rung entnehmen können. Wie Sie aber sicher schon be¬ 
merkt haben, ist alles Wichtige - nämlich die Bestimmung 
des Algorithmus zur Berechnung der Elemente rll bis t2 - 
bereits vorher geschehen. Für jede neue Grafikoperation, 
die nicht eine Rotation mit anschließender Skalierung - be¬ 
zogen auf einen beliebigen Bezugspunkt - ist, muß diese 
ganze Kette der Algorithmus-Entwicklung neu durchge¬ 
gangen werden. Erst die Ergebnisse landen wieder als 
Gleichungen im Programm. 

Alle Parameter sind hier im ersten Programmabschnitt 
schon festgelegt. Lediglich die Rotation (in Grad) und die 
Skalierungsfaktoren können Sie noch selbst variieren. Be¬ 
nutzen Sie bitte die Grafikbefehls-Erweiterung »HIRES4. 
OBJ« für dieses Programm. Nebenbei bemerkt: TRANS- 
2D wartet geradezu darauf, von Ihnen in irgendeiner Weise 
verändert zu werden! Sie können beispielsweise noch 
mehr Parameter zur Eingabe freigeben und deren Wirkun¬ 
gen beobachten. Sie könnten Parameter in einer Schleife 
verändern lassen. Sie könnten andere Grafikobjekte als 
das nüchterne Haus verwenden. Ihrer Fantasie sind keine 
Grenzen gesetzt! Beachten Sie, daß Sie bei der Eingabe 
der Parameter den Wert »1« nicht überschreiten (am besten 
Sie wählen Werte zwischen 0,2 bis 0,8). Ansonsten gibt der 
Computer die Fehlermeldung »Illegal Quantity Error« aus. 
Diese Fehlermeldung ist allerdings nicht lesbar, da sich der 
C64 im Hires-Modus befindet. 

Wenn Sie genau hingesehen haben, werden Sie außer 
der '-> alierung und der Rotation des Hauses auch noch ei¬ 
ne Verzerrung beobachtet haben. Der Grund dafür ist im 
unterschiedlichen Seitenverhältnis zu suchen, die Weltsy¬ 
stem (30 x 25 Meter) und Bildschirm (320 x 200 Punkte) auf¬ 
weisen. Dazu wirkt sich noch verstärkend aus, daß wir das 
Weltsystem um den jeweils eingegebenen Winkel W ge¬ 
dreht haben, wodurch sich ebenfalls die Seitenverhältnisse 
ändern. Man könnte das mittels der Anpassungsmatrix 
wieder ausgleichen. Aber hier sollte nur ein kurzer Über¬ 
blick der Techniken gegeben werden, und deshalb wenden 
wir uns nun der 3D-Grafik zu. 

3D-Grafik 


Von der 2D- zur 3D-Grafik ist es kein großer,Schritt mehr: 
Im Prinzip brauchen wir nur alle bisherigen Überlegungen 
etwas zu ergänzen. So ist ein Punkt im Raum durch drei 
Koordinatenangaben vollständig definiert. 

In Bild 68 sehen Sie den Punkt P1(X1,Y1,Z1) in einem 
rechtshändigen Koordinatensystem. Erinnern Sie sich: 
Man kann darin beispielsweise die Y-Achse in die Z-Achse 
überführen durch Drehen in die Richtung, in die die Finger 
der offenen rechten Hand weisen, wenn der Daumen in die 
Richtung der X-Achse zeigt. 

Sehen wir uns die Transformationen in der 3D-Grafik an, 
dann stellen wir fest, daß die gleichen Techniken, die wir 
von der 2D-Grafik her kennen, hier auch benutzt werden. 
Alle Transformationsmatrizen kann man als einfache Erwei¬ 
terungen der entsprechenden 2D-Matrizen verstehen. An¬ 
stelle von 3,3-Matrizen werden hier aber 4,4-Matrizen ge¬ 
braucht, und die Punktmatrix ist keine 1,3-Matrix, sondern 
eine 1,4-Matrix. Die Erweiterung geschieht wieder über ei¬ 
nen Dummy-Wert w, der lediglich der besseren Berechen¬ 
barkeit dient: 

(X*w Y*w Z*w w) 
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Bild 68. Der Punkt PI im 3D-Koordinatensystem 


3D-Translationen 

Wenn TI, T2 und T3 die Verschiebungen in X-, Y- und Z- 
Richtung bedeuten, dann lautet die Translationsmatrix wie 
sie in Bild 69 zu sehen ist. 

1 0 0 o ' 

0 10 0 
0 0 10 
TI T2 T3 1 , 

Bild 69. Die Matrix der 3D-Translation 

Sie sehen, es handelt sich einfach um eine Erweiterung 
der 2D-Translationsmatrix. 

3D-Skalierung 

Nennen wir Sx, Sy und Sz die Skalierungsfaktoren in der 
Richtung X, Y und Z, dann gilt für die 3D-Skalierungsmatrix 
das Bild 70. 



S= 


Sx 0 0 0 
0 Sy 0 0 
0 0 Sz 0 
0 0 0 1 


Bild 70. Die 3D-Skalierungsmatrix 


Wieder ist die Verwandtschaft zur 2D-Skalierung sofort 
zu erkennen. 


3D-Rotationen 

In der 2D-Grafik waren nur Rotationen um eine Dreh¬ 
achse möglich, die durch den Ursprung aus der Bildebene 
heraus verlief. Wir erkennen diese Achse nun als die Z- 
Achse. Demzufolge lautet die Rotationsmatrix einer Dre¬ 
hung um die Z-Achse im 3D-Fall entsprechend Bild 71. 

cos W sin W 0 0 
n -sin W cos W 0 0 
MZ_ 0 0 10 
. 0 0 0 1 , 

Bild 71. 3D-Rotation um die Z-Achse 

Der Winkel W wird ebenso wie bei der 2D-Grafik als posi¬ 
tiv betrachtet, wenn die Drehrichtung - von dem positiven 
Ende der Z-Achse her gesehen - gegen den Uhrzeigersinn 
stattfindet. 

Wir haben nun aber im Gegensatz zur 2D-Grafik noch 
zwei weitere Drehachsen zur Verfügung. Bei einer Rotation 
um die X-Achse sieht die dazugehörende Matrix so aus 
(Bild 72). 

Und bei einer Drehung um die Y-Achse gilt Bild 73. 


Rx= 

'10 00' 

0 cos W sin W 0 

0 -sin W cos W 0 
. 0 0 0 1 . 


Bild 72. Die Matrix einer Rotation um die X-Achse 

Ry= 

cos W 0 -sin W 0 

0 10 0 
sin W 0 cos W 0 
,0 0 0 1 



Bild 73. 3D-Rotationsmatrix bei Drehung um die Y-Achse 


In allen Fällen der Rotation ist W dann positiv, wenn die 
Drehung - vom positiven Ende der Rotationsachse her ge¬ 
sehen - gegen den Uhrzeigersinn verläuft. 

Man kann nun natürlich wieder mehrere dieser einfa¬ 
chen Transformationen miteinander kombinieren. Dann 
sind die Einzelmatrizen wie im 2D-Fall in der richtigen Rei¬ 
henfolge miteinander malzunehmen, und es ergibt sich ei¬ 
ne kombinierte Matrix. Diese wird dann von folgender Form 
sein (siehe Bild 74): 



r 11 r i2 r i3 0 


M = 

r 21 r 22 r 23 0 
r 31 r 32 f 33 0 

, *1 *2 t 3 1 , 



Bild 74. Grundform einer kombinierten 
3D-Transformations-Matrix 



Bild 75. Zum Begriff der Projektion 

Im Endeffekt könnte man nun ebenso Vorgehen wie in 
der zweidimensionalen Grafik, nämlich einfach drei Trans¬ 
formationsgleichungen aufstellen, wenn es da nicht noch 
ein Problem gäbe: Der Bildschirm verfügt nur über zwei Di¬ 
mensionen, nämlich X und Y. 

Projektionen 


Nach allen durchgeführten 3D-Transformationen ist das 
Koordinatensystem, in dem wir uns befinden, immer noch 
ein dreidimensionales Weltkoordinatensystem. Bevor wir 
nun eine Anpassungsmatrix anwenden können, um Bild¬ 
schirmkoordinaten zu erzeugen, müssen wir aus den SD¬ 
Punkten solche erzeugen, die in einer Ebene angeordnet 
sind, also auch zweidimensional sind wie der Bildschirm. 
Man nennt solch eine 3D- zu 2D-Transformation eine Pro¬ 
jektion, und Bild 75 zeigt Ihnen dafür ein Beispiel. 
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Zentral projektion 



Fluchtpunkt Fl 


Horizont 


1 Fluchtpunkt 




F3 

3 Fluchtpunkte 


Parallelprojektionen 




Würfel in Kavaliersperspektive 
(alle Seiten haben die 
gleiche Länge) 


y 



Würfel in Kabinett-Perspektive 
(die nach hinten verlaufenden 
Kanten haben nur die 
halbe Länge) 


X 


Orthogonale Parallelprojektionen Axonometrische 

s onuine 



Isometrische Projektionen 
(a : b : c = 1 : 1 :1) 


Dimetrische Projektionen 
(a : b : c = 1 : 1 : 0,5) 




Trimetrische Projektionen 
(a : b : c = 0,9 : 1 : 0,5) 



Orthogonale Parallelprojektionen Aufrisse 


Zur Entstehung einer 
Dreitafelprojektion 


Bild 76. Beispiele für verschiedene Projektionsarten 
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Man kann sich das so vorstellen, daß von jedem Raum¬ 
punkt (beispielsweise P im Bild 75) Projektionsstrahlen 
(hier P 0 ) ausgehen. Bei der sogenannten Zentralprojektion 
schneiden sich alle diese Strahlen in einem Projektions¬ 
zentrum P 0 , während sie bei der Parallelprojektion - so 
sagt es uns ja schon der Name - alle parallel zueinander 
verlaufen, dort liegt der gemeinsame Schnittpunkt dann im 
Unendlichen. Im Strahlengang befindet sich eine Projek¬ 
tionsebene E (die beispielsweise der Bildschirm sein kann 
oder aber eine Ebene im Weltkoordinatensystem). Jeder 
Projektionsstrahl schneidet diese Ebene in einem Punkt. 
Alle derart projizierten Raumpunkte erzeugen das ebene 
Abbild des räumlichen Objektes. 

Verschiedene Projektionsarten 


Im Rahmen dieser Einführung ist es allerdings nicht mög¬ 
lich, bis in alle Details einzudringen. Allein die verschiede¬ 
nen Arten von Projektionen werden Ihnen das Ausmaß der 
Thematik vor Augen führen. So unterscheidet man: 

1. Zentralprojektionen, auch perspektivische Projektionen 
genannt, mit einem, zwei oder auch drei Fluchtpunkten. 

2. Parallelprojektionen auf zwei Arten: 

- schräge, bei denen die Projektionsstrahlen nicht senk¬ 
recht auf der Projektionsebene stehen. Dazu gehören bei¬ 
spielsweise die Kavaliersperspektive und die Kabinettpro¬ 
jektion. 

- orthogonale, mit lotrecht auf der Projektionsebene ste¬ 
henden Strahlen, von denen es wiederum zwei Arten gibt, 
nämlich: 

a) axonometrische, wobei die Projektionsebene nicht pa¬ 
rallel zu den Hauptebenen des zu projezierenden Körpers 
steht, wie isometrische, dimetrische und trimetrische Pro¬ 
jektionen; 

b) Aufrisse, mit zu den Hauptebenen parallelen Projek¬ 
tionsebenen, wozu beispielsweise die Dreitafelprojektion 
zu zählen ist. 

In Bild 76 finden Sie Beispielskizzen zu den verschiede¬ 
nen Projektionsarten. 

Zu dieser Vielfalt kommen noch einige andere Aspekte 
hinzu (die wir zum Teil auch schon bei der 2D-Grafik über¬ 
schlagen haben, um die man hier aber kaum mehr herum¬ 
kommt), nämlich Clippingprobleme (welche Raumpunkte 
liegen beim projizierten Abbild noch innerhalb des Bild¬ 
schirmfensters?) und Hinterschneidungsfragen (welche 
Raumpunkte werden durch andere verdeckt?), um nur eini¬ 
ge zu nennen. Wir werden uns im Rahmen dieser Einfüh¬ 
rung daher nur zwei einfachen und grundlegenden Arten 
der Projektion widmen. 

Orthogonale Parallelprojektion 

Das dürfte die einfachste Art der Projektion sein. Will 
man beispielsweise einen Körper auf der XY-Ebene abbil¬ 
den, wo Z=0 ist, genügt es, bei jedem Körperpunkt die Z- 
Koordinate gleich 0 zu setzen. Aus einem Punkt P(X,Y,Z) 
wird dann auf der XY-Ebene der Punkt P’(X,Y,0). Ähnliches 
gilt für die Abbildung auf den anderen beiden Ebenen: Je¬ 
weils eine Koordinate wird gleich 0 gesetzt. Solch eine Pro¬ 
jektion läßt sich mittels der Matrix in Bild 77 durchführen. 

Die XY-Ebene 

‘ 1 0 0 01 


. 0 0 0 1 . 

Bild 77. Die Matrix der orthogonalen Parallelprojektion auf 
die XY-Ebene 


Hier ist der Fall der Abbildung auf die XY-Ebene gezeigt 
(also Z=0). Es ist übrigens damit auch möglich, Abbildun¬ 
gen aus anderen Richtungen zu erzeugen. Dazu dreht man 
zuerst den Körper im 3D-Weltsystem und unterzieht ihn 
dann der orthogonalen Parallelprojektion auf die ge¬ 
wünschte Hauptebene. Alle dazu gehörenden Einzelmatri¬ 
zen können - wie vorhin gelernt - durch Multiplikation zu¬ 
sammengefaßt werden, und so erhält man dann die Projek¬ 
tionsmatrix für schiefe Parallelprojektion. 
Zentralprojektion 

Nehmen wir an, das Projektionszentrum befände sich 
auf derZ-Achse und die Projektionsebene läge parallel zur 
XY-Ebene. Der Abstand des Projektionszentrums P 0 vom 
Weltkoordinatensystem-Ursprung betrüge zl und der Ab¬ 
stand der Projektionsebene E davon wäre z2. Der durch ei¬ 
nen Strahl PP 0 auf die Ebene E projizierte Punkt P’ hat 
die Koordinaten x’ und y’. Bild 78 illustriert Ihnen die Verhält¬ 
nisse. 



Die Dreiecke PF 0 und P’F’ 0 sind einander ähnlich. Man 
kann daher folgende Verhältnisgleichungen aufstellen: 


y’ 


y 

zl - z2 

und analog dazu 


zl -z 

x' 


X 

zl - z2 


zl -z 


Nimmt man den Abstand der Projektionsebene zum Ur¬ 
sprung des Weltsystems als 0 an (also z2=0), dann folgt 
aus diesen beiden Gleichungen: 



zl 


Rückt man das Projektionszentrum unendlich weit weg 
- dann wird zl, die z-Koordinate dieses Punktes, unendlich 
groß, der Bruch 2 / z i geht dann gegen 0 - erhält man genau 
die Verhältnisse der Parallelprojektion. Auch diese Berech¬ 
nungen lassen sich in einer Projektionsmatrix erfassen 
(Bild 79 auf Seite 155). 
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Diesen Beitrag im 64'er-Sonderheft fand ich 
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Ausgabe:_/_ Seite:_ 

Artikel:_ 


Ich wünsche mir für eine der folgenden Ausgaben 
folgende Themen: 


Ich möchte an der redaktionellen Gestaltung 
mitarbeiten. 

Meine Vorschläge: 

s^cr o in»®*- 


Ich kann folgende(s) Programm(e) zur Veröffent¬ 
lichung anbieten: 


Dieses Problem habe ich: 


l 

































Ich besitze einen: älteren C64_ neuen C64II_ 

CI 28_ C128D (im Blechgehäuse)_ 

mit Laufwerk(en): 1541 (alt)_ 1541c_ 1541 II_ 

1570_ 1571 _ 1581 _ 

Ich verwende einen Drucker_ 

mit 9 Nadeln_ 24 Nadeln_ 

Zusätzlich besitze ich einen 

Amiga_ PC_ Atari ST_ andere_ 

iiiiiiiiiiiuiiiuiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiniiii,,,„1,1,111111,1,11 
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64'er-Sonderheft:_ 
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Name:_ 
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Bitte schicken Sie die Mitmachkarte 
in einem Briefumschlag 
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Markt & Technik Verlag AG 
Redaktion Sonderhefte 
Stichwort: Mitmachkarte 64'er 
Hans-Pinsel-Straße 2 
8013 Haar b. München 
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Bild 79. Die Matrix einer Zentralprojektion 

Die Multiplikation einer Punktematrix mit dieser Projek¬ 
tionsmatrix ergibt allerdings noch nicht die endgültigen 
ebenen Punktekoordinaten, sondern: 


(x y 0 (w*z1 - z)/z1) 


Damit die vierte Koordinate den Dummy-Wert 1 annimmt, 
müssen alle Koordinaten noch durch diesen vierten Wert 
dividiert werden (was einer Skalierung entspricht). Auf die¬ 
se Weise folgt für die Koordinaten eines projizierten Punk¬ 
tes (wobei w=1 gesetzt wurde): 


, x * zl 
l z 1 -z 


y_i z1 

zl -z 


0 1) 


Auch hier kann man perspektivische Abbilder aus ande¬ 
ren Raumrichtungen und in andere Ebenen durch vorheri¬ 
ges Drehen und Verschieben des Körpers erhalten. Alle 
Einzelmatrizen werden dann wieder zu einer Gesamtma¬ 
trix multipliziert. 

Erst jetzt kann man auf dieses zweidimensionale Abbild 
die Matrix zur Bildschirmanpassung anwenden, um 
schließlich wieder zu Punkten in Bildschirmkoordinaten zu 
gelangen, die direkt zu zeichnen sind. Wie zuvor im 2D-Fall 
kann man aber auch hier alle aufeinanderfolgenden Opera¬ 
tionen zu einer einzigen Matrix zusammenfassen, aus der 
dann drei Transformationsgleichungen folgen. 

Unsere Wanderung durch die Anfangsgründe der 2D- 
und der 3D-Grafik ist damit beendet. Falls Sie mehr über 
dieses faszinierende Gebiet wissen möchten, dann emp¬ 
fehlen wir Ihnen die Bookware »GIGA-CADPIus«, mit der 
Computergrafiken von besonderer Räumlichkeit geschaf¬ 
fen werden können. (H. Ponnath/Harald Beiler/ag) 


»Zylin 

idrisdi 

es« Sen 

ollen 

mit 

deml 

ti'Stroll 

er 


Zum Scrollen von Hires-Grafiken gibt es bereits 
viele Routinen - nicht aber zum zylindrischen 
Scrollen! Für die Programmierung professionel¬ 
ler Spiele und das Zentrieren von Bildausschnit¬ 
ten ist diese Routine unverzichtbar. 

V iele Leser werden sich sicherlich fragen: »Was, um 
alles in der Welt, ist zylindrisches Scrollen?« Nun, mit 
»Hi-Scroller« sind Sie jetzt in der Lage, eine hochauf¬ 
lösende Grafik nicht nur »aus dem Bild« hinaus, sondern 
gleichzeitig wieder hinein zu schieben. Das heißt, wenn Sie 
mit den entsprechenden Befehlen das Bild beispielsweise 
nach links verschieben, fließt der herausgeschobene Teil 
auf der rechten Seite wieder in das Bild hinein. Sie können 
also mit Hi-Scroller aus simplen Hires-Grafiken ausge¬ 
zeichnet bewegte Hintergrundgrafiken für Spiele erzeu¬ 
gen. Ebenfalls eignet sich das Programm hervorragend 
zum Zentrieren von Bildausschnitten. (Für diesen Anwen¬ 
dungszweck wurde es ursprünglich geschrieben.) 

Hi-Scroller ist vollständig in Maschinensprache ge¬ 
schrieben und daher sehr schnell. Geben Sie bitte Listing 
1 mit dem MSE ein. Das Programm wird mit 
LOAD "HI*",8,1 <RETURN> 

von Diskette geladen. (Das Arbeiten mit der Datasette ist 
ebenfalls problemlos möglich.) Zum Vermeiden eines OUT 
OF MEMORY ERRORs geben Sie bitte NEW <RE- 

(=ES3? 


TURN> ein. Ab jetzt stehen Ihnen folgende Befehle zur 
Verfügung: 

SYS 49152 (Scrollen nach rechts) 

SYS 49155 (Scrollen nach links) 

SYS 49158 (Scrollen nach oben) 

SYS 49161 (Scrollen nach unten) 

Um einen sichtbaren Effekt zu erzielen, müssen Sie na¬ 
türlich vorher mit den entsprechenden POKE-Befehlen 
oder von Ihrem eigenen Programm aus den Grafikbild¬ 
schirm ab Adresse 8192 ($2000 bis $3F40) eingeblendet 
haben. Dieser Bereich wird beispielsweise von Hi-Eddi+ 
und Printfox sowie diversen Grafik- und Zeichenprogram¬ 
men benutzt. 

Gescrollt wird jeweils um ein Pixel in die gewünschte 
Richtung. Beim Programmieren in Basic benötigt die Aus¬ 
führung einer FOR-NEXT-Schleife natürlich viel Zeit, 
wodurch die hohe Geschwindigkeit von Hi-Scroller nur 
wenig zum Tragen kommt. Wir empfehlen daher, die Pro¬ 
grammaufrufe gegebenenfalls von einer eigenen Maschi¬ 
nenroutine erledigen zu lassen. 

Bitte beachten Sie beim Programmieren, daß die Routi¬ 
ne ab $C000 im RAM steht und die Zeropage-Adressen 250 
bis 254 ($FA bis $FE) als Zähler benutzt. Den Quellcode fin¬ 
den Sie übrigens im Profi-Ass-Format auf der Programm¬ 
service-Diskette zu diesem Heft. 

Und jetzt viel Vergnügen beim zylindrischen Scrollen 
hochauflösender Grafiken! (Stefan Bartnitzky/ef) 
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Name 

: 

hi- 

-scroller 



cOOO c21d 

cOOO 


4c 

Oc 

cO 

4c 

84 

cO 

4c 

f6 

79 

c 008 

: 

cO 

4c 

8b 

cl 

a9 

00 

85 

fc 

b4 

C010 


a2 

20 

86 

fd 

e8 

86 

fb 

a9 

2a 

c 018 

: 

38 

85 

fa 

a9 

08 

85 

14 

a9 

57 

c020 


19 

85 

15 

aO 

00 

a2 

28 

bl 

6e 

c028 

: 

fa 

85 

fe 

66 

fe 

bl 

fc 

85 

ee 

c030 

; 

fe 

6a 

91 

fc 

a5 

fc 

18 

69 

dd 

c038 

: 

08 

85 

fc 

a5 

fd 

69 

00 

85 

2d 

c040 

: 

fd 

ca 

dO 

e7 

c6 

fd 

a5 

fc 

cO 

c048 

: 

38 

e9 

3f 

85 

fc 

a5 

fd 

e9 

be 

c050 

: 

00 

85 

fd 

e6 

fa 

dO 

02 

e6 

7b 

c058 

! 

fb 

c6 

14 

dO 

c6 

e6 

fb 

a5 

b4 

c060 

: 

fa 

18 

69 

38 

85 

fa 

a5 

fb 

86 

c 068 

; 

69 

00 

85 

fb 

e6 

fd 

a5 

fc 

al 

c070 

: 

18 

69 

38 

85 

fc 

a5 

fd 

69 

c3 

c078 

I 

00 

85 

fd 

a9 

08 

85 

14 

c6 

7a 

c080 

: 

15 

dO 

aO 

60 

a9 

00 

85 

fa 

d8 

c088 

; 

a2 

20 

86 

fb 

e8 

86 

fd 

a9 

69 

c090 

i 

38 

85 

fc 

a9 

08 

85 

14 

a9 

4f 

c098 

j 

19 

85 

15 

aO 

00 

a2 

28 

bl 

e6 

cOaO 

: 

fa 

85 

02 

26 

02 

bl 

fc 

85 

4f 

c0a8 

: 

02 

2a 

91 

fc 

a5 

fc 

38 

e9 

ba 

cObO 

: 

08 

85 

fc 

a5 

fd 

e9 

00 

85 

a9 

c0b8 

l 

fd 

ca 

dO 

e7 

a5 

fc 

18 

69 

cl 

cOcO 


41 

85 

fc 

a5 

fd 

69 

01 

85 

f2 

c0c8 

; 

fd 

e6 

fa 

dO 

02 

e6 

fb 

c6 

e6 

cOdO 


14 

dO 

c8 

a5 

fc 

18 

69 

38 

da 

c0d8 

: 

85 

fc 

a5 

fd 

69 

01 

85 

fd 

b5 

cOeO 

: 

a5 

fa 

18 

69 

38 

85 

fa 

a5 

lc 

c0e8 


fb 

69 

01 

85 

fb 

a9 

08 

85 

cl 

cOfO 

: 

14 

c6 

15 

dO 

a6 

60 

a2 

00 

bf 

c0f8 

: 

86 

fa 

e8 

86 

fc 

a9 

20 

85 

af 

clOO 

: 

fb 

85 

fd 

a9 

c7 

85 

14 

a9 

bf 

el08 

: 

le 

85 

15 

a9 

28 

85 

fe 

a2 

53 

cllO 

: 

18 

aO 

00 

bl 

fa 

48 

bl 

fc 

61 

cll8 

: 

91 

fa 

c8 

cO 

07 

dO 

f7 

a5 

93 

cl20 


fa 

18 

69 

40 

85 

fa 

a5 

fb 

47 

cl28 


69 

01 

85 

fb 

a5 

fc 

18 

69 

68 

cl30 


40 

85 

fc 

a5 

fd 

69 

01 

85 

61 

cl38 


fd 

a5 

14 

18 

69 

40 

85 

14 

e7 

cl40 


a5 

15 

69 

01 

85 

15 

aO 

00 

6e 

cl48 


bl 

fa 

91 

14 

bl 

fc 

91 

fa 

9c 

cl50 


c8 

cO 

07 

dO 

f7 

ca 

dO 

c7 

fd 

cl58 

: 

88 

68 

91 

fc 

a5 

fa 

38 

e9 

ff 

cl60 


f8 

85 

fa 

a5 

fb 

e9 

ld 

85 

ld 

cl68 

: 

fb 

a5 

fc 

38 

e9 

f8 

85 

fc 

f2 

cl70 

: 

a5 

fd 

e9 

ld 

85 

fd 

a5 

14 

39 

cl78 

: 

38 

e9 

f8 

85 

14 

a5 

15 

e9 

2a 

cl80 

: 

ld 

85 

15 

c6 

fe 

dO 

01 

60 

b9 

cl88 

: 

4c 

Of 

cl 

a2 

00 

86 

fa 

e8 

12 

cl90 

! 

86 

fc 

a9 

3e 

85 

fb 

85 

fd 

11 

cl98 

: 

a9 

3a 

85 

14 

a9 

3f 

85 

15 

17 

claO 


a9 

28 

85 

fe 

aO 

06 

a2 

18 

93 

cla8 

: 

bl 

fc 

48 

bl 

fa 

91 

fc 

88 

61 

clbO 


10 

f9 

a5 

fa 

38 

e9 

40 

85 

64 

clb8 


fa 

a5 

fb 

e9 

01 

85 

fb 

a5 

38 

clcO 


fc 

38 

e9 

40 

85 

fc 

a5 

fd 

2d 

clc8 


e9 

01 

85 

fd 

a5 

14 

38 

e9 

03 

cldO 


40 

85 

14 

a5 

15 

e9 

01 

85 

3c 

cld8 

: 

15 

aO 

06 

bl 

fc 

91 

14 

bl 

05 

cleO 

: 

fa 

91 

fc 

88 

10 

f9 

ca 

dO 

91 

cle8 

! 

c9 

68 

aO 

00 

91 

fa 

a5 

fa 

8b 

clfO 

: 

18 

69 

08 

85 

fa 

a5 

fb 

69 

Of 

clf8 

: 

le 

85 

fb 

a5 

fc 

18 

69 

08 

d3 

c200 

: 

85 

fc 

a5 

fd 

69 

le 

85 

fd 

c6 

c208 

: 

a5 

14 

18 

69 

08 

85 

14 

a5 

33 

c210 

: 

15 

69 

le 

85 

15 

c6 

fe 

dO 

37 

c218 

: 

01 

60 

4c 

a4 

cl 

ff 

00 

00 

Od 

Listing 1. »Hi-Scroller« 
dem MSE eingeben 

bitte mit 




Nützliche Tips und Tricks sind gerade für den Ein¬ 
steiger, aber auch für Fortgeschrittene, unent¬ 
behrlich. Im folgenden finden Sie vier interessan¬ 
te Tips, die Sie zum Ausprobieren anregen sollen. 

C64 mit 1,25 MHz Taktfrequenz 


Wer hat sich nicht schon über die ewig langen Wartezeiten 
bei rechenintensiven Fraktalprogrammen oder Program¬ 
men wie Giga-CAD geärgert. Besitzer eines C128 waren da 
schon immer im Vorteil, da sie ihren Computer auf 2 MHz 
Taktfrequenz umschalten und so eine erheblich höhere Ar¬ 
beitsgeschwindigkeit erhalten können. Etwas ähnliches 
geht auch mit dem C64. 

Wer seinen C64 öffnet, findet in der Nähe des Video- 
Chips (der große IC im Blechgehäuse) eine Drahtbrücke, 
die zur Umschaltung von der PAL- auf die NTSC-Fernseh- 
norm pi«nt. Was bewirkt diese Drahtbrücke? Steht sie auf 
PAL (in neueren C64 ist sie geschlossen; in älteren am Löt¬ 
punkt PAL angelötet), so wird die Frequenz des Schwing¬ 
quarzes durch 2,25 geteilt. Steht sie auf NTSC (in neueren 
C64 ist sie nicht geschlossen; in älteren am Lötpunkt NTSC 
angelötet), so wird die Quarzfrequenz nur durch 1,75 ge¬ 
teilt. Mit dieser Brücke wird der C64 an die amerikanische 
Fernsehnorm angepaßt. 

Besitzt man nun einen deutschen C64 (PAL) und stellt 
die Lötbrücke auf NTSC, so wird die Frequenz logischer¬ 
weise nicht mehr durch 2,25, sondern durch 1,75 geteilt. 
Der Prozessor läuft dann anstatt mit 0,98 MHz mit 1,25 
MHz. Das bewirkt eine Geschwindigkeitssteigerung um 
fast 30 Prozent. Für die Bausteine im C64 ist dies nicht 


Druckeranpassungen gesucht 


Gute Programme, die mit Druckausgaben arbeiten, bieten zwar oft 
eine Anpassung an verschiedene Drucker, Oft reichen aber die An¬ 
passungen nicht aus, um mit jedem beliebigen Drucker optimal zu¬ 
sammenzuarbeiten. 

Wenn Sie selbst bei einem Programm (Textverarbeitung, Malpro¬ 
gramm etc.) eine entsprechende Anpassung neu entwickelt haben, 
behalten Sie Ihre Ergebnisse nicht für sich. Schicken Sie uns Ihre Än¬ 
derungen mit genauer Angabe des Druckers und notwendiger Ein¬ 
stellung aller DIP-Schalter. Helfen Sie damit allen Lesern, die ähnliche 
Probleme haben und bisher zu keiner Lösung gekommen sind. 

Ist es Ihnen gelungen, das DTP-Programm »Giga-Publish« an 
MPS-801/803 und kompatible Drucker anzupassen? 

Sind Sie Besitzer eines 24-Nadel-Druckers und wissen, wie der 
Drucker optimal eingesetzt wird? 

Schreiben Sie an folgende Adresse: 

Markt »Technik Verlag AG 
Redaktion Sonderhefte 
Stichwort: Druckeranpassung 
Hans-Pinsel-Straße 2 
8013 Haar bei München 

Wir werden alle Tips zu Druckern sammeln und in einem der näch¬ 
sten Sonderhefte zusammenstellen. 
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schädlich, da diese geänderte Frequenz noch im Toleranz¬ 
bereich liegt. Lediglich der Monitor bzw. Fernseher, die ja 
auf genaue Einhaltung der Frequenzen abgestimmt sind, 
funktionieren nicht mehr. Eine Bildschirmanzeige ist also 
nicht mehr möglich. Auch der Diskettenbetrieb oder Kas¬ 
settenbetrieb ist nicht mehr möglich. Jedoch laufen alle 
Programme, die Berechnungen durchführen, um fast 30 
Prozent schneller. 

Will man nun also in den Genuß eines schnellen C64 
kommen, so braucht man nur die Drahtbrücke durch einen 
Schalter zu ersetzen. Bei Berechnungen wird dieser Schal¬ 
ter dann auf die schnelle Betriebsart gesetzt. Soll der Com¬ 
puter etwas laden, speichern oder auf dem Bildschirm dar¬ 
stellen, ist mit dem Schalter die »langsame« Betriebsart 
einzustellen. Vier Stunden Apfelmännchenberechnung 
lassen sich so auf knapp drei Stunden Wartezeit verkürzen, 
ohne daß es zu Problemen kommt. 

(Andreas Beermann/ag) 

PEEKs&POKEs für Grafik er 


(VIC=Speicherzelle 53248) 

Grafikmodus 

Einschalten: POKE VIC+17,PEEK(VIC+17) OR 32 
Ausschalten: POKE VIC+17,PEEK(VIC+17) AND 223 
Grafikspeicher 

Grafikspeicher-Startadresse ab Adresse 8192: POKE 
VIC+24,PEEK(VIC+24) OR 8 _ 

Grafik löschen 

Grafikspeicher löschen (Voraussetzung: Beginn ab 8192) 
FOR 1=8192 TO 8192+8000:PQKE l,0:NEXT I _ 

Multicolor-Modus 

Einschalten (Voraussetzung: Grafikmodus wurde zuvor 
eingeschaltet) POKE VIC+22,PEEK(VIC+22) OR 16 
1. Grafikspeicher schützen. Wie Sie die Hires-Grafik ein-/ 
ausschalten, den Beginn des Grafikspeichers auf Adresse 
8192 legen und den Grafikspeicher löschen, finden Sie in 
der zugehörigen Abteilung unserer Liste. 

Anschließend liegt der Grafikspeicher jedoch mitten im 
eigentlich für das Basic-Programm und die Variablen ver¬ 
wendeten Speicherbereich. Eine Möglichkeit, dieses Pro¬ 
blem zu lösen, besteht darin, den für Basic-Programme 
verfügbaren Speicherbereich zu begrenzen und dem C64 
mitzuteilen, daß er bei Adresse 8191 endet: 

POKE 5,255:POKE 56,31 
Diese beiden Befehle sollten sich in der ersten Zeile Ihres 
Grafikprogramms befinden! Ihnen stehen nun zwar nur 
noch 7 KByte für Ihr Programm zur Verfügung, zum Experi¬ 
mentieren mit der Grafik reicht das jedoch allemal. 

2. Punkte setzen/löschen: Die »Grafik-POKEs« überneh¬ 
men zwar alle notwendigen Vorbereitungen, der eigentli¬ 
che Sinn von Grafikprogrammen, das Setzen oder Löschen 
von Punkten, fehlt jedoch in der Liste. Die folgenden beiden 


Formeln setzen voraus, daß den Variablen X und Y die 
Punktkoordinaten zugewiesen wurden. 

AD = 320 * INT(Y/8) + (Y AND 7) + 8*INT(X/8) 

BN = 7 - (X AND 7) 

Nach diesen Berechnungen kann der betreffende Punkt 
gesetzt oder gelöscht werden. 

Setzen: POKE 8192+AD,PEEK(8192+AD) OR 2IBN 
Löschen: POKE 8192+AD,PEEK(8192+AD) AND (255- 
2tBN) 

Die obigen Berechnungen funktionieren jedoch nur, 
wenn die Hires-Grafik mit 320 x 200 Punkten eingeschaltet 
ist. AD ist dabei die Nummer des Bytes ab der Anfangs¬ 
adresse des Grafikbildschirms und BN ist die Nummer des 
Bits in dem Byte Anfangsadresse + AD. 

PEEKs&POKEs für Sprites 


(VIC=53248, NR=Spritenummer (0 bis 7)) 

Breite verdoppeln 

POKE VIC+29,PEEK(VIC+29) OR 21 NR_ 

Höhe verdoppeln 

POKE VIC+23,PEEK(VIC+23) OR 21 NR_ 

Kollision feststellen 

PEEK(VIC+30):POKE VIC+30,0 

(die Bits der beiden kollidierten Sprites sind gesetzt; in 

VIC+30 muß (!) anschließend der Wert 0 gePOKEt werden, 

da diese »Kollisionsspeicherzelle« nicht automatisch ge- 

löscht wird!),_ 

Multicolor-Sprite 

Einschalten: POKE VIC+28,PEEK(VIC+28) OR 2tNR 


X-/Y-Koordinaten 

Festlegen durch POKE VIC+2*NR,X:POKE VIC+2*NR 
+1.Y_ 

Die »Sprite-POKEs« werden verständlicher, wenn Sie ein 
wenig über den Umgang des C 64 mit Sprites erfahren. Bis 
zu acht Sprites können gleichzeitig verwaltet werden. Je¬ 
des Sprite bekommt eine Nummer zwischen 0 und 7. Für ei¬ 
ne Sprite-Funktion ist meist ein Register des VIC-Chips zu¬ 
ständig, beispielsweise Register 29 für die Verdoppelung 
der Sprite-Höhe. Um ein Register anzusprechen, müssen 
Sie die Registernummer zur Basisadresse des VIC-Chips 
addieren: 

53248 (Basisadresse) + 29 (Höhen-Register) = 53277 
Die Speicherzelle 53277 beeinflußt also die Sprite-Höhe. 
Um gezielt ein bestimmtes Sprite ansprechen zu können, 
ist bei fast allen für die Sprites zuständigen Registern je ein 
Bit einem Sprite zugeordnet. 

Bit 0 Sprite Nummer 0 
Bit 1 Sprite Nummer 1 

Bit 7 Sprite Nummer 7 

Um nun gezielt die Höhe von Sprite Nummer 5 zu verdop¬ 
peln, ohne auch alle anderen Sprites zu beeinflussen, muß 
Bit 5 von Register 53248 gesetzt werden. Gesetzt bzw. ge¬ 
löscht werden Bits mit Hilfe der logischen Operatoren OR 
(Setzen) und AND (Löschen). Das folgende Schema zeigt, 
wie einzelne Bits gezielt manipuliert werden: 

Bit NR setzen POKE X,PEEK(X) OR 2t NR 

Bit NR löschen POKE X,PEEK(X) AND 255-(2tNR) 


Spritefarben 

Defiiii ren: POKE VIC+39+NR,Farbcode 
Sprites einschalten 

POKE VIC+21,PEEK(VIC+21) OR 2INR 
Sprites ausschalten 

POKE VIC+21,PEEK(VIC+21) AND 255-21 NR. 
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TIPS&TRICKS 


Zur Verdoppelung der Höhe eines Sprites finden Sie in 
der Tabelle den POKE: 

POKE VIC+29,PEEK(VIC+29) OR 2!NR 
NR ist hierbei die Spritenummer (0 bis 7), VIC die Basis¬ 
adresse des VIC-Chips (53248). Um die Höhe von Sprite 3 
zu verdoppeln, setzen Sie einfach das entsprechende Bit 
Nummer 3 mit der Anweisung 
POKE 53248+29,PEEK(53248+29) OR 2!3 
Die Verdoppelung können Sie jederzeit rückgängig ma¬ 
chen, indem Sie mit der folgenden Anweisung dieses Bit 
wieder löschen: 

POKE 53248+29,PEEK(53248+29) AND 255-213 
Dieser kleine »Ausflug« sollte verdeutlichen, wie die In¬ 
halte der Sprite-Register vom C64 interpretiert werden. 
Zum Umgang mit Sprites halten Sie sich bitte einfach an die 
POKE-Liste. Die Anwendung dürfte problemlos sein, nach¬ 
dem Ihnen nun die Bedeutung der Variablen VIC und NR 
bekannt ist. (Said Baloui/ag) 

Farbige C128-Grafik 
an den C64 angepaßt 


Der C64 und der C128 im 40-Zeichen-Modus benutzen 
(üblicherweise) denselben Speicherbereich für Hires-Gra- 
fiken: $2000 bis $3FFF. Das gilt aber nur unter dem Ge¬ 
sichtspunkt, ob ein Pixel auf dem Grafikbildschirm ein- 
oder ausgeschaltet ist. Bei farbigen Hires-Bildern wird es 
schon komplizierter: Zur Speicherung des Color-RAM ver¬ 
wendet der CI28 den Bereich von $1C00 bis S1FE7. Aller¬ 
dings ist dieser Speicherplatz bei den bekannten Grafikpro¬ 
grammen des C64 nicht üblich. 

Eines der beliebtesten Mal- und Zeichenprogramme für 
den C64, »Hi-Eddi«, legt die Farbinformation beispielswei¬ 


se für so ein Color-Hires-Bild unmittelbar hinter die eigentli¬ 
che Grafik (ab $4000) und speichert den Bereich von $2000 
bis $43E7 als Bildfile auf Diskette. 

Um nun farbige Hires-Grafiken, die auf dem C128 ent¬ 
wickelt wurden (eine Menge bequem zu handhabender 
Grafikanweisungen im Basic 7.0 stehen ja dafür zur Verfü¬ 
gung), für ein gutes Mal- und Zeichenprogramm des C64 
zugänglich zu machen, dient das Programm »Colorconver- 
ter«. Das Programm (Listing 1, bitte mit dem MSE Seite 159 
eingeben) ist nur im C64-Modus lauffähig. Geladen wird es 
mit 

LOAD"C0L0RC0NVERTER", 8 

und gestartet mit RUN. 

Danach befindet sich der Maschinencode im vor Basic 
geschützten Bereich, von $C000 bis $C2AF. 

Das Menü bietet drei Möglichkeiten: 

<D> Directory 

< G > C 128-Farb-Grafikfile von Disk laden 

< E > Programmende (es wird ein System-Reset ausge¬ 

führt). 

Jedes C128-Color-Hiresbild wird nach dem Laden auf 
dem C64-Hires-Bildschirm angezeigt (das Farb-RAM wur¬ 
de vorher nach $0400 »geschoben«). Nach Druck auf eine 
beliebige Taste erscheint das Untermenü: 

<S> als »Hi-Eddi«-Farbbild speichern 

< M > Rückkehr ins Hauptmenü. 

An den Filenamen des C64-Colorbildes, das aus dem 
C 128-Grafikfile erzeugt wurde, hängt das Programm als 
Endung noch ».64« (zur Vermeidung von gleichen Filena¬ 
men und zur besseren Unterscheidung) an. Es kann dann 
jederzeit zur weiteren Bearbeitung (verändern, invertieren, 
ausdrucken etc.) in »Hi-Eddi« geladen werden. 

Wenn das Programm mit < RUN/STOP RESTORE> 
oder d'i>-. h einen »Reset« beendet wurde, läßt es sich jeder¬ 
zeit mit SYS 49152 neu initialisieren. (Harald Beiler/ag) 


Name : colorconverter 
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EINGABEHILFEN 


Chedtsummer 
V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig Vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1 REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT"CHECKSUMMER FUEE C 64" 

11 PRINT:PEINT"EINEN MOMENT, BITTE ...” 

12 FOR 1=828 TO 864:READ A-'POKE I,A:PS=PS+ 

A:NEXT I 

13 IF PS<>5765 THEN PRINT"TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : POKE1,55 ODE 
R"SPC< 27)"<RUN/STOP+RESTORE>" 

19 PRINT:PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3.208,238,202 

22 DATA 16,230,96,160.224,192,0,160,2.169. 
0.170,133,254,177 

23 DATA 95.240,40,201,32,208,3,200,208.245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101.254,133 
.254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32.157,1,4,189 

27 DATA 212,228.32,210,255,208,12,0,92,72, 

32,201,255,170,104 ’ 

28 DATA 144,1,138,96,202,16,228,166.254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104.133.214.32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
© 64'er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHRSC14) <242> 
10 PRINT"<CLR>" <254> 
20 PRINT 11 < 130> 
3P '' * INT"C4D0WN,2SPACE > TEST(SPACE,BLUE,6SP 

ACEJ" <022> 
40 PRINT"5SSS^l5SS15S^gSS155SS , SSSlSSl , ‘ <10B> 


6 64'et 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben <Q>, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann < SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL steht lür Control-Taste, so bedeutet |CTRL+A|, daß Sie die Control-Taste und die Taste *A« drücken müssen, Im folgenden steht: 

|DOWN| 

Taste neben rechtem Shift, 

| SPACE] 

Leertaste 

[RVSON! 

Control-Taste 8 9 


Cursor unten 

|SHIFT-Space| 

Shift-Taste & Leertaste 

IRVOFF! 

Control-Taste & 0 

IUP! 

Shift-Taste & Taste neben 

|F1| bis ]F8| 

Funktionstasten 

(ORANGE! 

Commodore-Taste & 1 


rechtem Shift; Cursor hoch 

[RETURN! 

Return-Taste 

[BROWN] 

Commodore-Taste & 2 

1CLRJ 

Shift-Taste & 2. Taste 

[BLACK] 

Control-Taste & 1 

[LIG.RED) 

Commodore-Taste & 3 


ganz rechts oben 

IWHITE! 

Control-Taste 8 2 

[GREY 1] 

Commodore-Taste 8 4 

(INST! 

Shift-Taste & Taste 

[RED| 

Control-Taste & 3 

|GREY2| 

Commodore-Taste 8 5 


ganz rechts oben 

[CYAN] 

Control-Taste & 4 

[UG.GREEN] 

Commodore-Taste 8 6 

[HOME] 

2. Taste von ganz rechts oben 

[PURPLE! 

Control-Taste & 5 

1LIG.BLUE] 

Commodore-Taste 8 7 

IDEL] 

Taste ganz rechts oben 

[GREEN! 

Control-Taste & 6 

[GREY 3] 

Commodore-Taste 8 8 

[RIGHT] 

Taste ganz rechts unten 

[BLUE! 

Control-Taste & 7 

Tabelle 1. 


|LEFT] 

Shift-Taste & Taste unten rechts 

1 YELLOW! 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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EINGABEHILFEN 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer [ j. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT " [CLRJ" 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Taste drücken müssen, also <SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


100 REM PIE5E5 PROGRAMM ERZEUGT PEN <210> 

110 REM MSE VI.1 AUF PISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <170> 

130 REM MUESSEN DIE ’8’ AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’l’ AENDERN! <176> 

150 REM <212> 

230 IF PEEK(44)032 THEN PRINT"CCLRDSIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

“:END <050> 

240 PRINT"CCLR5"; :DIM H(75):FOR 1 = 0 TO 9 <042> 

250 H<48+I>=I‘H<65+I>=I+10:NEXT:Z=1000 <136> 

260 FOR 1=2048 TO 3755 STEP 20:PRINT"CHOME 

DICH LESE ZEILE : "Z <253> 

261 FOR N=0 TO 19:READ A$:IF LEN(A$><>2 TH 

EN '900 <062> 

262 IF PEEK(63)+PEEK(64)*256<>Z THEN 800 <011> 

270 H=ASC(LEFTS(A$,1) ) :L=ASC(RIGHTS(AS,1)) <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I+N.D <165> 

290 NEXT:READ V = IF SoV THEN 900 <139> 

300 S=0 : Z=Z+1 :NEXT-.R=PEEK(2U1) =H=PEEK(210 

6) <126> 

301 POKE 53280,R:POKE 53281,H^POKE 646,R:P 

RINT"CCLRDDIE DATA-ZEILEN SIND FEHLERF 
REI!“ <080> 

302 PRINT''SIE KOENNEN NUN DIE FARBEN DES M- 

SE" <209> 

303 PRINT"EINSTELLEN.":PRINT"C2D0WN,SPACE, 

RVSONDDRUECKEN SIE <1>, <2> ODER <9> <205> 

304 PRINT"(DOWN,2SPACED<1> - RAHMEN-/SCHRI 

FTFARBE <013> 

305 PRINT"C2SPACED<2> - HINTERGRUNDFARBE <233> 

306 PRINT"CDOWN,2SPACED<9> - FARBEN UEBERN 

EHMEN <158> 

307 PRINT"C2D0WNDFARBE <1>:"R:PRINT"FARBE 

<2>:“H <066> 

308 GET A■IF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1)AND 15 <086> 

311 IF A=9 THEN 340 <217> 

312 GOTO 301 <034> 

340 POKE 2106,H:POKE 2111,R <153> 

342 POKE 631,19:POKE 632,13:POKE 198,2 <135> 

343 PRINT"CCLRDSAVE"CHR$(34)"MSE V1.1”CHR$ 

(34)",8 <091> 

344 POKE 43,1:POKE 44,8:P0KE 45,172:P0KE 4 

6,14:END <140> 

800 PRINT"CCLR.RVSONDSIE HABEN ZEILE“Z"CLE 

FT.SPACEDVERGESSEN:":A=PEEK(646)AND 15 <124> 
810 POKE 646,PEEK(53281)AND 15:PRINT”LIST" 

Z-2 H -“Z+2 = POKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR.RVSONDSIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEK(53281)AND 15:PRINT"LIST" 

Z:POKE 646,A <173> 

920 POKE 631,19 = POKE 632,17:POKE 633,13:PO 

KE 198,3:END <126> 

1000 DATA 00,0B.08,0A.00.9E,32,30,36,31,00 

,00.00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85.A6,A9.B0,85,A7 

,A0,00.Bl.A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00.B0,20,D1,B1,A9,00,8D, 2781 <096> 

1003 DATA 21,D0,A9.0F,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,Bl,A0,B3,A9, 2679 <089> 

1004 DATA B9.20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 

1005 DATA C0.11,90,02,A0,10,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2327 <045> 

1006 DATA 8E,B4,85,FC,85.62.20,8E,B4,85,FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 


1007 DATA A9,E5,20,FF,B1,20,8E.B4,85,60,20 


,8E,B4,85,5F,20.A7,B4,D0,0A, 2624 <091> 

1008 DATA A5.61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA.A0,00, 2379 <167> 

1009 DATA EA,EA.E6,FB,D0,02,E6,FC,20,3F,B2 

.90,EF,4C,FB,B4,A2,02,86,58. 3190 <041> 

1010 DATA A9,A6,A0,9D,20,F2,B1.20.E4,FF,F0 

.FB,C9.30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,Bl,20,D2.FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,6B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F.B4,4C,64,Bl,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A.0A,85,F9,A5,F8,20,02,Bl,05,F9 

.60,C9,3A,90,02,69,08,29,0F. 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,IF,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2.B1,CA.D0,FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2> 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,Dl,Bl,20,48,B2,20, 2261 <073> 

1021 Uf.'A EA.Bl ,20,9F,B2,A5,FC,20,4E,B1 ,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2.B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF.B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,00,08,90,EC,20,10 

,B2,A9,12,20.D2.FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3.A9 

,14,A0,14,20,F2,B1.4C.A2.B1, 2665 C034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2.90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2.00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,1)0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90.EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6.FC,60,A5,FB 

.C5,5F,A5,FC,E5,60,60.A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF.B1,A0,01,B9.00,02,20 

,D2,FF.CC,00,02,C8,90.F4,A9, 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2457 <060> 

1034 DATA Bl,20,ED,Bl,A5,60,20,4E,Bl,A5,5F 

,20.4E,Bl,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA,EA,24,5E.10,01,60,A9.12.20,D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2703 <087> 

1036 DATA A9,92,4C,D2.FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9.78,85,A6, 2945 <204> 

1037 DATA A9.04,85,A5,85,A7,A2,13.A0,27.Bl 

.A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18.A5,A4,69,28,85,A4,90,02.E6,A5 

,18,A5,A6,69.28.85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D.04,D4.A9 

.32.8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0.F8.60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D.05,D4,A9 

,A5,8D,06,D4.A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,6D,00,D4.A0 
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.FF.20.09.B3.A9,20.8D.04.D4. 2250 <078> 

1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20 

,F0,FF,8A,48,98,48,18,A0.06 , 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20.12,B3,20.E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14.20,D2,FF,CA,D0.FA,68 

.A8,68,AA,18»4C >F0,FF.0D.0D, 2704 <088> 

1047 DATA 0D,20,20.20.20,20,20,20,4D,41,53 

.43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43.48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,00,20,20,20.20, 1023 <038v- 

1049 DATA 20,20,20,20,56,4F.4E,20,4E,2E,4D 

,41.4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E.45,43,4B,00,0D.0D,0D,20 

.20,20,50,52,4F,47,52,41,4D, 1102 -117> 

1051 DATA 4D.4E.41,4D,45,20,3A,20,00.0D.0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D.20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

.24,00,92,01,01,50,52,4F,47, 1130 <228> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

.2A.2A.2A,20.46.41.4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45.20 

,2A, 2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,01,20,20,12,44,92, 916 <153> 

1057 DATA 49,53,4B,20,4F,44.45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20. 1151 <035> 

1058 DATA 49.2F.4F,20.20,20,46,45,48,4c,45 

,52,00,20,Dl,B1,20,48,B2,A0. 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5.61,A5,FC. 3207 <251> 

1060 DATA E5,62,90.23,A5,FB.C5.5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0.0C,85.F9,20,A7,B4,F0 

,05.85,F8,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C.D0 

,09,20,D1,B1,20,48,B2,4C.0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,Bl,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0.FB,20,El,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 ■'■CTSeC 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20. 2190 <207> 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9.00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,4C,64,B1,A5.FC.20.4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,Bl 

,B1,FB.20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12.2C 

,A9,20,20,D2,FF,20,10.B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,4C,EA 

.Bl.A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA.20,C0,FF,A2,FF,4C,C9.FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4.A9,80,85,5E.20,4E.B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA.D0, 2596 <111> 

1073 DATA FA,20,EA,Bl.20.EA.B1,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,D8,FF,B0,0A,20.B7,FF,29 

,BF,D0.03,4C,FB,B4,A9,01,20. 2577 <201> 

1075 DATA C3,FF,20,68,B6.A0,B4.A9,4F,20.FF 

.Bl.20.F9.B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0.B4,20.FF,B1.20.F9.B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54.D0.F1,A9,01.A8,20,BA,FF,A0,00 

,E0,01,F0.1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,SD,21,02.B9,01,02,99,22.02 

,C8,CC,00.02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02.99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF.A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF.85,61.A5,90.4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F.84,60.A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA.D0.FA.60,00,00,00 

,00,00,00,00,00,00,00,00,00, 1230 <143> 

© 64'er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeiiennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sie den Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
lader. wollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/ef) 
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Mit dem »Auto-Haushaltsbuch« 
behalten Sie den Überblick 
über alle Ausgaben fürs Auto. 
Künstliche Intelligenz mit dem 
C64: Der Computer im Dialog 
mit dem Anwender. Unser 
»Expertensystem« macht’s 
möglich. 


Üben und Lernen wird zum 
Vergnügen: Mit »Ede 64« lernen 
Kinder das Einmaleins in 
spielerischer Form. Chemische 
Grundlagen vermittelt der 
»Chemiekasten«. 
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